求解正则表达式

zhouzhongchi · 发表于 2015-10-23 10:55

wj2368 发表于 2015-10-23 10:42
"$\d+\.\d+$"
三个可以提取,就是前面是字母的排除不了

谢谢您的回复！我的求助与楼主的问题无关，搭个便车。

xd3210 · 发表于 2015-10-23 11:34

本帖最后由 xd3210 于 2015-10-23 11:35 编辑

谢谢9楼、10楼两位老师解答。
我求的这个正则想用在四则运算上（wj2368老师把过程名起为'ys'，似乎洞察吾心！），匹配成功后用replace方法替换为空，因为它们不是参与计算的元素，是一些无关信息，不匹配'(45.3)',因为它是三解函数的参数，要参与计算。

袁振涛 · 发表于 2015-10-23 11:40

你还不如说取出参与运算的
那样有限制条件的，反而容易求

xd3210 · 发表于 2015-10-23 11:48

袁振涛发表于 2015-10-23 11:40
你还不如说取出参与运算的
那样有限制条件的，反而容易求

我的计算要求是：括号内没有运算符、纯数字（整数、大于1小数、小于1小数），且不是函数参数的连括号去掉，其他的字符串参与四则运算。按照您的思路，如何来写这个正则？谢谢！

袁振涛 · 发表于 2015-10-23 11:56

我有个问题，括号是否存在嵌套情况
另外2（5.55）这种情况怎样处理
其他字符串是指什么

39660519 · 发表于 2015-10-23 12:02

好像你的括号都是不一样的

xd3210 · 发表于 2015-10-23 12:23

袁振涛发表于 2015-10-23 11:56
我有个问题，括号是否存在嵌套情况
另外2（5.55）这种情况怎样处理
其他字符串是指什么

括号会嵌套，2（5.55）括号及其内纯数字要去掉。

xd3210 · 发表于 2015-10-23 12:26

其他字符是指有效的参与四则运算的所有运算符号、数字等

xd3210 · 发表于 2015-10-23 12:32

39660519 发表于 2015-10-23 12:02
好像你的括号都是不一样的

输入计算式时有时还有中文注解，可能全角、半角切换不正确，在计算之前首先作全角替换，不会影响计算。

紫川文秀 · 发表于 2015-10-23 12:58

Sub tt()
Dim s$, m, matches
s = "(88+88)+sin(45.3)+(22.33)+2(33.99)+(55+77）"
With CreateObject("VBScript.RegExp")
.Pattern = "[^n]$\d+\.?\d+$"
.Global = True
Set matches = .Execute(s)
If .test(s) Then
For Each m In matches
Debug.Print Right(m.Value, Len(m.Value) - 1)
Next
End If
End With
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[已解决] 求解正则表达式

评分