字符串比较.bas

vb开发的公交查询系统

Attribute VB_Name = "Module3"
Option Explicit

Public SameNum(1 To 10) As String
Public Total As Integer


'用于检查str1中是否含有str2这一字符段，
'并返回第一个相同的字符段

Public Function CompareStr1(str1 As String, str2 As String) As String

Dim i As Integer
Dim NumStr As String
Dim str3 As String
Dim flag As Boolean

For i = 1 To Len(str2)
    If Mid(str2, i, 1) <> "," Then
       '挑选出一行字符串中的两个“，”之间的数字字符串
       NumStr = NumStr & Mid(str2, i, 1)
    ElseIf NumStr <> "" Then
           str3 = "," & NumStr & ","
           flag = str1 Like ("*" & str3 & "*")
           '查看str1中是否具有",所挑选出的数字字符串,"
           '若str1中具有如此的数字字符串，
           '则将其赋值给CompareStr,返回调用它的原过程
           If flag = True Then
              CompareStr1 = NumStr
              Exit Function
           End If
           NumStr = ""
    End If
Next i

End Function



'比较两个字符串，挑出相同的字符段（有几个挑出几个），
'存入SameNum()数组中，用Total表示相同字符段的总个数

Public Sub CompareStrN(str1 As String, str2 As String)

Dim i As Integer
Dim NumStr As String
Dim str3 As String
Dim flag As Boolean
Dim k As Integer

'初始化
Total = 0
For i = 1 To 10
    SameNum(i) = ""
Next i

k = 1
For i = 1 To Len(str2)
    If Mid(str2, i, 1) <> "," Then
       NumStr = NumStr & Mid(str2, i, 1)
    ElseIf NumStr <> "" Then
           str3 = "," & NumStr & ","
           flag = str1 Like ("*" & str3 & "*")
           If flag = True Then
              SameNum(k) = NumStr
              Total = k
              k = k + 1
           End If
           NumStr = ""
    End If
Next i

End Sub


'确定在Mystr中是否含有“,str1,*,str2,”的字符段
Public Function Child(Mystr As String, str1 As String, _
                       str2 As String) As Boolean
Dim str3 As String

str3 = "*," & str1 & ",*," & str2 & ",*"
If (Mystr Like str3) Then
   Child = True
Else
   Child = False
End If
                                                
End Function