| Вопрос: Поиск текста в файлах внешних | Добавлено: 13.06.04 19:54 |
Автор вопроса:  Дмитрий_JDV
|
| Каким образом осуществляется поиск текста в файлах внешних (HTML, TXT.....)??? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 14.06.04 03:19 |
открытием, и поиском 
|
||
|
Номер ответа: 2 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 14.06.04 03:30 |
открытием, загрузкой в память и поиском 
|
||
|
Номер ответа: 3 Автор ответа: @CyRax PTR ICQ: 204447456 Вопросов: 28 Ответов: 664 |
Web-сайт: Профиль | | #3 | Добавлено: 14.06.04 23:48 |
| Странный какой то вопрос. А что ты подразумеваешь под "файлами внутренними"? | ||
|
Номер ответа: 4 Автор ответа: crestaВопросов: 117 Ответов: 1538 |
Профиль | | #4 | Добавлено: 16.06.04 15:43 |
|
Function FindInFile (ByVal strInfo As String, ByVal strFind As String) As Long
Dim intFileNum As Integer intFileNum = FreeFile 'Открываем файл для считывания Open App.Path & "\File.txt" For Input As #intFileNum ' цикл, для считывания информации Do While Not EOF(intFileNum) Line Input #intFileNum, strInfo If InStr(1, strInfo, strFind) then MSGBOX "Нашёл!" Loop 'Закрываем файл Close #intFileNum End Function |
||
Страница: 1 |