Автор: Гайдар Магдануров. Дата публикации: 20.08.2004
Меня просят как можно более понятнее объяснить метод написания анализатора текста, как-то: проектов VB. Как могу просто - объясняю. Например вам нужно определить какие объекты(компоненты), включены в данный проект. Для этого можно написать следующую программу:
Создаем Standard EXE, форму и на нее лист-бокс. Теперь напишем код:
Выполним основную функцию в процедуре:
Вот и все. Если вы хотите также определить ссылки References, то вместо ; поставьте \system32\, а вместо chr(13) поставьте #.
Надеюсь я вам помог. Будут вопросы - пишите gmsvb@yandex.ru
Пишем анализатор текстовой информации
Меня просят как можно более понятнее объяснить метод написания анализатора текста, как-то: проектов 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
Комментарии |
| отсутствуют |
Добавление комментария |