Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Поиск текста в нескольких (2-3) текстовых файлах Добавлено: 23.03.09 14:43  

Автор вопроса:  Sergey
А как реализовать в VB6 поиск текста в 2-3 текстовых файлах? Например, слово Find в "C:\1.txt", "C:\2.txt"

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Sergey



Вопросов: 39
Ответов: 87
  Профиль | | #1 Добавлено: 23.03.09 17:46
Последовательный перебор файлов, загрузка содержимого в строку и поиск вхождения. Как это сделать?

Ответить

Номер ответа: 2
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #2 Добавлено: 23.03.09 18:12
  1. Function StrFound(S_For_Search As String, FullPathName As String) As Boolean
  2. Dim S As String
  3. Dim f As Integer: f = FreeFile
  4. Open FullPathName For Input As f
  5.   Do While Not EOF(f)
  6.     Line Input #f, S
  7.     If InStr(1, S, S_For_Search, vbTextCompare) Then
  8.       StrFound = True
  9.       Exit Do
  10.     End If
  11.   Loop
  12. Close f
  13. End Function
  14.  
  15. Sub StrFound_Example()
  16. Dim Path As String
  17. Path = "c:\"
  18. Dim Name As String
  19. Name = Dir(Path + "*.txt")
  20. While Name <> ""
  21.   If (GetAttr(Path + Name) And vbDirectory) <> vbDirectory Then 'даже под такую маску можно подогнать имя папки!
  22.     If StrFound("Find", Path + Name) Then MsgBox "Слово Find найдено в файле " + Path + Name
  23.   End If
  24.   Name = Dir
  25. Wend
  26. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам