2. 29. 1. Comparing strings: Equals, =, String.Equals() and CompareTo
Module Tester
Sub Main() Dim string1 As String = "hello" Dim string2 As String = "good bye" Dim string3 As String = "Happy Birthday" Dim string4 As String = "happy birthday" Dim output As String Dim quotes As Char = ChrW(34)
If (string1.Equals("hello")) Then
Console.WriteLine("string1 equals hello")
Else
Console.WriteLine("not equal ") End If
' test for equality with = If string1 = "hello" Then
Console.WriteLine("string1 equals " & quotes & "hello" & quotes )
Else
Console.WriteLine("string1 does not equal " & quotes & "hello" & quotes) End If
If (String.Equals(string3, string4)) Then
Console.WriteLine("string3 equals string4")
Else
Console.WriteLine("string3 does not equal string4") End If
' test CompareTo
Console.WriteLine("string1.CompareTo(string2) is " & _
string1.CompareTo(string2) & vbCrLf & _
"string2.CompareTo(string1) is " & _
string2.CompareTo(string1) & vbCrLf & _
"string1.CompareTo(string1) is " & _
string1.CompareTo(string1) & vbCrLf & _
"string3.CompareTo(string4) is " & _
string3.CompareTo(string4) & vbCrLf & _
"string4.CompareTo(string3) is " & _
string4.CompareTo(string3))
End Sub ' Main
End Module
string1 equals hello
string1 equals "hello
string3 does not equal string4
string1.CompareTo(string2) is 1
string2.CompareTo(string1) is -1
string1.CompareTo(string1) is 0
string3.CompareTo(string4) is 1
string4.CompareTo(string3) is -1
2. 29. String Compare
2. 29. 1.
Comparing strings: Equals, =, String.Equals() and CompareTo
