主题：大红袍老师 请进 正则式又遇到了新问题

Dim str As String = "水利冬修费1.2亿元"

Dim s As String = System.Text.RegularExpressions.Regex.Match(str,"[0-9.]+[万亿]+").ToString()
If s.EndsWith("万") Then
    s = val(s) * 10000
ElseIf s.EndsWith("亿") Then
    s = val(s) * 100000000
End If
msgbox(s)

正则，只是提取数据，要怎么加工，就要用别的代码处理。

百度 http://www.baidu.com/baidu?wd=%D5%FD%D4%F2%B1%ED%B4%EF%CA%BD&tn=monline_4_dg