• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----插件、命令库帮助说明(即:Html)生成助手--... [复制链接]

1#
插件/命令库Html帮助生成助手开源
旧贴:小工具分享----插件/命令库Html帮助生成助手----[第六章]
开源原因:
1. 不用怀疑,我就是想



2. 更新or维护?更新这辈子是不可能更新了,开源出来等待有兴致的小伙伴偷电动车继续更新下去


效果一览:

代码一览:
  1. Event Form1.Button1.Click
  2. Call Plugin.File.WriteINI(Form1.InputBox1.text , "命令名称", Form1.InputBox1.text, "C:\Config.ini")
  3. Call Plugin.File.WriteINI(Form1.InputBox1.text , "命令功能", Form1.InputBox2.text, "C:\Config.ini")
  4. Call Plugin.File.WriteINI(Form1.InputBox1.text , "参数",Replace( Form1.InputBox3.text,vbcrlf,"|") , "C:\Config.ini")
  5. Call Plugin.File.WriteINI(Form1.InputBox1.text , "返回值", Form1.InputBox4.text, "C:\Config.ini")
  6. Call Plugin.File.WriteINI(Form1.InputBox1.text, "脚本例子", Replace(Form1.InputBox5.text, vbcrlf, "|"), "C:\Config.ini")
  7. BeginThread 读取所有命令名称
  8. End Event
  9. Event Form1.LoadOver
  10. BeginThread 读取所有命令名称
  11. End Event
  12. Sub 读取所有命令名称()
  13. Text = Plugin.File.ReadFileEx("C:\Config.ini")
  14. Form1.ListBox1.List=GetStrAB(Text, "[", "]")
  15. End Sub
  16. Function GetStrAB(Str, StrA, StrB)
  17. Dim i,ArrStrA,Ck
  18. ArrStrA=Split(Str,StrA)
  19. For i = 1 To UBound(ArrStrA)
  20. If InStr(ArrStrA(i), StrB) > 0 Then Ck = Ck & Split(ArrStrA(i),StrB)(0) &"|"
  21. Next
  22. GetStrAB=Ck
  23. End Function
  24. Event Form1.ListBox1.DblClick
  25. 选中值 = Split(Form1.ListBox1.List, "|")(Form1.ListBox1.ListIndex)
  26. TracePrint 选中值
  27. Form1.InputBox1.text = Plugin.File.ReadINI(选中值,"命令名称", "C:\Config.ini")
  28. Form1.InputBox2.text = Plugin.File.ReadINI(选中值, "命令功能", "C:\Config.ini")
  29. Form1.InputBox3.text = Replace( Plugin.File.ReadINI(选中值, "参数", "C:\Config.ini"),"|",vbcrlf)
  30. Form1.InputBox4.text = Plugin.File.ReadINI(选中值, "返回值", "C:\Config.ini")
  31. Form1.InputBox5.text = Replace( Plugin.File.ReadINI(选中值,"脚本例子", "C:\Config.ini"),"|",vbcrlf)
  32. End Event
  33. Event Form1.Button2.Click
  34. BeginThread 制作Html
  35. End Event
  36. Sub 制作Html()
  37. Input = InputBox("输入将制作Html文档名称[不用带.Html]")
  38. Call Plugin.File.DeleteFile("C:\" & Input & ".html")
  39. Call Plugin.File.DeleteFile("C:\one.txt")
  40. Call Plugin.File.DeleteFile("C:\two.txt")
  41. Do
  42. PutAttachment "C:\", "*.*"
  43. If Plugin.File.IsFileExist("C:\two.txt") = True and Plugin.File.IsFileExist("C:\one.txt") = True Then
  44. Exit Do
  45. End If
  46. Delay 500
  47. Loop
  48. 分割 = Split(Form1.ListBox1.List, "|")
  49. For i = 0 To UBound(分割) - 1
  50. TracePrint 分割(i)
  51. Form1.InputBox1.text = Plugin.File.ReadINI(分割(i),"命令名称", "C:\Config.ini")
  52. Form1.InputBox2.text = Plugin.File.ReadINI(分割(i), "命令功能", "C:\Config.ini")
  53. Form1.InputBox3.text = Replace( Plugin.File.ReadINI(分割(i), "参数", "C:\Config.ini"),"|",vbcrlf)
  54. Form1.InputBox4.text = Plugin.File.ReadINI(分割(i), "返回值", "C:\Config.ini")
  55. Form1.InputBox5.text = Replace(Plugin.File.ReadINI(分割(i), "脚本例子", "C:\Config.ini"), "|", vbcrlf)
  56. Text = Plugin.File.ReadFileEx("C:\two.txt")
  57. Text = Replace(Text, "Var1", Form1.InputBox1.text)
  58. Text = Replace(Text, "Var2", Form1.InputBox2.text)
  59. Text = Replace(Text, "Var3", Replace( Form1.InputBox3.text,"|",vbcrlf))
  60. Text = Replace(Text, "Var4", Form1.InputBox4.text)
  61. Text = Replace(Text,"Var5", Replace(Form1.InputBox5.text, "|", vbcrlf))
  62. TracePrint text
  63. Call Plugin.File.WriteFileEx("C:\one.txt","</td></tr></table>"&Replace(Text,"|",vbcrlf))
  64. Delay 50
  65. Next
  66. Call Plugin.File.ReNameFile("C:\one.txt", "C:\" & Input & ".html")
  67. Call Plugin.File.DeleteFile("C:\two.txt")
  68. Call Plugin.File.DeleteFile("C:\one.txt")
  69. MessageBox "生成完毕,文件位于C盘"
  70. End Sub
  71. Event Form1.UnLoad
  72. Call Plugin.File.DeleteFile("C:\two.txt")
  73. End Event
  74. Event Form1.Button3.Click
  75. Call Plugin.File.DeleteFile("C:\Config.ini")
  76. BeginThread 读取所有命令名称
  77. End Event
  78. Event Form1.Button4.Click
  79. call Plugin.Sys.SetCLB(Form1.InputBox5.text)
  80. MessageBox "命令复制完成"
  81. End Event
复制代码
源码下载:
html.zip (, 下载次数:72)

最后编辑瑞祥幽冥狼 最后编辑于 2022-02-20 22:43:32
本主题由 超级版主 瑞祥幽冥狼 于 2023/10/5 18:34:35 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

看看大佬的做法

3#

不知道新手能不能看懂

4#


5#


6#

狼哥6666

7#

牛逼 拿走了!

8#

必是精品啊

9#

必是精品啊

10#

大佬好牛呀

11#

学习一下

12#

学习一下

13#


[img]https://gukoohot.com/static/image/smiley/comcom/17.gif[/img] 按键精灵 QQ交流群: 547563540 (编程要从娃娃抓起) [img]https://gukoohot.com/static/image/smiley/comcom/19.gif[/img]
  微信打开扫一扫下方二维码:直通车进入按键精灵公众号
[img]http://files.anjian.com/forum/2021/11/08/207/ajLOGO.png[/img]
14#

学习一下插件、命令库帮助说明

15#

1111111111111

16#

好东西,下载再说

17#

6666666666666666666

18#

6666666

19#

学习一下

20#


发新话题 回复该主题