04/10/07 12:16
P4p3r0g4
Postato originariamente da mash_mash:
for x = 1 to (len(text1.text)-len(stringa)+1)
if mid(text1.text,x,Len(stringa))=stringa then
quantevolte = quantevolte+1
end if
next x
for x = 1 to (len(text1.text)-len(stringa)+1)
if mid(text1.text,x,Len(stringa))=stringa then
quantevolte = quantevolte+1
end if
next x
ripeto questo ciclo da 1 a len(text1.text)-len(stringa)+1
ovvero da uno alla lunghezza del testo in cui ricercare meno la lunghezza del testo da ricercare ( poichè è inutile cercare 3 caratteri in un posto in cui possono starcene al massimo 2..) +1 perchè devo considerarne uno aggiuntivo ( se cerco 67 in una stringa di 14 lettere non devo fermarmi alla 12 ma alla 13).
prendo dal carattere x (corrispondente al contatore del ciclo) del text1.text un numero di lettere pari alla lunghezza della stringa da ricercare. controllo se è uguale alla stringa
se si la stringa è contenuta tutte le altre volte in cui l'ho trovata +1.
non posso essere più elementare di così. spero che tu mi abbia capito.
aaa