'---------------------------------------------------------------------------------------
' Module : modFPVB2HTMLParsertest
' DateTime : 06.01.2008 16:42
' Author : Burkhard Schlutt
' Purpose : VB2HTMLParser testen
' Status : ok
'---------------------------------------------------------------------------------------
' My component. Make sure the DLL is registered and it is checked
' in the Project -> References menu.
Option Explicit
Private VB2HTML As VB2HTMLLib.Parser
' FileSystemObject used to create a file for the resulting HTML.
' The Microsoft Scripting Runtime must also be checked in the
' Project -> References menu.
Private fso As Scripting.FileSystemObject
'---------------------------------------------------------------------------------------
' Procedure : parser_objecttest
' DateTime : 06.01.2008 21:42
' Author : Burkhard Schlutt
' Purpose : Gibt ein Code-Modul als HTML-Datei aus
'---------------------------------------------------------------------------------------
'
Sub Parse_Code2HTML(mycode As CodeModule, HTMLTitle As String, HTMLFile As String)
Dim ts As TextStream
Dim Textfeld() As String
Set VB2HTML = New VB2HTMLLib.Parser
Set fso = New Scripting.FileSystemObject
ReDim Textfeld(1 To mycode.CountOfLines)
VB2HTML.IsFile = False ' This is the default value, but I wanted to show it.
VB2HTML.CommentColor = kccGreen ' This is the default value also.
VB2HTML.KeywordColor = kccBlue ' This is the default value also.
VB2HTML.Input = mycode.Lines(1, mycode.CountOfLines)
VB2HTML.Title = HTMLTitle
VB2HTML.ShowFormAttributes = True
' Convert the input to HTML.
Call VB2HTML.Convert
' Write it out to the file.
Set ts = fso.CreateTextFile(HTMLFile)
Call ts.Write(VB2HTML.Output)
ts.Close
Set ts = Nothing
End Sub
Sub Parse_File2HTML(ModFile As String, HTMLTitle
As String, HTMLFile As String)
Dim ts As TextStream
Set VB2HTML = New VB2HTMLLib.Parser
Set fso = New
Scripting.FileSystemObject VB2HTML.IsFile = True
' This is the default value, but I wanted to show it.
VB2HTML.CommentColor = kccGreen ' This is the default value also.
VB2HTML.KeywordColor = kccBlue ' This is the default value also.
VB2HTML.Input = ModFile VB2HTML.Title = HTMLTitle VB2HTML.ShowFormAttributes =
True
' Convert the input to HTML.
Call VB2HTML.Convert
' Write it out to the file.
Set ts = fso.CreateTextFile(HTMLFile)
Call ts.Write(VB2HTML.Output) ts.Close
Set ts = Nothing End Sub
