Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11656
Последний выпуск: 19.06.2015

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

Гайдар Магдануров
www.vbstreets.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

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

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
33K
26 января 2010 года
iprog
60 / / 26.01.2010
Мне нравитсяМне не нравится
27 января 2010, 00:08:11
Очень познавательная статья. Мне этот код очень пригодился. А то всё ломал голову, как открыть файл. Спасибо!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог