Строковое чтение текстового файла, разбор и запись в другой текстовый файл:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set outPut = objFSO.CreateTextFile("c:\\output.txt", true);
Set objTextFile = objFSO.OpenTextFile _
("c:\mytextfile.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strLine = objTextFile.Readline
' parse strLine
id_no = Mid(strLine, 1, 9)
seq = Mid(strLine, 11, 14) ' and so on
outPut.WriteLine(id_no & "_" & seq);
Loop
outPut.Close();
Set objFSO = Nothing
Set outPut = Nothing
Строка синтаксического анализа может быть выполнена с фунтоцинами строки VB , такими как Split, Mid, Len и т. Д.Например,
id_no = Mid(strLine, 1, 9)
seq = Mid(strLine, 11, 14) ' and so on