Question

由于我没有在VBscript中编码一段时间，因此我需要您的帮助才能创建日志摘要报告文件。

我在这个文件夹中有一个名为“Logs”的文件夹我将按系统时间命名不同的子文件夹，在每个文件夹中我将有一些日志文本文件，其中显示了一组测试的测试摘要结果

我想编写一个浏览每个文件的脚本，计算测试次数获取失败/通过测试的次数，并创建一个文本文件来显示这些详细信息：

以下是我用于在每个文件中创建摘要报告的代码：

 Public Sub PrintTestVectors
    fprint vbNewLine & "===================="
    fprint             "SUMMARY OF RESULTS:"
    fprint             "===================="
    sVector = ""

    While oTestVectors.Count <> 0
        fprint "TEST [" & oTestVectors.Count & "] STATUS:" & oTestResults.Pop() & "        
        TRACE:" & oTestVectors.Pop()
    Wend
    fprint sVector 
    fprint vbNewLine

    End Sub

谢谢！

Answer 1

can be done using 

Public Function PrintLog(logfile,strLogMessage)
Const fsoForAppend = 8

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")

if Not objFSO.FileExists(logfile) Then 
objFSO.CreateTextFile(objFSO,false)
End if

'Open the text file
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile(logfile, fsoForAppend)

'Display the contents of the text file
objTextStream.WriteLine strLogMessage

'Close the file and clean up
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
End Function

浏览不同文件夹中的不同文件以创建日志摘要报告VBscript

1 个答案: