line input fa già quello che dici, legge la linea esi sposta su quella dopo, se la richiami N volte ti sposti di N righevolevo 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
...
...