请教如何提取括号内的数值

晓军

数值都在括号内，数值前或后有一定规律，如前有“面积”或后有“平方”、“方”、“m2”等，但可能有2个括号，请教如何提取括号内的数值，谢谢！

northwolves

正则表达式

northwolves

直接字符串处理也可以

1. Function Mynumber(ByVal s As String) As String
   
2. Dim t() As String, V() As String
   
3. t = Split(Replace(s, "M2", ""), "(")
   
4. t(0) = ""
   
5. For I = 1 To UBound(t)
   
6. t(I) = Split(t(I), "）")(0)
   
7. ReDim V(1 To Len(t(I)))
   
8. For K = 1 To Len(t(I))
   
9. V(K) = Mid(t(I), K, 1)
   
10. If Not V(K) Like "[.0123456789]" Then V(K) = ""
    
11. Next
    
12. t(I) = Join(V, "")
    
13. Next
    
14. Mynumber = Join(t, "")
    
15. End Function
    

复制代码

KCFONG

see if help you

jbjbzjb

adgfsgfdgsafgdfg

bluexuemei

1. Sub t()
   
2. Dim rng As Range, s As String
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "jscript"
   
4. For Each rng In Range("a1", [a65536].End(3))
   
5.   s = Replace(rng.Value, "M2", "")
   
6.   rng(1, 2) = ojs.eval("'" & s & "'.match(/\(.*[0-9\.]+.*\）/)[0].match(/[0-9\.]+/)")
   
7. Next
   
8. Set ojs = Nothing
   
9. End Sub

复制代码

doitbest

Public Sub abc()
Dim ar, i, s
ar = Range([a1], [a65536].End(3))
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "\(.*?([\d.]+).*$"
    For i = 1 To UBound(ar)
      ar(i, 1) = .Execute(ar(i, 1))(0).submatches(0)
    Next
End With
[b1].Resize(UBound(ar)) = ar
End Sub

香川群子

一句话，楼主是需要提取：
【字符串】中，半角、全角不管什么类型的括号【()（）】之中的【数值】。

doitbest

或者：
.Pattern = "([\d.]+).{1,4}$"

香川群子

jbjbzjb 发表于 2014-2-28 07:55
adgfsgfdgsafgdfg

你的正则表达式可以简化。

(\(|（).*?(\d+\.?\d+).*?(）|\))

简化为：
(\(|（).*?(\d+\.\d+)

后面部分不需要了。即使输错，少一个括号什么也没关系的。

而简化之前，则要求括号必须完整！


简化前思路：
第1组： (\(|（).*?       → 大小左括号 以及附带任意字符直到第2组
第2组： (\d+\.?\d+).*?  → 含小数点的数值  以及附带任意字符直到第3组
第3组： (）|\))           → 大小右括号

简化后思路：
第1组： (\(|（).*?       → 大小左括号 以及附带任意字符直到第2组
第2组： (\d+\.?\d+)  → 含小数点的数值为止



提取方法不变，还是：
.Execute(theStr)(0).SubMatches(1)


呵呵。