主题：[求助]我想问下如何能快速判断一个字符串里面分别有几个

可以了帮我看下

Dim cjarr() As String = { "a","b","c","d" }
Dim fsarr() As Integer = { 10,8,6,4 }
For Each r As DataRow In DataTables("表A").DataRows
    Dim s As String = ""
    Dim sum As Integer = 0
    Dim sj As String = r("数据")
    Dim len As Integer = sj.Length
    Dim c As Integer = 0
    For i As Integer = 0 To cjarr.Length - 1
        c = len - sj.Replace(cjarr(i),"").Length
        s &= cjarr(i) & c & "个,"
        sum += c * fsarr(i)
    Next
    Output.Show( s & "总分" & sum)
Next

谢谢你基本实现了，我放入实际数据中效果还行，189万数据，3分钟