Sub generate_sim_results()
Dim testResults As String
Dim InputFile As String
Dim fso As Object
Dim ObjFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
testResults = Application.ActiveWorkbook.Path & "\sim_results.log"
If Len(Dir$(testResults)) > 0 Then
Kill testResults
End If
InputFile = Dir(Application.ActiveWorkbook.Path & "\" & "*.log")
InputFile = Application.ActiveWorkbook.Path & "\" & InputFile
'Debug.Print InputFile
fnum = FreeFile()
Open InputFile For Input As #fnum
Set ObjFile = fso.CreateTextFile(testResults)
While Not EOF(fnum)
Line Input #fnum, dataLine
If InStr(1, dataLine, "passed", vbTextCompare) > 0 Or InStr(1, dataLine,"failed", vbTextCompare) > 0 Then
ObjFile.Writeline dataLine
Debug.Print dataLine
End If
Wend
ObjFile.Close
Set fso = Nothing
Set ObjFile = Nothing
End Sub
*sample of the log file*
<time="1500 ns" instance="testcase_00">passed
<time="342100480 ps" instance="testcase_01">passed
blabla informations about the tests....
<time="742894 ns" instance="testcase_02_01">passed
blabla informations about the tests....
blabla informations about the tests....
<time="744121040 ps" instance="testcase_02_02">failed
blabla informations about the tests....
<time="745034560 ps" instance="testcase_02_03">passed
blabla informations about the tests....
<time="745134560 ps" instance="testcase_02_04">passed
blabla informations about the tests....
blabla informations about the tests....
blabla informations about the tests....
blabla informations about the tests....
<time="745548080 ps" instance="testcase_03">failed
<time="747388640 ps" instance="testcase_04_01">passed
<time="750745100 ns" instance="testcase_04_02">passed
blabla informations about the tests....
只想返回包含已通过和失败的字符串的行,并将其写入另一个日志文件(sim_results)
答案 0 :(得分:2)
使用Line Input读取文件时,您必须考虑到Line Input仅在读取CR或CR 和 LF时才停止,但不会停止仅读取LF。您需要将LF转换为CR和LF。您可以使用Notpad ++来做到这一点
由于您已经在使用FSO,因此您也可以使用它来读取文件。那么您就不必担心“ Unix”了。
Sub generate_sim_results()
Dim testResults As String
Dim InputFile As String
Dim fso As Object
Dim ObjFile As Object
Dim fnum As Long
Dim dataLine As String
Set fso = CreateObject("Scripting.FileSystemObject")
testResults = Application.ActiveWorkbook.Path & "\sim_results.log"
If Len(Dir$(testResults)) > 0 Then
Kill testResults
End If
InputFile = Dir(Application.ActiveWorkbook.Path & "\" & "*.log")
InputFile = Application.ActiveWorkbook.Path & "\" & InputFile
'Debug.Print InputFile
fnum = FreeFile()
Open InputFile For Input As #fnum
Set ObjFile = fso.CreateTextFile(testResults)
Dim myFile
Set myFile = fso.OpenTextFile(InputFile, 1)
Do While myFile.AtEndOfStream <> True
dataLine = myFile.ReadLine
If InStr(1, dataLine, "passed", vbTextCompare) > 0 Or InStr(1, dataLine, "failed", vbTextCompare) > 0 Then
ObjFile.Writeline dataLine
Debug.Print dataLine
End If
Loop
myFile.Close
ObjFile.Close
Set fso = Nothing
Set ObjFile = Nothing
End Sub