• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

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

按键精灵安卓版
立即下载

软件版本:3.3.8
软件大小:62.5M
更新时间:12-18

按键精灵iOS版
立即下载

软件版本:1.7.1
软件大小:29.2M
更新时间:06-22

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

代码分享----PC按键----文本处理之替、追、删、增、插、读[第十... [复制链接]

1#

  • 解决自带[插入文本内容到指定行]、[删除指定行文本内容]、[替换指定行文本内容]存在的BUG
  1. Call 追("C:\Users\Administrator\Desktop\1.txt", 3, "2")
  2. Call 替("C:\Users\Administrator\Desktop\1.txt", 2, "1")
  3. Call 删("C:\Users\Administrator\Desktop\1.txt", 3)
  4. Call 插("C:\Users\Administrator\Desktop\1.txt",2, "你")
  5. Call 增("C:\Users\Administrator\Desktop\1.txt", "你")
  6. TracePrint 读("C:\Users\Administrator\Desktop\1.txt", 3)
  7. Sub 替(路径, 行, 新内容)
  8. Text = Plugin.File.ReadFileEx(路径)
  9. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  10. TracePrint UBound(数组行) + 1
  11. If 行 > UBound(数组行) + 1 Then
  12. MessageBox "行数超出"
  13. Else
  14. 数组行(行-1) = 新内容
  15. 新内容 = join(数组行, "|")
  16. TracePrint 新内容
  17. 新内容=Replace(新内容,"|",vbcrlf)
  18. Call Plugin.File.DeleteFile(路径)
  19. Call Plugin.File.WriteFileEx(路径, 新内容)
  20. End If
  21. End Sub
  22. Sub 追(路径, 行, 新内容)
  23. Text = Plugin.File.ReadFileEx(路径)
  24. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  25. TracePrint UBound(数组行) + 1
  26. If 行 > UBound(数组行) + 1 Then
  27. MessageBox "行数超出"
  28. Else
  29. 数组行(行-1) = 数组行(行-1)&新内容
  30. 新内容 = join(数组行, "|")
  31. TracePrint 新内容
  32. 新内容=Replace(新内容,"|",vbcrlf)
  33. Call Plugin.File.DeleteFile(路径)
  34. Call Plugin.File.WriteFileEx(路径, 新内容)
  35. End If
  36. End Sub
  37. Sub 删(路径, 行)
  38. Text = Plugin.File.ReadFileEx(路径)
  39. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  40. TracePrint UBound(数组行) + 1
  41. If 行 > UBound(数组行) + 1 Then
  42. MessageBox "行数超出"
  43. Else
  44. 数组行(行-1) = ""
  45. 新内容 = join(数组行, "|")
  46. Do Until instr(新内容, "||") = 0
  47. 新内容 = Replace(新内容, "||", "|")
  48. TracePrint 新内容
  49. Loop
  50. TracePrint 新内容
  51. 新内容=Replace(新内容,"|",vbcrlf)
  52. Call Plugin.File.DeleteFile(路径)
  53. Call Plugin.File.WriteFileEx(路径, 新内容)
  54. End If
  55. End Sub
  56. Sub 插(路径, 行,内容)
  57. Text = Plugin.File.ReadFileEx(路径)
  58. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  59. TracePrint UBound(数组行) + 1
  60. If 行 > UBound(数组行) + 1 Then
  61. MessageBox "行数超出"
  62. Else
  63. 数组行(行-1) = 内容&"|"&数组行(行-1)
  64. 新内容 = join(数组行, "|")
  65. Do Until instr(新内容, "||") = 0
  66. 新内容 = Replace(新内容, "||", "|")
  67. TracePrint 新内容
  68. Loop
  69. TracePrint 新内容
  70. 新内容=Replace(新内容,"|",vbcrlf)
  71. Call Plugin.File.DeleteFile(路径)
  72. Call Plugin.File.WriteFileEx(路径, 新内容)
  73. End If
  74. End Sub
  75. Sub 增(路径, 内容)
  76. Call Plugin.File.WriteFileEx(路径, 内容)
  77. End Sub
  78. Function 读(路径, 行)
  79. Text = Plugin.File.ReadFileEx(路径)
  80. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  81. TracePrint UBound(数组行) + 1
  82. If 行 > UBound(数组行) + 1 Then
  83. MessageBox "行数超出"
  84. Else
  85. 读=数组行(行-1)
  86. End If
  87. End Function
复制代码

最后编辑瑞祥幽冥狼 最后编辑于 2021-02-03 15:12:16
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
发新话题 回复该主题