По роду своей деятельности, работаю с каталогом состоящего из html и htm файлов на локальном компютере .
Страниц порядком 500 шт.
Хочу организовать поиск по ключевому слову...
Алгоритм работы в принципи понятен:
создал окно, на нем WebGadget и StringGadget и кнопки навигации...
директория сканирования известна и постоянна
организовываю цикл чтения каждого файла и поиск в нем с помощью FindString ключевого слова
при нахождении, выводить данный файл в WebGadget
Это если файлы все в одной папки.
Не знаю как организовать сканирование сложной структуры:
папка в ней файлы и папки, а в этих папках тоже файлы и папки и.т.д. ?
может есть примеры организации поиска ?
Procedure Direct() ; Ск. директории Path.s=GetPathPart(ProgramFilename())+"Catalog" If ExamineDirectory(#Directory, Path.s, "") Repeat FileType = NextDirectoryEntry(#Directory) If FileType Result = DirectoryEntryType(#Directory) ; выявляем файл или директория. FileName.s = DirectoryEntryName(#Directory) ;Debug FileName.s If FileName.s <> "." And FileName.s <> ".." Ext$ = LCase(Right(FileName.s,4)) If Ext$ = ".html" Or Ext$ = ".htm" ;Debug FileName.s EndIf EndIf EndIf Until FileType = 0 EndIf EndProcedure