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

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

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 7979|回复: 4

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

瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26975
  • 25
  • 8050 朵
  • 36129 个
  • 4746 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
1#
t T
发表于 2021-02-03 15:04 | |只看楼主

  • 解决自带[插入文本内容到指定行]、[删除指定行文本内容]、[替换指定行文本内容]存在的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
复制代码
最后编辑瑞祥幽冥狼 最后编辑于 2022-02-28 22:06:43
本主题由 超级版主 瑞祥幽冥狼 于 2022/3/16 10:08:58 执行 审核帖子 操作
点赞
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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［可加］
回顶部
瑞祥幽冥狼
头像

按 键 工 程 师 ● 兼 职

  • 超级版主
  • 1228894
  • 26975
  • 25
  • 8050 朵
  • 36129 个
  • 4746 个
  • 421340
  • 2012-07-18
按键X开拓者勋章过大年勋章双十一绝版纪念勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章按键学院幸运草勋章马年勋章鹰眼勋章黄瓜勋章天使勋章按键明星黄金之翼举报达人活动狂人骨灰级按键用户按键精灵开发者6级龙年勋章十周年勋章兔年勋章论坛GG发帖高手爱心大使学有所成按键运营团队按键元老管理人员
2#
t T
发表于 2021-08-22 15:56 | |只看楼主

回复 1楼瑞祥幽冥狼的帖子

2021.08.22更新
  1. Sub 删(路径, 行)
  2. Text = Plugin.File.ReadFileEx(路径)
  3. 数组行 = Split(Mid(Text,1,len(Text)-1), "|")
  4. // TracePrint UBound(数组行) + 1
  5. If 行 > UBound(数组行) + 1 Then
  6. MessageBox "行数超出"
  7. Else
  8. 数组行(行-1) = ""
  9. 新内容 = join(数组行, "|")
  10. Do Until instr(新内容, "||") = 0
  11. 新内容 = Replace(新内容, "||", "|")
  12. TracePrint 新内容
  13. Loop
  14. If mid(新内容, 1, 1) = "|" Then
  15.     新内容=mid(新内容,2,len(新内容))
  16. End If
  17. TracePrint 新内容
  18. 新内容=Replace(新内容,"|",vbcrlf)
  19. Call Plugin.File.DeleteFile(路径)
  20. Call Plugin.File.WriteFileEx(路径, 新内容)
  21. End If
  22. End Sub
复制代码
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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［可加］
回顶部
a13640469778
头像

a13640469778

  • 小学一年级
  • 201185
  • 19
  • 0
  • 13 朵
  • 16 个
  • 20 个
  • 0
  • 2008-10-22
图灵勋章按键精灵开发者2级
3#
t T
发表于 2021-11-15 22:50 | |只看该用户


回顶部
woshinibaw
头像

  • 小学二年级
  • 4533877
  • 37
  • 0
  • 23 朵
  • 48 个
  • 27 个
  • 100
  • 2017-07-04
4#
t T
发表于 2022-03-16 10:07 | |只看该用户


回顶部
多多长得真帅
头像

多多长得真帅

  • 〖教程达人〗
  • 8035551
  • 107
  • 0
  • 111 朵
  • 137 个
  • 112 个
  • 0
  • 2020-11-26
教程达人
5#
t T
发表于 2023-05-08 10:50 | |只看该用户


回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器