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

软件版本: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#
如何在一段文字获取几组数字?比如:数组A=“012/013和015,54”
这段文字有符号中文,我只要数字
最终提取数值1=012 数值2=013 数值3=015 数值4=54
哪个大神会写的,帮忙指导下,谢谢!

2#

两包芙蓉王帮你处理

有事就QQ 136874377 QQ交流群300857068   接各种脚本定做 价格优惠
3#

  1. //
  2. //把文本内容存放在变量里
  3. text = "012/013和015,54"
  4. Dim regEx, Matches, Match '需要用到的几个变量
  5. set regEx = New RegExp '创建一个RegExp对象
  6. regEx.[Global] = TRUE '设置全局可用性为TRUE,在需要更换此属性时,我会提醒你的。
  7. regEx.IgnoreCase = FALSE '设置区分大小写为FALSE,也就是不区分大小写了
  8. regEx.pattern ="\d+" '设置正则表达式
  9. Set matches = regEx.execute(text)'进行匹配
  10. Dim 新数组(), counter : counter = 0
  11. ReDim 新数组(matches.count - 1)
  12. For Each Match In Matches
  13. texts = texts & Match & VbCrLf
  14. 新数组(counter) = Match
  15. counter = counter + 1
  16. Next
  17. TracePrint Join(新数组, ",")
  18. MessageBox texts
复制代码

4#

,

谢谢啦

5#

,

想问下这段话我加了SUB()语句 然后调用就报错是啥原因呀

发新话题 回复该主题