如何判断某个值中的个数?(在线等,解决就散分!)

Question

我想取A字段中的值为X的个数(即如何判断A中有几个X),有什么好方法可以使用?

Answer 1

Dim dbDatabase As dao.Database
Dim dbRS As dao.Recordset
Dim sRS As String
Set dbDatabase = dao.OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb", True, False, ";PWD=;")
sRS = "SELECT [Title],[Year Published] FROM [Titles] WHERE [Year Published] = 1995" '打开Titles表中的Title、Year Published，并查出Year Published中等于1995的记录
Set sRS = dbDatabase.OpenRecordset(sRS)
If sRS.RecordCount > 0 Then
    sRS.MoveFirst
    Do Until sRS.EOF
        Debug.Print rsTemp![Title]
        sRS.MoveNext
    Loop
End If

Answer 2

Private Sub Command1_Click()
    Dim A As String
    Dim AA
    A = "2X13X21XX23CX422X34XweX"
    AA = Split(A, "X")
    MsgBox A & vbCr & vbCr & UBound(AA) & "个X"
End Sub^_^

Answer 3

Option ExplicitPrivate Sub Form_Load()
    Dim A As String
    A = "2X13X21XX23CX422X34XweX"
    Debug.Print Len(A) - Len(Replace(A, "X", ""))
    End
End Sub