none
[VB2005]請問怎麼計算字元出現的次數 RRS feed

  • 問題

  • 請問如果我想計算某一各字元例如S 10 00 S 11 X X X X P"

    出現的次數請問要用什麼函數

    "S","X","P"

    出現的次數怎麼計算不分大小寫

    再請問一各問題

    就是TextBox2.Text=String.Join("+",TextData)

    值型超過兩次 TextBox2.Text保留上一筆資料跟怎麼換行

    感謝!!

    2011年9月29日 上午 08:15

解答

  • 計算字元出現次數

        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
        '計算X出現的次數
          MessageBox.Show(Me.countChar("X"))
    
        End Sub
    
     
        '您要的函數
        Private Function countChar(ByVal target As String) As Integer
    
            Dim str = "S 10 00 S 11 X X X X P"
    
    
    
            '計算target變數字串出現的次數
            Dim sum = 0 '儲存器
    
            For Each s As String In str.Split(New String() {" "}, StringSplitOptions.None)
                If target.ToLower() = s.ToLower() Then '都轉成小寫來比對
                    sum = sum + 1
                End If
            Next
    
    
    
            Return sum
        End Function
    

    Shadowと愉快なコード達

    • 已編輯 Shadow .Net 2011年9月29日 上午 08:36
    • 已標示為解答 Ling1982 2011年9月29日 上午 09:29
    2011年9月29日 上午 08:33

所有回覆