Размещение всех текстовых файлов в папке и запись информации в таблицу Excel - PullRequest
Новая
       9

Размещение всех текстовых файлов в папке и запись информации в таблицу Excel

1 голос
/ 05 июля 2011

В папке находятся определенные текстовые файлы, например, file1.txt; file2.txt; ... Кроме того, есть массив строк, которые могут храниться в виде шипов (i) в VBScript. Моя цель - проверить, присутствует ли каждая строка (studs (i)) в каждом из текстового файла (fileN.txt), и записать информацию на лист Excel с элементами строк в строках и именах файлов (file1, file2, file3). , ....) в столбцах. Мне нужен Vbscript, который автоматизирует этот процесс. Любая помощь с благодарностью

1 Ответ

1 голос
/ 05 июля 2011

Посмотрите, поможет ли это

  • выполнить команду findstr
  • захватить результат в System.Collections.ArrayList
  • результат может быть сохранен в excel

код 

Function findFilesThatContain(searchText, filePath)
    Set DataList = CreateObject _
    ("System.Collections.ArrayList")
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set objExecObject = objShell.Exec("findstr /M """ & searchText & """ " & filePath)
    Do While Not objExecObject.StdOut.AtEndOfStream
        fileLoc = objExecObject.StdOut.ReadLine()
        'Wscript.Echo searchText&","&fileLoc      
        DataList.Add fileLoc
    Loop
    Set findFilesThatContain = DataList
End Function

Sub saveToExcel(searchText, searchPath, strExcelPath)
    Set objExcel = CreateObject("Excel.Application")
    If (Err.Number <> 0) Then
        On Error GoTo 0
        Wscript.Echo "Excel application not found."
        Wscript.Quit
    End If
    objExcel.Workbooks.Add
    Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
    objSheet.Name = "Search Result"
    Dim i,j
    j = 1
    For Each searchText in searchTexts
        Dim files
        Set files = findFilesThatContain (searchText, searchPath)
        i = 1
        objSheet.Cells(i, j).Value = searchText
        For Each path in files
            Wscript.Echo searchText&","&path
            i = i + 1
            objSheet.Cells(i, j).Value = path
        Next
        j = j + 1
    Next
    objSheet.Range("1:1").Font.Bold = True
    objExcel.ActiveWorkbook.SaveAs strExcelPath, 56
    objExcel.ActiveWorkbook.Close
    objExcel.Application.Quit
End Sub
Dim strExcelPath
strExcelPath = "c:\test.xls"
Dim searchPath 
searchPath = "E:\bin\bat\*.bat"
Dim searchTexts(2)
searchTexts(0)="pushd"
searchTexts(1)="if"
saveToExcel searchText, searchPath, strExcelPath

выход

table

...