Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   [решено] VBS, поиск во всех файлах заданной папки и запись в файл. (http://forum.oszone.net/showthread.php?t=239444)

vlad20 27-07-2012 09:17 1959787
VBS, поиск во всех файлах заданной папки и запись в файл.
 
Привет, скорректируйте пожалуйста.
В заданной папке (C:\old) есть 520 файлов. В каждом файле нужно выполнить построчный поиск, если в строке есть заданное слово, то записать строку в файл (output.txt должен содержать информацию из 520 файлов).

В моем случае работает если явно указать имя файла, а мне нужно, чтобы поиском пройтись по всем 520 и записать всю найден. информацию в один файл output.txt.

Option Explicit
Dim fso, tsIn, tsOut, str
Set fso= Createobject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("C:\old\filelog.2010-10-04", 1, 0) ' открываем файл для чтения, в ASCII
Set tsOut = fso.CreateTextFile("output.txt", True, False) 'создаём файл в ASCII, при наличии файл перезаписывается
Do While Not tsIn.AtEndOfStream
str = tsIn.ReadLine 'читаем построчно исходный файл
If InStr(1, str, "Мой текст", 1) <> 0 Then 'ищем искомое слово в строке
tsOut.WriteLine str 'записываем найденную строку в выходной файл
End If
Loop
tsIn.Close
tsOut.Close
Set fso = Nothing

Iska 27-07-2012 11:08 1959848
Цитата:
Цитата vlad20
а мне нужно, чтобы поиском пройтись по всем 520 »
Код:
…
Set tsOut = fso.CreateTextFile("output.txt", True, False)

For Each objFile In objFSO.GetFolder("C:\old").Files
    Set tsIn = objFile.OpenAsTextStream(…)
    …
Next

…

vlad20 27-07-2012 12:03 1959879
спасибо, а можно привести готовый вариант, попытался объединить имеющийся свой и ваш, не привело к желаемому результату

Iska 27-07-2012 13:26 1959926
vlad20, примерно так (не проверялось):
читать дальше »
Код:
Option Explicit

Dim strSourceFolder
Dim strOutputFile
Dim strText4Find

Dim objFSO
Dim objFile
Dim objTSOutput
Dim objTSInput
Dim strValue


strSourceFolder = "C:\old"
strOutputFile  = "output.txt"
strText4Find    = "Мой текст"

With WScript.CreateObject("Scripting.FileSystemObject")
        If .FolderExists(strSourceFolder) Then
                Set objTSOutput = .CreateTextFile(strOutputFile, True)
               
                For Each objFile In .GetFolder(strSourceFolder).Files
                        With objFile.OpenAsTextStream()
                                Do Until .AtEndOfStream()
                                        strValue = .ReadLine()
                                       
                                        If InStr(strValue, strText4Find, vbTextCompare) <> 0 Then
                                                objTSOutput.WriteLine strValue
                                        End If
                                Loop
                               
                                .Close
                        End With
                Next
               
                objTSOutput.Close
               
                Set objTSOutput = Nothing
        Else
                WScript.Echo "Source folder [" & strSourceFolder & "] not found"
                WScript.Quit 1
        End If
End With

WScript.Quit 0

vlad20 30-07-2012 13:49 1961500
В результате выполнения кода получается Ошибка: Объект не поддерживает это свойство или метод: 'AtEndOfStream'
вышел из ситуации так, "слил" все файлы в один
читать дальше »
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")

JoinTXT "C:\old"

Sub JoinTXT(strFolderPath)
Dim objFolder, objFile, strTempText, strAllText

If objFSO.FolderExists(strFolderPath) Then
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each objFile In objFolder.Files
strExt = LCase(objFSO.GetExtensionName(objFile.Path))
If (strExt = "txt") Or (strExt = "log") Then
strTempText = ReadFile(objFile.Path)
If strTempText <> "" Then
strAllText = strAllText & strTempText & vbCrLf & "===== " & objFile.Name & " =====" & vbCrLf
End If
'objFile.Delete True ' удалить файл
End If
Next
End If

Set objFile = objFSO.CreateTextFile(strFolderPath & "\AllTextFiles.txt")
objFile.Write strAllText
objFile.Close
End Sub

MsgBox "выход"
Set objFSO = Nothing
Wscript.quit


Function ReadFile(strTempFilePath)
On Error Resume Next
Dim objTempFile, strText
Set objTempFile = objFSO.OpenTextFile(strTempFilePath, 1, False)
strText = objTempFile.Readall
objTempFile.Close
ReadFile = strText
End Function

и выполнил построчный поиск
читать дальше »
Option Explicit
Dim fso, tsIn, tsOut, str
Set fso= Createobject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("C:\old\filelog.2010-10-04", 1, 0) ' открываем файл для чтения, в ASCII
Set tsOut = fso.CreateTextFile("output.txt", True, False) 'создаём файл в ASCII, при наличии файл перезаписывается
Do While Not tsIn.AtEndOfStream
str = tsIn.ReadLine 'читаем построчно исходный файл
If InStr(1, str, "Мой текст", 1) <> 0 Then 'ищем искомое слово в строке
tsOut.WriteLine str 'записываем найденную строку в выходной файл
End If
Loop
tsIn.Close
tsOut.Close
Set fso = Nothing

Iska 31-07-2012 01:52 1961848
Проверенный ;) вариант.

1. «.AtEndOfStream» — свойство. Исправьте:
читать дальше »
Код:
        Do Until .AtEndOfStream()
на:
Код:
        Do Until .AtEndOfStream


2. Забыл, что:
читать дальше »
Цитата:
start

Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified.

Исправьте:
читать дальше »
Код:
          If InStr(strValue, strText4Find, vbTextCompare) <> 0 Then
на:
Код:
          If InStr(1, strValue, strText4Find, vbTextCompare) <> 0 Then


Время: 19:16.

Время: 19:16.
© OSzone.net 2001-