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

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

按键精灵安卓版
立即下载

软件版本:3.5.1
软件大小:41.4M
更新时间:09-27

按键精灵iOS版
立即下载

软件版本:1.7.2
软件大小:29.2M
更新时间:09-27

最新企业版UiBot
立即下载

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

快捷导航

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

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

[已解决] TEXTS每次的结果是加上之前的字符串,我要的是最后一次的结果 [复制链接]

1#
//把文本内容存放在变量里
text = ",13555982269通常被用来检索、替换那些符合某个模式的文本。"
Dim regEx, Matches, Match '需要用到的几个变量
set regEx = New RegExp '创建一个RegExp对象
regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
regEx.pattern ="\d+" '设置正则表达式
Set matches = regEx.execute(text) '进行匹配
For Each Match In Matches
texts = Match & vbcrlf & texts
next
MessageBox texts

text = "13813237666通常被用来检索、替换那些符合某个模式的文本。"
set regEx = New RegExp '创建一个RegExp对象
regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
regEx.pattern ="\d+" '设置正则表达式
Set matches = regEx.execute(text) '进行匹配
For Each Match In Matches
texts = Match & vbcrlf & texts
next
MessageBox texts

本主题由 超级版主 瑞祥幽冥狼 于 2021/10/12 22:20:41 执行 审核帖子 操作
2#

回复 1楼634199583的帖子
  1. text = ",13555982269通常被用来检索、替换那些符合某个模式的文本。"
  2. Dim regEx, Matches, Match '需要用到的几个变量
  3. set regEx = New RegExp '创建一个RegExp对象
  4. regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
  5. regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
  6. regEx.pattern ="\d+" '设置正则表达式
  7. Set matches = regEx.execute(text) '进行匹配
  8. For Each Match In Matches
  9. texts = Match & vbcrlf & texts
  10. next
  11. MessageBox texts
  12. texts=""
  13. text = "13813237666通常被用来检索、替换那些符合某个模式的文本。"
  14. set regEx = New RegExp '创建一个RegExp对象
  15. regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
  16. regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
  17. regEx.pattern ="\d+" '设置正则表达式
  18. Set matches = regEx.execute(text) '进行匹配
  19. For Each Match In Matches
  20. texts = Match & vbcrlf & texts
  21. next
  22. MessageBox texts
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 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[可加]
3#

谢谢

发新话题 回复该主题