string.bas

此程序用来分离一个字符串中的数字及字符

Attribute VB_Name = "Module1"
Public Function CheckString(ByVal sStr As String) As String
'Written by Richard Leonard [e-mail]
'this function keeps whatever the variable Do_This is set to

    Dim i As Integer
    Dim StrHolder As String
    Dim TempHolder As String
    Dim Do_This As String
    
    Do_This = Form1.txtDoThis.Text
    
     For i = 1 To Len(sStr)
        TempHolder = Mid(sStr, i, 1)
        If TempHolder Like Do_This Then
            StrHolder = StrHolder & Mid(sStr, i, 1)
        End If
     Next i
     sStr = StrHolder
     CheckString = sStr
     
End Function