Форматирование таблицы, распарсив текстовый файл - VB

Формулировка задачи:

Есть табличка:Ссылка удалена Это отчет о состоянии клиентов SIP сервера Астериск. С помощью скрипта на сервере удаляем лишние пробелы и получаем текстовый файл без пробелов, где элементы разделены запятыми:100,10.10.1.11,D,N,A,5060,OK,(10,ms) 101,10.10.1.122,D,A,5060,OK,(12,ms) 102,(Unspecified),D,A,0,UNKNOWN ... Теперь нужно прочитать данные из файла в массив. A(0) - Name A(1) - Host A(2) - Dyn A(3) - FP A(4) - ACL A(5) - Port A(6) - Status Вроде, не сложно:
open "c:\peers.txt" for input as 1
input #1, A(0),A(1),...,A(6)
close #1
Но... не все строчки содержат одинаковое количество элементов. Собственно вопрос: как восстановить пропущенные элементы (заменить на "")?

Код к задаче: «Форматирование таблицы, распарсив текстовый файл - VB»

textual
'Разбиваем на массив строк 
Dim ArrayLines() as  String 
ArrayLines = Split(CF, vbNewLine) 
'Теперь tmp$ = ArrayLines(0) - первая строка, tmp$ = ArrayLines(1) - вторая, итп... 
На массив слов аналогично... 
Word$ = Split(ArrayLines(0), ",")

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы