Пишем анализатор текстовой информации

Меня просят как можно более понятнее объяснить метод написания анализатора текста, как-то: проектов VB. Как могу просто - объясняю. Например вам нужно определить какие объекты(компоненты), включены в данный проект. Для этого можно написать следующую программу:

Создаем Standard EXE, форму и на нее лист-бокс. Теперь напишем код:

Выполним основную функцию в процедуре:

'Для работы процедуре нужно передать имя файла
Private Sub FindOCX(FileName) 

'Открываем файл
Open FileName For Input As #1 

'Считываем все символы из файла
txt = Input$(LOF(1), 1) 

'Закрываем файл
Close #1 

'Цикл
Do 

'Ищем ; т.к. объекты в проекте идут после этого символа
p = InStr(p + 1, txt, ";") 

' Если не найдено, то заканчиваем поиск
If p  0 Then n = InStr(p, txt, Chr(13)) Else Exit Sub 

' Если не найдено символа перевода строки, то тоже выходим
If n = 0 Then Exit Sub 

'Получаем имя файла компонента
mOCX = Mid(txt, p + 2, n - p - 2) 

'Добавляем в список
List1.AddItem mOCX 
Loop 
End Sub 

Вот и все. Если вы хотите также определить ссылки References, то вместо ; поставьте \system32\, а вместо chr(13) поставьте #.

Надеюсь я вам помог. Будут вопросы - пишите gmsvb@yandex.ru

1.

33K

26 января 2010 года

iprog

60 / / 26.01.2010

27 января 2010, 00:08:11

Очень познавательная статья. Мне этот код очень пригодился. А то всё ломал голову, как открыть файл. Спасибо!