0

しばらく VBscript でコーディングしていなかったので、ログ サマリー レポート ファイルを作成するためにあなたの助けが必要です。

このフォルダー内に「ログ」というフォルダーがあり、システム時間で名前が付けられたさまざまなサブフォルダーがあり、各フォルダー内には、一連のテストのテスト概要結果が表示された多数のログ テキスト ファイルがあります。

各ファイルを参照し、テストの数を数え、失敗した/合格したテストの数を取得し、これらの詳細を表示するテキスト ファイルを作成するスクリプトを作成します。

各ファイル内に要約レポートを作成するために使用したコードは次のとおりです。

 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 に答える