[VB6] Scorrimento fino a fine linea nella lettura di un file

[zanlu88s]

Salve a tutti.. ho un piccolo problema... ho un file testo(txt) in cui vi sono scritti dei dati...
Io devo ricercare una certa parola dentro al file ma questa parola è ripetuta + volte.
Il problema è che questa parola che ricerco a volte è doppia nella stessa riga e quindi mi trova solo la prima.
Il mio intento è quello di contare il numeor delle parole che sono presenti nel file.. quindi capirete che se cerco la parola "cane"
e il file è così:
cane

cane
cane cane cane
cane

Il totale è solo di 4 e non di 6 in quanto non riesco a fargli controllare all'interno della stessa linea estratta dal file.
Pensavo di usare tipo UN DO While not EOF... solo che quello è per la fine del file.. a me servirebbe per la fine della linea..
Premetto che la linea è contenuta in una variabile quindi se qlk1 mi saprebbe anke solo suggerire come fare una ricerca di carattere all'interno di una variabile fino alla FINE di essa.. andrebbe bene cmq.. il mio intento è solo quello di contare quante volte si ripete la parola..
Posto anke il mio codice così da farvi vedere come ho fatto fino ad ora.

Open "Nomefile.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, riga
If InStr(n, riga, "Cane") Then
cont = cont + 1
pos = InStr(n, riga, "Cane")
Do While Not EOL QUI NON SO COSA METTERE
If InStr(pos + 1, riga, "Cane") Then


cont = cont + 1
End If
pos = InStr(pos + 1, riga, "Cane")
Loop
End If
Loop
Close #2
Ricerca la parola : Cane
Grazie in anticipo

[wallrider]

ma non basterebbe un

do while pos>0

?

PS:anch'io uso sempre pos con la instr

[oregon]

Non devi (non puoi) gestire la "fine della linea" perche' non esiste un carattere rilevabile alla fine della stringa.

Devi invece utilizzare il valore della "lunghezza" (Len) della stringa e confrontarlo opportunamente con l'indice da cui inizia, di volta in volta, la ricerca ...