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

Меня просят как можно более понятнее объяснить метод написания анализатора текста, как-то: проектов 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

Оставить комментарий

Оставлять комментарии могут только зарегистрированные пользователи.

Если вы не являетесь зарегистрированным пользователем, то вам необходимо зарегистрироваться. Регистрация бесплатна. Если вы уже зарегистрированы на CodeNet, то вам необходимо ввести логин и пароль в верхней (Alt-U) части страницы.

Комментарии