实例004查找字符中的特定字符的数目

String 类

https://docs.microsoft.com/zh-cn/dotnet/api/system.string?view=netframework-4.8

控制台程序

Module Module1

    Sub Main()
        Const AString As String = "AaaAaaaabcccsfeadggeABCDDSSABGDSAsdfesafEFGA"
        '中间变量
        Dim BString, CString As String
        'Dim CCh As Char

        '计数器
        Dim iCount, Acounts As Integer

        Dim Aarray() As String
        Dim strHead As String = "字符串中出现A的次数为："
        '字符串复制
        BString = String.Copy(AString)
        Console.WriteLine("AString is " & AString)

        '方法一：分隔
        Aarray = BString.Split("A")
        Acounts = UBound(Aarray)
        '看一下分隔的字符符数组 :）
        'Console.Write(Aarray(1) & "  ")
        Console.WriteLine("方法一")
        Console.WriteLine(strHead & Acounts)
        Console.WriteLine()

        '方法二：找到它字数并删除它
        Acounts = 0
        While BString.IndexOf("A") >= 0
            Acounts += 1
            BString = BString.Remove(BString.IndexOf("A"), 1)
            '看一下中间结果
            'Console.WriteLine(BString & "   ")
        End While
        Console.WriteLine("方法二")
        Console.WriteLine(strHead & Acounts)
        Console.WriteLine()

        '方法三：用子字符串函数遍历字符串
        iCount = 0 '循环计数
        Acounts = 0 '找到计数
        While (iCount <= AString.Length - 1)
            CString = AString.Substring(iCount, 1)
            If String.Compare(CString, "A") = 0 Then
                Acounts += 1
            End If
            iCount += 1
        End While
        Console.WriteLine("方法三")
        Console.WriteLine(strHead & Acounts)
        Console.WriteLine()

        '方法四：用Mid函数遍历字符串
        iCount = 1 '循环计数
        Acounts = 0 '找到计数
        While iCount <= AString.Length
            CString = Mid(AString, iCount, 1)
            If CString = "A" Then
                Acounts += 1
            End If
            iCount += 1
        End While
        Console.WriteLine("方法四")
        Console.WriteLine(strHead & Acounts)

        Console.Read()

    End Sub

End Module