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