COM/wsh/convert.vbs

BASE_DIR = "D:\WSH"

Set ToHTML = CreateObject("SysTools.StToHTML")
Set S = CreateObject("SysTools.StString")

ToHTML.License("STD123456ABCDEF")
S.License("STD123456ABCDEF")

Set objArgs = WScript.Arguments

For I = 0 to objArgs.Count - 1
  ToHTML.LoadFromFile(objArgs(I))
  
  select case UCase(S.JustExtension(objArgs(I))) 
    case "C", "CPP", "H"
      ToHTML.CommentMarkers.Clear
      ToHTML.CommentMarkers.Add("/*=*/;<I>;</I>")
      ToHTML.CommentMarkers.Add("//=;<I>;</I>")
      ToHTML.Keywords.LoadFromFile(BASE_DIR & "\KWBUILDR.TXT")    
    
    case "PAS"
      ToHTML.CommentMarkers.Clear
      ToHTML.CommentMarkers.Add("{=};<I>;</I>")
      ToHTML.CommentMarkers.Add("(*=*);<I>;</I>")
      ToHTML.Keywords.LoadFromFile(BASE_DIR & "\KWPASCAL.TXT")
  end select
  
  ToHTML.GenerateHTML
  ToHTML.SaveToFile(objArgs(I) & ".htm")
  ToHTML.Clear
Next

Set objArgs = nothing
Set S = nothing
Set ToHTML = nothing


1	torben	2671	BASE_DIR = "D:\WSH"
2
3			Set ToHTML = CreateObject("SysTools.StToHTML")
4			Set S = CreateObject("SysTools.StString")
5
6			ToHTML.License("STD123456ABCDEF")
7			S.License("STD123456ABCDEF")
8
9			Set objArgs = WScript.Arguments
10
11			For I = 0 to objArgs.Count - 1
12			ToHTML.LoadFromFile(objArgs(I))
13
14			select case UCase(S.JustExtension(objArgs(I)))
15			case "C", "CPP", "H"
16			ToHTML.CommentMarkers.Clear
17			ToHTML.CommentMarkers.Add("/=/;<I>;</I>")
18			ToHTML.CommentMarkers.Add("//=;<I>;</I>")
19			ToHTML.Keywords.LoadFromFile(BASE_DIR & "\KWBUILDR.TXT")
20
21			case "PAS"
22			ToHTML.CommentMarkers.Clear
23			ToHTML.CommentMarkers.Add("{=};<I>;</I>")
24			ToHTML.CommentMarkers.Add("(=);<I>;</I>")
25			ToHTML.Keywords.LoadFromFile(BASE_DIR & "\KWPASCAL.TXT")
26			end select
27
28			ToHTML.GenerateHTML
29			ToHTML.SaveToFile(objArgs(I) & ".htm")
30			ToHTML.Clear
31			Next
32
33			Set objArgs = nothing
34			Set S = nothing
35			Set ToHTML = nothing
36
37
38
39