0

由于我有一段时间没有使用 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

谢谢！！

4

1 回答 1

0 
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
于 2013-10-02T14:59:01.110 回答