TextBox中"."的个数

[qshurufa]

得到TextBox中填写的"."的数量。
如：34.544.454（"."=2）这个样子。

[a854468521]

使用Me.TextBox.Split(".").Length 试试.

[zdingyun]

Option Explicit
    Dim sj As String
    Dim i As Integer
    Dim j As Integer
Private Sub Command1_Click()
    For i = 1 To Len(sj)
        If Mid(sj, i, 1) = "." Then
            j = j + 1
        End If
    Next
    Text2 = "." & "=" & j
End Sub

Private Sub Form_Load()
    sj = "34.544.454"
    Text1 = sj
End Sub

[hzybc]

Dim strText As String = "326.32.369.325"
Dim intMax As Integer = System.Text.RegularExpressions.Regex.Matches(strText, "[.]", System.Text.RegularExpressions.RegexOptions.IgnoreCase).Count
Label2.Text = intMax.ToString

[ljhcy99]

string s = textbox.Text;
int num=0;
while(s.indexof('.')! =-1)
{
num = num+1;
s=s.subString(s.indexof('.'));
}

[zzxap]

Me.TextBox.Split(".").Length-1

[zwnylsf]

一个窗体，一个文本框（里面填你要获取点的字符串），一个按钮，代码如下： 你看看吧

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strContents As String = Me.TextBox1.Text
        Dim PiontCount As Integer = 0
        For i As Integer = 0 To strContents.Length - 1
            If strContents.Substring(i, 1) = "." Then
                PiontCount += 1
            End If
        Next
        MessageBox.Show("文本框中一共有" & PiontCount & "个'.'")
    End Sub

[zwnylsf]

向五楼学习

[zzxap]

Me.TextBox.Text.Split(".").Length-1