提取数值

清风明月10 · 发表于 2013-6-19 20:23:39

购买主题 已有 1 人购买 本主题需向作者支付 10 D豆 才能浏览

jyzas · 发表于 2013-8-5 07:19:06

楼主穷疯了，这么贵
:P

WongFoling · 发表于 2020-5-16 19:04:10

打开了额

huofenghuang · 发表于 2021-6-28 17:27:43

Public Function 提取数值(字符串, 第N个)

'有修改2013年3月21日

Dim regx As Object
   Set regx = CreateObject("VBScript.RegExp") '创建正

   Dim 正则表达式



   'Dim regx As New RegExp
      Dim sr

'  正则表达式 = "\d+\.?\d+"'“+”号表示(1,),“*”表示(0,)
正则表达式 = "\d+\.?\d*" '“+”号表示(1,),“*”表示(0,)

      With regx
   .Global = True
   .Pattern = 正则表达式

   提取数值 = .Execute(字符串)(第N个 - 1)
         End With

End Function

账号		自动登录	找回密码
密码			立即注册

清风明月10 清风明月10 当前离线 UID 675122 积分 762 精华贡献威望活跃度 D豆在线时间小时注册时间 2013-4-17 最后登录 1970-1-1 窥视卡雷达卡	发表于 2013-6-19 20:23:39 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略购买主题已有 1 人购买本主题需向作者支付 10 D豆才能浏览
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

[原创] 提取数值