String comparison: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 3,191: | Line 3,191: | ||
5.0 is equal to 5 |
5.0 is equal to 5 |
||
5.0 has negated object identity with 5</pre> |
5.0 has negated object identity with 5</pre> |
||
=={{header|QB64}}== |
|||
<lang QB64> |
|||
Dim As String String1, String2 |
|||
' direct string comparison using case sensitive |
|||
String1 = "GWbasic" |
|||
String2 = "QuickBasic" |
|||
If String1 = String2 Then Print String1; " is equal to "; String2 Else Print String1; " is NOT egual to "; String2 |
|||
String1 = "gWbasic" |
|||
String2 = "GWBasic" |
|||
If String1 = String2 Then Print String1; " is equal to "; String2 Else Print String1; " is NOT egual to "; String2 |
|||
' direct string comparison using case insensitive |
|||
If UCase$(String1) = UCase$(String2) Then Print String1; " is equal to "; String2; Else Print String1; " is NOT egual to "; String2; |
|||
Print " case insensitive" |
|||
String1 = "GwBasiC" |
|||
String2 = "GWBasic" |
|||
If LCase$(String1) = LCase$(String2) Then Print String1; " is equal to "; String2; Else Print String1; " is NOT egual to "; String2; |
|||
Print " case insensitive" |
|||
' lexical order |
|||
String1 = "AAAbbb" |
|||
String2 = "AaAbbb" |
|||
If String1 > String2 Then Print String1; " is after "; String2 Else Print String1; " is before "; String2 |
|||
' number in string format comparison |
|||
String1 = "0123" |
|||
String2 = "5" |
|||
' lexical order |
|||
If String1 > String2 Then Print String1; " is after "; String2 Else Print String1; " is before "; String2 |
|||
' value order |
|||
If Val(String1) > Val(String2) Then Print String1; " is bigger than "; String2 Else Print String1; " is lower "; String2 |
|||
Print "QB64, like QBasic, has native coercive/allomorphic operators for string type variable" |
|||
End |
|||
</lang> |
|||
=={{header|Quackery}}== |
=={{header|Quackery}}== |