帮助你将按键脚本源代码，按照论坛Discuz!语言进行重新格式编排，主要是对语法进行着色，使脚本代码看起来更好看。

1.演示了如何调用系统打开文件对话框，以及如何根据用户的选择，进行下一步的操作(如打开文件等)。

2.演示了在“按键精灵”中，VBScript语言与按键精灵语言是怎么紧密结合在一起工作的(在使用中，你如果不注意，根本体会不到是在使用VBS语言)。

3.演示了如何从头至尾，读取文件中的所有行，以及同时打开两个文件，从一个文件中读、往另外一个文件写操作。

4.演示如何从文件名获取文件的路径。

5.演示如何读写INI文件中脚本配置。

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@ahfxman, 风烈焰。 2006年9月//变量定义

Dim objDialog, fso

Dim fSourceName,fTargetname

Dim sLine, s, stemp1,stemp2

Dim LineLenOld, LineLenNew

Dim MyArray, i1, i, s1

Dim DirPath

//变量初始化

ForReading = 1:ForWriting = 2:ForAppending=8

remColor="Green"

explainColor="Blue"

IniFileName="c:\path.ini"

//============== 主程序 ===============

Gosub 读取路径

Gosub 打开文件

Rem 结束

MessageBox "程序结束, 谢谢使用"

EndScript

//============== 子程序 ===============

Sub 打开文件

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "脚本文件|*.txt"

objDialog.InitialDir = DirPath

intResult = objDialog.ShowOpen

If intResult <> 0

Gosub 保存路径

Gosub 改名

Gosub 格式编辑

Else

Goto 结束

EndIf

Return 打开文件

Sub 保存路径

sTemp2 = objDialog.FileName

MyArray = Split(sTemp2,"\",-1,1)

i = UBound(MyArray)

i1 = 1

s1 = MyArray(0)

While i1

s1 = s1 & "\" & MyArray(i1)

i1 = i1+1

EndWhile

s1 = s1 & "\"

Plugin File.WriteINI("setup","路径",s1,IniFileName)

Return 保存路径

Sub 读取路径

DirPath = "c:\"

Plugin DirPath = File.ReadINI("setup","路径",IniFileName)

Return 读取路径

Sub 改名

fSourceName = objDialog.FileName

fTargetName = Replace(fSourceName,".txt",".ini")

Return 改名

Sub 格式编辑

Set fso = CreateObject("Scripting.FileSystemObject")

Set fSource = fso.OpenTextFile(fSourceName, ForReading, True)

Set fTarget = fso.OpenTextFile(fTargetName, ForWriting, True)

While fSource.AtEndOfStream<>true

sLine = fSource.ReadLine()

lineLenOld = Len(sLine)

s=Trim(sLine)

lineLenNew = Len(s)

sTemp1 = Left(s,2)

sTemp2 = Right(s,Len(s)-2)

If s="[General]"

s="[color=" & explainColor & "]" & s

ElseIf s="[Script]"

s="[/color][color=" & explainColor & "]" & s & "[/color]"

ElseIf sTemp1="//"

s="[color=" & remColor & "]" &s &"[/color]"

Else

EndIf

s = Space(lineLenOld-lineLenNew) & s

fTarget.WriteLine(s)

EndWhile

fSource.Close

fTarget.Close

VBSCall RunApp(fTargetName)

Return 格式编辑

文件下载

解压密码：

Tags：按键精灵

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)