以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]获取位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134784)
--  作者：OKK
--  发布时间：2019/5/6 15:05:00
--  [求助]获取位置
dim dd as string = "12d%das498*5sd8372(s7*929ds&%01df(0d3as&fd(48sa8dasd9"


请问，如何获取dd里面，包含字符“%”的数量
--  作者：有点甜
--  发布时间：2019/5/6 15:16:00
--  
Dim dd As String = "12d%das498*5sd8372(s7*929ds&%01df(0d3as&fd(48sa8dasd9"
Dim count As Integer = 0
For Each s As String In dd
    If s = "%" Then
        count += 1
    End If
Next
msgbox(count)
--  作者：tcyxw
--  发布时间：2019/5/6 15:24:00
--  
Dim dd As String = "12d%das498*5sd8372(s7*929ds&%01df(0d3as&fd(48sa8dasd9"
Dim Values() As String
Values = dd.split("%")
Output.Show(Values.Length - 1)
--  作者：OKK
--  发布时间：2019/5/6 16:18:00
--  
上面举例错了，要找字符组，例如：


Dim dd As String = "12d%da s498*5sd8372(s7*929da s&%01df(0d3da s&fd(48sa8dasd9"
Dim count As Integer = 0
For Each s As String In dd
    If s = "da s" Then
        count += 1
    End If
Next
msgbox(count)
--  作者：有点甜
--  发布时间：2019/5/6 16:32:00
--  


Dim str As String = "12d%da s498*5sd8372(s7*929da s&%01df(0d3da s&fd(48sa8dasd9"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "da s")
msgbox(mc.count)

 
--  作者：OKK
--  发布时间：2019/5/6 16:42:00
--  
可以了，谢了