| |
|
|
| | Добрый день. Подскажите, как сделать обход нужных директорий на диске с целью поиска в файлах, скажем, e-mail адресов? Есть ли какие-нибудь примеры? | |
| |
| |
| |
|
|
| | при такой постановке ИМХО "обход нужных директорий" самая простая часть
как ты собираешься брать, скажем, и-мэйл адреса из файла? | |
| |
| |
| |
|
|
| | из файлов с расширением txt | |
| |
| |
| |
|
|
| | http://www.hiprog.com/forum/read.php?id_forum=1&id_theme=1440&page=1 | |
| |
| |
| |
|
|
| | Спасибо, буду разбираться | |
| |
| |
|
|
| |
|
|
| |
Sub lstFilesInFolder(strNameFolder As String)
' процедура получения всех файлов c расширением txt в папке с подпапками
Dim subFolder As Object
Dim folder As Object
Dim fso As Object
Dim file As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(strNameFolder)
Debug.Print "***** Папка - " & strNameFolder
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = "txt" Then
Debug.Print file.Name
End If
Next
For Each subFolder In folder.SubFolders
lstFilesInFolder (subFolder.Path)
Next
End Sub
|
| |
| |
| |
| |
|
|
| | Спасибо, вот я получил список всех txt файлов. А теперь как мне в них найти e-mail адреса и вывести их в отдельный файл и экспортировать в excel? | |
| |
| |
| |
|
|
| | :))) вот это, собственно и был вопрос :)))
 | |
| |
| |
| |
|
|
| | так как же мне в выбранной директории (включая поддиректории) найти все файлы, где встречаются e-mail адреса и вывести эти e-mail адреса в отдельный файл? | |
| |
| |
| |
|
|
| | разбор текста задача не тривиальная, по этому поводу диссертации пишут.
Решения в лоб (открытие и построчный (блочный) анализ с поиском нужных символов (слов))
обычно очень медленны. | |
| |
| |
| |
|
|
| | из всех файлов да, задача не тривиальная. А мне нужно только их файлов txt | |
| |
| |
| |
|
|
| | из всех файлов да, задача не тривиальная. А мне нужно только их файлов txt | |
| |
| |
| |
|
|
| | не текстовые файлы обычно вообще нет смысла анализировать. Речь шла именно о разборе тектовых файлов.
если хотите решение "в лоб", то Help по Open, Get или по FileSystemObject, а так же по InStr, Left, Mid | |
| |
| |
