ник: Анатолий (Киев)
Только копированием в новый файл.
Dim i&, s$
Open "C:\Setupxlg.txt" For Input As 1
Open "C:\Setupxlg2.txt" For Output As 2
Do Until EOF(1)
i = i + 1
Line Input #1, s
If i > 4 Then Print #2, s
Loop
|
В принципе, можно сразу дерибанить полученную строку на части и вносить в таблицу.
С csv файлом можно попробовать инструкцией Input #1, var1, var2,... прочитать строку сразу в массив переменных.