Code: Select all
....
With fsoTextStream
Do While Not .AtEndOfStream
LEGGI_RIGA = .ReadLine
If Left(LEGGI_RIGA, 36) = "AP_NUMERO_INT: " & strSearchCriteria Then
Debug.Print "TROVATO OK!"
CONTA = CONTA + 1
'Exit Do
End If
Loop
End With
....
If Left(LEGGI_RIGA, 36) = "AP_NUMERO_STOP: " & strSearchCriteria Then
debug.print end of block
end if
other way are welcome...
NOTE:
the txt contain approx 230.xxxx lines
![Groan :groan:](./images/smilies/groan.gif)
![Grin :grin:](./images/smilies/grin.gif)
![Scratch :scratch:](./images/smilies/scratch.gif)