'Create HTML report from GNU Diff file
Set fso = CreateObject("Scripting.FileSystemObject")
myTxtFile = ""
' Input via Arguments
If WScript.Arguments.Count > 0 then
If fso.FileExists(WScript.Arguments.Item(0)) Then
myTxtFile = WScript.Arguments.Item(0)
End If
End If
'Input via Explorer
If myTxtFile = "" Then
Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
ObjFSO.Filter = "GNU Diff File|*.*"
ObjFSO.ShowOpen
myTxtFile = ObjFSO.FileName
End If
'Call the Write Procedure
If myTxtFile <> "" Then
Call DoWrite(myTxtFile)
End If
Sub DoWrite(txtFile)
'Create a template HTML file with all the Style
Call WriteStyle(txtFile & ".html")
'InFile is the GNU diff file (input file)
Set inFile = fso.OpenTextFile(txtFile, 1)
'Append the rest of the info to the HTML file
'OutFile HTML file (OutPut File)
Set outFile = fso.OpenTextFile(txtFile & ".html", 8)
'Write the Summary
' First line contains the file & date
dLine = inFile.ReadLine
IntPos = inStr(dLine," ")
outFile.WriteLine("| " & Mid(dLine,4,IntPos-4) & " | ")
outFile.WriteLine("" & Mid(dLine,IntPos,Len(dLine)) & " | ")
outFile.WriteLine("")
outFile.WriteLine("")
' Second line contains the file & date
dLine = inFile.ReadLine
IntPos = inStr(dLine," ")
outFile.WriteLine("| " & Mid(dLine,4,IntPos-4) & " | ")
outFile.WriteLine("" & Mid(dLine,IntPos,Len(dLine)) & " | ")
outFile.WriteLine("
")
outFile.WriteLine("")
'Write the Comparison details
outFile.WriteLine("Comparison details
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("| Line # | Contents |
")
'Counters needed for the Statistics
IntLine = 0
IntPlus = 0
IntMinus = 0
IntModif = 0
'Loop lines Count + and - & Write all the Comparison Details
Do until inFile.AtEndOfStream
dLine = inFile.ReadLine
dChar = Left(dLine,1)
If dChar = "@" Then
IntPosS = inStr(5,dLine," ")
IntPosC = inStr(5,dLine,",")
If IntPosC = 0 then
IntPos = IntPosS
Else
If IntPosC > IntPosS then
IntPos = IntPosS
Else
IntPos = IntPosc
End IF
End If
IntLine = Mid(dLine,5,IntPos-5)
'outFile.WriteLine(" | Year, Vin , Make , Model & Symbols |
")
Else
If dChar = "+" Then
IntPlus = IntPlus + 1
outFile.WriteLine("| " & IntLine & _
" | " & _
Mid(dLine,2,len(dline)) & " |
")
Else
If dChar = "-" Then
IntMinus = IntMinus + 1
outFile.WriteLine("| " & IntLine & _
" | " & _
Mid(dLine,2,len(dline)) & " |
")
Else
outFile.WriteLine("| " & IntLine & _
" | " & _
dLine & " |
")
End If
End If
IntLine = IntLine + 1
End If
Loop
outFile.Close
inFile.Close
'Write the end of the file with the Statistics & Legend
Call AppendFinal(txtFile & ".html" , IntPlus, IntMinus, IntModif)
End Sub
'Create a template HTML file with all the Style
' takes as a parameter the name of the file
Sub WriteStyle(dFile)
Set outFile = fso.CreateTextFile(dFile, True)
outFile.WriteLine(" ")
outFile.WriteLine(" ")
outFile.WriteLine(" ")
'The title is the name of the file
outFile.WriteLine("File comparison report: " & dFile)
outFile.WriteLine(" ")
outFile.WriteLine(" ")
outFile.WriteLine(" ")
outFile.WriteLine("")
outFile.WriteLine("File comparison report
")
outFile.WriteLine("
")
outFile.WriteLine("Summary
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("| File | ")
outFile.WriteLine("Last modified | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.Close
End Sub
'Write the end of the file with the Statistics & Legend
'
Sub AppendFinal(dFile,dAdded,dRemov,dModif)
Set outFile = fso.OpenTextFile(dFile, 8)
outFile.WriteLine("
")
outFile.WriteLine("Comparison statistics
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("| Description | ")
outFile.WriteLine("Amount | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Lines added | ")
outFile.WriteLine("" & dAdded & " | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Lines deleted | ")
outFile.WriteLine("" & dRemov & " | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Lines modified | ")
outFile.WriteLine("" & dModif & " | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("
")
outFile.WriteLine("Legend
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("| Line changes | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Added line | Example of added line | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Deleted line | Example of deleted line | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Modified line | Example of modified line | ")
outFile.WriteLine("
")
outFile.WriteLine("
")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("| Character (inline) changes | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Added characters | Some added characters | ")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("| Deleted characters | Some deleted characters | ")
outFile.WriteLine("
")
outFile.WriteLine("
")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.Close
End Sub