以下內容

轉載

自按鍵精靈開發者：

瑞祥幽冥狼

感謝大大的支援與熱心分享！

效果一覽：

程式碼一覽：

Event Form1。Button1。Click

Call Plugin。File。WriteINI（Form1。InputBox1。text ， “命令名稱”， Form1。InputBox1。text， “C：\Config。ini”）

Call Plugin。File。WriteINI（Form1。InputBox1。text ， “命令功能”， Form1。InputBox2。text， “C：\Config。ini”）

Call Plugin。File。WriteINI（Form1。InputBox1。text ， “引數”，Replace（ Form1。InputBox3。text，vbcrlf，“|”） ， “C：\Config。ini”）

Call Plugin。File。WriteINI（Form1。InputBox1。text ， “返回值”， Form1。InputBox4。text， “C：\Config。ini”）

Call Plugin。File。WriteINI（Form1。InputBox1。text， “指令碼例子”， Replace（Form1。InputBox5。text， vbcrlf， “|”）， “C：\Config。ini”）

BeginThread 讀取所有命令名稱

End Event

Event Form1。LoadOver

BeginThread 讀取所有命令名稱

End Event

Sub 讀取所有命令名稱（）

Text = Plugin。File。ReadFileEx（“C：\Config。ini”）

Form1。ListBox1。List=GetStrAB（Text， “［”， “］”）

End Sub

Function GetStrAB（Str， StrA， StrB）

Dim i，ArrStrA，Ck

ArrStrA=Split（Str，StrA）

For i = 1 To UBound（ArrStrA）

If InStr（ArrStrA（i）， StrB） > 0 Then Ck = Ck & Split（ArrStrA（i），StrB）（0） &“|”

Next

GetStrAB=Ck

End Function

Event Form1。ListBox1。DblClick

選中值 = Split（Form1。ListBox1。List， “|”）（Form1。ListBox1。ListIndex）

TracePrint 選中值

Form1。InputBox1。text = Plugin。File。ReadINI（選中值，“命令名稱”， “C：\Config。ini”）

Form1。InputBox2。text = Plugin。File。ReadINI（選中值， “命令功能”， “C：\Config。ini”）

Form1。InputBox3。text = Replace（ Plugin。File。ReadINI（選中值， “引數”， “C：\Config。ini”），“|”，vbcrlf）

Form1。InputBox4。text = Plugin。File。ReadINI（選中值， “返回值”， “C：\Config。ini”）

Form1。InputBox5。text = Replace（ Plugin。File。ReadINI（選中值，“指令碼例子”， “C：\Config。ini”），“|”，vbcrlf）

End Event

Event Form1。Button2。Click

BeginThread 製作Html

End Event

Sub 製作Html（）

Input = InputBox（“輸入將製作Html文件名稱［不用帶。Html］”）

Call Plugin。File。DeleteFile（“C：\” & Input & “。html”）

Call Plugin。File。DeleteFile（“C：\one。txt”）

Call Plugin。File。DeleteFile（“C：\two。txt”）

Do

PutAttachment “C：\”， “*。*”

If Plugin。File。IsFileExist（“C：\two。txt”） = True and Plugin。File。IsFileExist（“C：\one。txt”） = True Then

Exit Do

End If

Delay 500

Loop

分割 = Split（Form1。ListBox1。List， “|”）

For i = 0 To UBound（分割） - 1

TracePrint 分割（i）

Form1。InputBox1。text = Plugin。File。ReadINI（分割（i），“命令名稱”， “C：\Config。ini”）

Form1。InputBox2。text = Plugin。File。ReadINI（分割（i）， “命令功能”， “C：\Config。ini”）

Form1。InputBox3。text = Replace（ Plugin。File。ReadINI（分割（i）， “引數”， “C：\Config。ini”），“|”，vbcrlf）

Form1。InputBox4。text = Plugin。File。ReadINI（分割（i）， “返回值”， “C：\Config。ini”）

Form1。InputBox5。text = Replace（Plugin。File。ReadINI（分割（i）， “指令碼例子”， “C：\Config。ini”）， “|”， vbcrlf）

Text = Plugin。File。ReadFileEx（“C：\two。txt”）

Text = Replace（Text， “Var1”， Form1。InputBox1。text）

Text = Replace（Text， “Var2”， Form1。InputBox2。text）

Text = Replace（Text， “Var3”， Replace（ Form1。InputBox3。text，“|”，vbcrlf））

Text = Replace（Text， “Var4”， Form1。InputBox4。text）

Text = Replace（Text，“Var5”， Replace（Form1。InputBox5。text， “|”， vbcrlf））

TracePrint text

Call Plugin。File。WriteFileEx（“C：\one。txt”，“”&Replace（Text，“|”，vbcrlf））

Delay 50

Next

Call Plugin。File。ReNameFile（“C：\one。txt”， “C：\” & Input & “。html”）

Call Plugin。File。DeleteFile（“C：\two。txt”）

Call Plugin。File。DeleteFile（“C：\one。txt”）

MessageBox “生成完畢，檔案位於C盤”

End Sub

Event Form1。UnLoad

Call Plugin。File。DeleteFile（“C：\two。txt”）

End Event

Event Form1。Button3。Click

Call Plugin。File。DeleteFile（“C：\Config。ini”）

BeginThread 讀取所有命令名稱

End Event

Event Form1。Button4。Click

call Plugin。Sys。SetCLB（Form1。InputBox5。text）

MessageBox “命令複製完成”

End Event

更多精彩內容，歡迎關注

微信公眾號：按鍵精靈公眾號

按鍵精靈論壇：bbs.anjian.com