1. //变量定义
2. Dim objDialog, fso
3. Dim fSourceName,fTargetname
4. Dim sLine, s, stemp1,stemp2
5. Dim LineLenOld, LineLenNew
6. Dim MyArray, i1, i, s1
7. Dim DirPath
8. //变量初始化
9. ForReading = 1:ForWriting = 2:ForAppending=8
10. remColor="Green"
11. explainColor="Blue"
12. IniFileName="c:\path.ini"
13. //============== 主程序 ===============
14. 调用子程序 读取路径
15. 调用子程序 打开文件
16. 标记 结束
17. 弹出窗口 "程序结束, 谢谢使用"
18. 脚本停止运行
19. //============== 子程序 ===============
20. 子程序 打开文件
21.     Set objDialog = CreateObject("UserAccounts.CommonDialog")
22.     objDialog.Filter = "脚本文件|*.txt"
23.     objDialog.InitialDir = DirPath
24.     intResult = objDialog.ShowOpen
25.     如果表达式 (intResult <> 0) 为真,则
26.         调用子程序 保存路径
27.         调用子程序 改名
28.         调用子程序 格式编辑
29.     否则
30.         跳转到标记 结束
31.     条件结束
32. 子程序结束,回到调用处
33. 子程序 保存路径
34.     sTemp2 = objDialog.FileName
35.     MyArray = Split(sTemp2,"\",-1,1)
36.     i = UBound(MyArray)
37.     i1 = 1
38.     s1 = MyArray(0)
39.     如果表达式 (i1<i) 为真,则循环执行
40.         s1 = s1 & "\" & MyArray(i1)
41.         i1 = i1+1
42.     循环结束
43.     s1 = s1 & "\"
44.     调用插件命令 File.WriteINI("setup","路径",s1,IniFileName)
45. 子程序结束,回到调用处
46. 子程序 读取路径
47.     DirPath = "c:\"
48.     调用插件命令 DirPath = File.ReadINI("setup","路径",IniFileName)
49. 子程序结束,回到调用处
50. 子程序 改名
51.     fSourceName = objDialog.FileName
52.     fTargetName = Replace(fSourceName,".txt",".ini")
53. 子程序结束,回到调用处
54. 子程序 格式编辑
55.     Set fso = CreateObject("Scripting.FileSystemObject")
56.     Set fSource = fso.OpenTextFile(fSourceName, ForReading, True)
57.     Set fTarget = fso.OpenTextFile(fTargetName, ForWriting, True)
58.     如果表达式 (fSource.AtEndOfStream<>true) 为真,则循环执行
59.         sLine = fSource.ReadLine()
60.         lineLenOld = Len(sLine)
61.         s=Trim(sLine)
62.         lineLenNew = Len(s)
63.         sTemp1 = Left(s,2)
64.         sTemp2 = Right(s,Len(s)-2)
65.         如果表达式 (s="[General]") 为真,则
66.             s="[color=" & explainColor & "]" & s
67.         否则如果(s="[Script]")为真,则
68.             s="[/color][color=" & explainColor & "]" & s & "[/color]"
69.         否则如果(sTemp1="//")为真,则
70.             s="[color=" & remColor & "]" &s &"[/color]"
71.         否则
72.         条件结束
73.         s = Space(lineLenOld-lineLenNew) & s
74.         fTarget.WriteLine(s)
75.     循环结束
76.     fSource.Close
77.     fTarget.Close
78.     调用外部VBScript子程序 运行一个外部程序(fTargetName)
79. 子程序结束,回到调用处