code109a.txt

VB大全（精华版）源代码

Option Compare Binary

Public Function Part_String_Compare(ByVal String1 As String, _
    ByVal String2 As String, ByVal NumChars As Integer) As Integer
  If Left(String1, NumChars) < Left(String2, NumChars) Then _
    Part_String_Compare = 1
  If Left(String1, NumChars) > Left(String2, NumChars) Then _
    Part_String_Compare = -1
  If Left(String1, NumChars) = Left(String2, NumChars) Then _
    Part_String_Compare = 0
End Function

Public Sub Main()
  Debug.Print "Comparing 3 letters Abcde with Abcde", _
    Part_String_Compare("Abcde", "Abcde", 3)
  Debug.Print "Comparing 3 letters abcde with Abcdf", _
    Part_String_Compare("abcde", "Abcdf", 3)
  Debug.Print "Comparing 4 letters abcd with abcde", _
    Part_String_Compare("abcd", "abcde", 4)
  Debug.Print "Comparing 4 letters Abc with Abcd", _
    Part_String_Compare("Abc", "Abcd", 4)
  Debug.Print "Comparing 5 letters abcdefg with abcefgh", _
    Part_String_Compare("abcdefgh", "abcefgh", 5)
  Debug.Print "Comparing 6 letters AbcdeFG with Abcdefg", _
    Part_String_Compare("AbcdeFG", "Abcdedfg", 6)
End Sub