ciao...avendo letto un pò di forum sui txt ho scritto il seguente codice :
volevo sapere qual'è il comando per muovermi alla riga successiva?codice:Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("testfile.txt", True) Dim record As String Open "bv0103.txt" For Input As #1 Do While Not EOF(1) Line Input #1, record If Left(record, 3) = "500" Then a.writeline (record) End If Loop Close #1 a.Close
Infatti questo file txt contiene un'infinità di informazioni suddivise in categorie da dei codici. La 500 è quella con le info su un'identità....e di seguito sono riportate info su quella identità (di diversa natura).
io devo però avere la certezza che le informazioni siano riferite a quell'identità quindi pensavo di spostarmi alle linee successive ogni volta individuata la linea "500" e "raccogliere" le informazioni fino a quando non trovo un altra linea "500".
Se qualcuno ha qualche idea ne sarei grato!!!

Rispondi quotando