code108a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 52 行

Option Compare Binary

Public Function String_Compare(ByVal String1 As String, _
    ByVal String2 As String) As Integer
  Dim I As Integer				' Counter Variable
  If (Len(String1) <= Len(String2)) Then

    For I = 1 To Len(String1)
      If Mid(String1, I, 1) < Mid(String2, I, 1) Then
        String_Compare = 1
        Exit Function
      ElseIf Mid(String1, I, 1) > Mid(String2, I, 1) Then
        String_Compare = -1
        Exit Function
      End If
    Next

    If Len(String1) < Len(String2) Then
      String_Compare = 1
    Else
      String_Compare = 0
    End If
    Exit Function
  End If

  For I = 1 To Len(String2)
    If Mid(String1, I, 1) < Mid(String2, I, 1) Then
      String_Compare = 1
      Exit Function
    ElseIf Mid(String1, I, 1) > Mid(String2, I, 1) Then
      String_Compare = -1
      Exit Function
    End If
  Next

  String_Compare = -1
End Function

Public Sub Main()
  Debug.Print "Comparing Abc with Abc", String_Compare("Abc", "Abc")
  Debug.Print "Comparing abc with Abc", String_Compare("abc", "Abc")
  Debug.Print "Comparing abcd with abc", String_Compare("abcd", _
    "abc")
  Debug.Print "Comparing Abc with Abcd", String_Compare("Abc", _
    "Abcd")
  Debug.Print "Comparing abcd with abce", String_Compare("abcd", _
    "abce")
  Debug.Print "Comparing Abce with Abcd", String_Compare("Abce", _
    "Abcd")
End Sub