从日志文件中提取时间戳并保存到新的Excel文件中

我想从本地计算机中的文本格式的日志文件中获取时间戳记值，并使用VB脚本将这些值保存到Excel文件中。

我的日志文件格式是： –

 14.000.00.10  -   -  [07 / Mar / 2015：16：06：51 -0800]“GET /twiki/bin/rdiff/TWiki/NewUserTemplate?rev1=1.3&rev2=1.2 HTTP / 1.1”200 4523
 14.000.00.10  -   -  [07 / Mar / 2015：16：10：02 -0800]“GET / mailman / listinfo / hsdivision HTTP / 1.1”200 6291
 14.000.00.10  -  [07 / Mar / 2015：16：11：58 -0800]“GET / twiki / bin / view / TWiki / WikiSyntax HTTP / 1.1”200 7352
 14.000.00.10  -   -  [07 / Mar / 2015：16：20：55 -0800]“GET / twiki / bin / view / Main / DCCAndPostFix HTTP / 1.1”200 5253
 14.000.00.10  -   -  [07 / Mar / 2015：16：23：12 -0800]“GET /twiki/bin/oops/TWiki/AppendixFileSystem?template=oopsmore&param1=1.12&param2=1.12 HTTP / 1.1”

通过采用多行重复的ID值，如何将日志文件中的时间戳[07/Mar/2015:16:23:12]从日志文件保存到Excel文件中？

我试图编码这个：

 Set xl = CreateObject("Excel.Application") xl.Visible = True Set wb = xl.Workbooks.Add Set ws = wb.Sheets(1) Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("E:\access_log.txt") strContents = objFile.ReadAll objFile.Close Set objRegEx = CreateObject("VBScript.RegExp") objRegEx.IgnoreCase = True objRegEx.Global = True objRegEx.Pattern = "mailman" Set colMatches = objRegEx.Execute(strContents) For Each Match in colMatches strReturnStr = "Match found at position " strReturnStr = strReturnStr & match.FirstIndex & ". Match Value is '" StrReturnStr = strReturnStr & match.value & "'." & "<BR>" & VBCrLf WScript.Echo(strReturnStr) Next wb.SaveAs "E:\access_og.csv", -4143, , , , False wb.Close xl.Quit 

当在cmd提示符下运行cscript name.vbs时，它显示出findstring的行号，之后.csv文件打开时出现错误“ access_og.csv的文件格式和扩展名不匹配，文件可能是腐败和不安全“。

仍然没有解决的问题:(

Answer 1

你可以试试这个：

 Dim objFSO, strTextFile, strData, strLine, arrLines CONST ForReading = 1 'name of the text file strTextFile = "E:\access_log.txt" 'Create a File System Object Set objFSO = CreateObject("Scripting.FileSystemObject") 'Open the text file - strData now contains the whole file strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll 'Split the text file into lines arrLines = Split(strData,vbCrLf) Set objExcel = CreateObject("Excel.Application") 'Mentioning the path of the excel sheet. Set objWorkbook = objExcel.Workbooks.Open("Your Excel File Path") 'Mentioning the worksheet which is going to be used. Set objWorkSheet = objWorkbook.Worksheets("Sheet1") 'This control will define the view of the excel sheet. Set it to "True" if you want to see the excel sheet. Set it to "False" if you don't want to view the excel sheet. objExcel.Application.Visible = True 'We will assign a varaible called rowcount to mention the number of used rows. rowcount = objWorkSheet.usedrange.rows.count rowcount = rowcount + 1 objExcel.Visible = True 'Step through the lines For Each strLine in arrLines intLine = InStr(1,strLine,"mailman",1) if intLine > 0 Then objExcel.Cells(rowcount, 1).Value = strLine rowcount = rowcount + 1 End IF objWorkbook.Save Next objWorkbook.Save objWorkbook.quit Set objFSO = Nothing result=Msgbox("Completed",0) 

在运行之前，确保你已经用“Excel文件path”中给出的相同名称创build了excel文件。