Titolo: Stringhe identiche in 4th Dimension
Categoria: Codice |
|
Ultimo Aggiornamento: 18/06/04 |
Il controllo di uguaglianza di 4D non tiene conto dei caratteri accentati nè della differenza fra maiuscole e minuscole. Ecco un piccolo frammento di codice per controllare se due stringhe sono uguali. Il confronto viene fatto sui valori Ascii dei caratteri.
C_STRING(80;$1;$2;$Stringa1_s;$Stringa2_s)
C_LONGINT($i)
$Stringa1_s:=$1
$Stringa2_s:=$2
$0:=
TrueIf (Length($Stringa1_s)#Length($Stringa2_s))
$0:=
False Else For ($i;1;Length($Stringa1_s))
If (
Ascii($Stringa1_s[[$i]])#
Ascii($Stringa2_s[[$i]]))
$0:=
False $i:=
Length($tString1)+5
End if End for End if
Inviato da: PierPaolo Sichera |
|
Visite: 14157 |
Se accedi con utente e password, puoi aggiungere dei commenti.