Titolo: È un numero?
Categoria: Codice |
|
Ultimo Aggiornamento: 21/07/04 |
Ecco una piccola porzione di codice per controllare se una stringa, passata come parametro, è o no un numero (inclusi il meno, i punti e le virgole). Il controllo viene fatto sul valore Ascii dei caratteri.
C_TEXT($1;$uncarattere_s)
C_LONGINT($i)
C_BOOLEAN($contienelettere_b)
$contienelettere_b:=
FalseFor ($i;1;Length($1))
If ($contienelettere_b)
$i:=Length($1)
Else $uncarattere_s:=Substring($1;$i;1)
If ((Ascii($uncarattere_s)<44) | (Ascii($uncarattere_s)>57))
$contienelettere_b:=
True End if End ifEnd for $0:=Not($contienelettere_b)
Inviato da: PierPaolo Sichera |
|
Visite: 11534 |
Se accedi con utente e password, puoi aggiungere dei commenti.