麻烦用正则表达式处理，谢谢

jiuri0221

如附件。每行都有一些文字或是符号，但是我只想要在其右边一列显示从中提取的规范的车牌号。

也就是说要去除空格等其他符号或是无用文字，小写变成大写等处理。

如果该行中没有车牌号信息，那么其右列就空白就可以了。

而且有经常把“豫”写成“予”的，也要替换过来。

liu-aguang

1. Sub test()
   
2.     arr = Range(Range("a1"), Range("a65536").End(xlUp))
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Pattern = "((?![一-龥]\w|\w+).)+"
   
5.         .Global = True
   
6.         For i = 1 To UBound(arr)
   
7.             arr(i, 1) = UCase(.Replace(arr(i, 1), ""))
   
8.         Next
   
9.     End With
   
10.     Range("b1").Resize(UBound(arr), 1) = arr
    
11. End Sub
    

复制代码

Moneky

liu-aguang 发表于 2015-5-19 09:53

大哥，能否帮忙写个匹配数学表达式的正则。能够匹配类似下面的表达式：

3+2=5
2/3+3×4=8
3a+2b=34-5c
(2+3a)/34^2y=5

liu-aguang

Moneky 发表于 2015-5-19 10:36
大哥，能否帮忙写个匹配数学表达式的正则。能够匹配类似下面的表达式：

3+2=5

正则表达式与匹配对象所处的字符串环境有很大关系. 环境简单正则可以用很简单的形式, 如果环境复杂即干扰字串多, 则需要更严格的正则. 不知兄弟情形如何?

Moneky

liu-aguang 发表于 2015-5-19 11:26
正则表达式与匹配对象所处的字符串环境有很大关系. 环境简单正则可以用很简单的形式, 如果环境复杂即干扰 ...

我是在word中做一个自己用的宏，目前写了代码可以将新版的线性公式转化为专业公式的宏。现在想写个代码用来在文档写好后，一次性自动转化所有表达式，操作方式是，先选中表达式，然后执行原来的代码转化即可。但卡在了用正则表达式匹配数学表达式的地方。

我用的是VBScript.RegExp对象，我主要是小学和初中的表达式，没有十分复杂的，主要能够匹配小学阶段的表达式就够用了，主要是含有分数和括号，如：
3x+2(y+3)=8/3
3 2/3+5 1/2=

这种形式的，会含有空格，空格每次出现时只有一个连续的，但一个表达式中可能出现多次。

谢谢！

liu-aguang

Moneky 发表于 2015-5-19 11:46
我是在word中做一个自己用的宏，目前写了代码可以将新版的线性公式转化为专业公式的宏。现在想写个代码用 ...

试试看是否适合:(第二个中括号中可增减运算操作符,第一个中括号中可增加一些较特别的字符,如理科中的一些常量字符)
([()\w]+([×+/*\\^=\s-]+|\b))+

jiuri0221

粵CMA028,請郵寄到珠海街3棟204室，朱三收。---这种的只能变成这样--->粤CMA028街3棟204

能不能只要一个汉字带着后面6个字符的。
谢谢

Moneky

liu-aguang 发表于 2015-5-19 12:13
试试看是否适合:(第二个中括号中可增减运算操作符,第一个中括号中可增加一些较特别的字符,如理科中的一些 ...

再借楼主一个地方。

刚刚测试了，对于下面的数据。
天天向上3+5=8好好学习
2/3+3 4/7=  的ff
1/2+2/3+3 5/6-34/8*34×24=
3x+5=8/7  测试fdasfdsa

其中会匹配到ff（这问题不大），但没有匹配到1/2+2/3+3 5/6-34/8*34×24=，是个问题，因为在小学运算中多步运算很常见。如果可以匹配到多步运算就更好了。
下面是我的测试代码，代码是word中的。

1. Sub ttt()
   
2.     Dim myRE As Object, objTmp As Object, vC As Variant
   
3.     Dim myDoc As Document
   
4.     Dim str1 As String
   
5.     Set myDoc = ActiveDocument
   
6.     Set myRE = CreateObject("VBScript.RegExp")
   
7.     With myRE
   
8.         .Global = True
   
9.         .Pattern = "([(xπ)\w]+([×+/*\\^=\s-]+|\b))+"
   
10.         .IgnoreCase = True
    
11.         .MultiLine = False
    
12.         Set objTmp = .Execute(myDoc.Content)
    
13.         For Each vC In objTmp
    
14.             str1 = vC.Value
    
15.         Next
    
16.     End With
    
17. End Sub

复制代码

liu-aguang

jiuri0221 发表于 2015-5-19 12:28
粵CMA028,請郵寄到珠海街3棟204室，朱三收。---这种的只能变成这样--->粤CMA028街3棟204

能不能只要一个 ...

1. .................

复制代码

liu-aguang

liu-aguang 发表于 2015-5-19 13:56

Sub test()
    arr = Range(Range("a1"), Range("a65536").End(xlUp))
    ReDim brr(1 To UBound(arr), 1 To 1)
    Set regx = CreateObject("vbscript.regexp")
        regx.Pattern = "([一-龥][A-Za-z])\W?(\w{5,})"
    For i = 1 To UBound(arr)
        Set mh = regx.Execute(arr(i, 1))
        If mh.Count <> 0 Then _
        brr(i, 1) = UCase(mh(0).submatches(0) & mh(0).submatches(1))
        brr(i, 1) = Replace(brr(i, 1), "予", "豫")
    Next
    Range("b1").Resize(UBound(arr), 1) = brr
End Sub