Шаги, которые нужно предпринять:
- Открыть файл
- Читать строку
- Подтвердите, что строка содержит 360 символов
- Назначить фрагменты строки различным переменным
- Делать вещи с переменными
- Прочитайте еще одну строку и повторяйте до EOF
1 & 2:
Ваша книга должна иметь ссылку на среду выполнения сценариев Microsoft, чтобы предоставить вам доступ к FileSystemObject. Я позволю тебе исследовать это.
Создайте FileSystemObject и используйте его для создания TextStream с путем к вашему файлу.
currentLine = textStream.ReadLine()
Do Until textStream.EOF
If Len(currentLine) = 360 Then
firstChunk = Mid$(currentLine, 25, 10)
secondChunk = Mid$(currentLine, 36, 11)
thirdChunk = Mid$(currentLine, 48, 30)
fourthChunk = Mid$(currentLine, 78, 30)
' Do stuff with chunks
End If
currentLine = textStream.ReadLine()
Loop
Со временем вы можете получить фантазию и заполнить массив парными элементами, детализирующими начальную точку чанка и количество его символов, что-то вроде:
Dim arrChunkPoints As Variant
Dim arrChunks As Variant
arrChunkPoints = Array(25,10, _
36,11, _
48,30, _
78,30)
ReDim arrChunks(UBound(arrChunkPoints)\2) ' Integer returned
Это позволит вам перешагнуть через элементы в arrChunkPoints и заполнить каждый элемент arrChunks частью currentLine, используя Mid $ (), но заполненный значениями из arrChunkPoints. Но это наверное на другой день.