Titolo: Cercare una stringa all'interno di un BLOB
Categoria: Codice |
|
Ultimo Aggiornamento: 10/03/05 |
Ecco un metodo "brutale" per cercare una stringa all'interno di un BLOB. Il metodo riceve come parametri un puntatore al BLOB, la stringa da cercare e la posizione da cui partire con la ricerca, e ritorna la posizione, altrimenti -1.
C_LONGINT($0;$3;$Start)
C_POINTER($1)
C_TEXT($2)
C_BOOLEAN($match)
$0:=-1
$Start:=$3
TEXT TO BLOB($2;$blob;Text without length )
$l:=BLOB size($1->)-1
$ll:=BLOB size($blob)-1
For ($i;$Start;$l)
If ($1->{$i}=$blob{0})
$match:=
True For ($ii;0;$ll)
If ($1->{$i+$ii}#$blob{$ii})
$match:=
False $ii:=$l
End if End for End if If ($match)
$0:=$i
$i:=$l
End ifEnd forFonte: 4DToday - Patrick Marty
Inviato da: PierPaolo Sichera |
|
Visite: 12474 |
Se accedi con utente e password, puoi aggiungere dei commenti.