People Ignore Design That Ignores People

People Ignore Design That Ignores People

'---------------------------------------------------------------------------------------
' 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

Ratgeber Paint.Net Kostenlose Flashtools Skywalk Webdesign Gleimstraße 50 iMacro Impressum & Kontakt