以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]提取百分比字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116449)
--  作者：lfz123
--  发布时间：2018/3/24 22:17:00
--  [求助]提取百分比字符
某列里面的字符串是“11%专票”或者“3%专票”，想提取字符里面的"11%"和“3%”，请问如何写代码啊！
--  作者：有点甜
--  发布时间：2018/3/25 17:42:00
--  

参考代码

 

Dim str As String = "11%专票"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str,"[0-9%]+")
If mc.count >= 1 Then
    msgbox(mc(0).value)
End If