正则表达式把文本中的数学算式提取出来

jiangweifujian · 发表于 2021-2-26 17:57

本帖最后由 jiangweifujian 于 2021-3-1 09:03 编辑

如题,如何在一段文本中,把里面的数学算式抓出来,用正则表达式或其它方法?
例如:
文本: "单价7.3/卷RMB，平均月使用量150卷，一年7.3RMB*150*12" 结果:7.3*150*12
文本: "负的50加6个,再乘以2的6次方-(50个+6个)*2^6" 结果:-(50+6)*2^6

paladin1987 · 发表于 2021-2-26 18:01

看不出有啥规律，等大神出现

qingc0221 · 发表于 2021-2-26 19:02

提取等号后面的公式,然后把文字全替换成""就行了

hzqhxy · 发表于 2021-2-26 19:39

Function tq_jss$(ms$)
If Len(ms) < 1 Then Exit Function
ms = Split(ms, "=")(1)
Dim reg As Object: Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "[a-zA-Z一-龥]"
tq_jss = .Replace(ms, "")
End With
Set reg = Nothing
End Function

复制代码

renkangjizhen · 发表于 2021-2-26 20:45

可以分2步进行

shenjianrong163 · 发表于 2021-2-26 21:33

Sub test()
Dim reg, s$
s = "-50加6个,再乘以2的6次方=(-50+6个)*2^6"
Set reg = CreateObject("vbscript.regexp")
With reg
.Global = True
.Pattern = "(.*?=)(.*)"
End With
s = reg.Replace(s, "$2")
reg.Pattern = "[a-zA-Z\u4e00-\u9fa5]"
Debug.Print reg.Replace(s, "")
End Sub

复制代码

ggmmlol · 发表于 2021-2-26 21:58

正则表达式：
^.*=|[^\d\.\+\-\*/\^]

DevilW · 发表于 2021-2-26 22:01

Sub test()
s = "单价7.3/卷RMB，平均月使用量150卷，一年=7.3RMB*150*12"
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = ".*=|[^\d.*/+\-^()]+"
MsgBox reg.Replace(s, "")
End Sub

复制代码

jiangweifujian · 发表于 2021-3-1 08:51

hzqhxy 发表于 2021-2-26 19:39

您这个是用等于号分开多个值,在这可以用,如果没有等于号或多个等于号呢.

jiangweifujian · 发表于 2021-3-1 08:58

DevilW 发表于 2021-2-26 22:01

不好意思,如果算式前面没等号呢?

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

[求助] 正则表达式把文本中的数学算式提取出来

最新热点 /1