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

软件版本: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

快捷导航

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

发新话题 回复该主题

[老狼] [老狼][源码分享]----自动生成分割源码----被城管追赶的第一天(1... [复制链接]

1#
功能说明:
1. 自动生成指定"字符串"的分割代码
2. 自动生成处理历史(仿人处理思维),并可通过双击第几次的字眼,直接生成对应分割代码
3. 偷懒、便于新人理解与学习
效果一览:

源码一览:
  1. Event Form1.Button1.Click
  2. PutAttachment "c:\","*.txt"
  3. Form1.ListBox1.List = ""
  4. 总内容 = Form1.InputBox1.Text
  5. 要取内容 = Form1.InputBox2.Text
  6. Form1.ListBox1.AddItem "需要取对象--" & 要取内容
  7. 对象位置=instr(总内容, 要取内容)
  8. If 对象位置 = 0 Then
  9. Form1.ListBox1.AddItem "对象不存在获取失败..."
  10. Exit Event
  11. End If
  12. Form1.ListBox1.AddItem "对象位置--" & 对象位置
  13. For i = 1 To 30
  14. Form1.ListBox1.AddItem "====================="
  15. Form1.ListBox1.AddItem "第" & i & "次提取"
  16. 第一次分割=Mid(总内容,对象位置-i,i)
  17. Form1.ListBox1.AddItem "第一次分割字符串--" & 第一次分割

  18. 第二次分割=Mid(总内容, (对象位置 + len(要取内容)), i)
  19. Form1.ListBox1.AddItem "第二次分割字符串--" & 第二次分割
  20. 分割 = GetStrAB(总内容, 第一次分割, 第二次分割)
  21. Form1.ListBox1.AddItem "结果--" & 分割
  22. If 分割 = 要取内容 Then
  23. Exit Event
  24. End If
  25. Next
  26. End Event
  27. Function GetStrAB(Str, StrA, StrB)
  28. Dim i,ArrStrA,Ck
  29. ArrStrA=Split(Str,StrA)
  30. For i = 1 To UBound(ArrStrA)
  31. If InStr(ArrStrA(i), StrB) > 0 Then Ck = Ck & Split(ArrStrA(i),StrB)(0) &"*"
  32. Next
  33. If UBound(split(ck, "*")) = 1 Then
  34. GetStrAB=Replace(ck,"*","")
  35. Else
  36. GetStrAB=Ck
  37. End If
  38. End Function
  39. Event Form1.ListBox1.DblClick
  40. 第一次分割内容 = split(split(Form1.ListBox1.List, "|")(Form1.ListBox1.ListIndex + 1), "--")(1)
  41. 第一次分割内容 = chr(34)& Replace(第一次分割内容, chr(34), chr(34) & chr(34))&chr(34)
  42. TracePrint 第一次分割内容
  43. 第二次分割内容 = split(split(Form1.ListBox1.List, "|")(Form1.ListBox1.ListIndex + 2), "--")(1)
  44. 第二次分割内容= chr(34)&Replace(第二次分割内容,chr(34),chr(34)&chr(34))&chr(34)
  45. TracePrint 第二次分割内容
  46. Text = Replace( Plugin.File.ReadFileEx("C:\生成分割代码.txt"),"|",vbcrlf)
  47. 第一行= "TracePrint GetStrAB(总内容, "&第一次分割内容&","&第二次分割内容&")"
  48. Call Plugin.Sys.SetCLB(第一行 & vbcrlf & Text)
  49. MessageBox "生成代码成功. ..."
  50. End Event
复制代码
源文件下载:

SCFG.rar (, 下载次数:47)

最后编辑瑞祥幽冥狼 最后编辑于 2022-02-20 22:41:37
本主题由 超级版主 瑞祥幽冥狼 于 2023/9/26 8:38:42 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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#

什么东西,怎么用的

7#

什么东西,怎么用的

8#

6级萌新瑟瑟发抖

9#

学习了

10#

白嫖了

11#

支持一下,

12#

学习学习

13#


14#

这个有点方便了

15#

生成代码成功. .

16#

学习

17#

請收下我的膝蓋

18#

123123123

19#

学习一下

20#

看不懂呢

发新话题 回复该主题