Last active
October 6, 2015 07:08
-
-
Save Uberi/2955933 to your computer and use it in GitHub Desktop.
Natural comparison function, accounting for numeric values.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #NoEnv | |
| A := "1.010" | |
| B := "1.02" | |
| Value := NaturalCompare(A,B) | |
| If Value = -1 | |
| MsgBox, %A% < %B% | |
| Else If Value = 1 | |
| MsgBox, %A% > %B% | |
| Else | |
| MsgBox %A% = %B% | |
| NaturalCompare(String1,String2) | |
| { | |
| Index1 := 1, Index2 := 1 | |
| Loop | |
| { | |
| ;skip whitespace | |
| While, (Character1 := SubStr(String1,Index1,1)) = " " || Character1 = "`t" | |
| Index1 ++ | |
| While, (Character2 := SubStr(String2,Index2,1)) = " " || Character2 = "`t" | |
| Index2 ++ | |
| Index1 ++, Index2 ++ | |
| ;check for end of strings | |
| If (Character1 = "") | |
| { | |
| If (Character2 = "") | |
| Return, 0 | |
| Return, -1 | |
| } | |
| If (Character2 = "") | |
| Return, 1 | |
| ;check for digit runs | |
| If (Character1 = "0" || Character2 = "0") && InStr("0123456789",Character1) && InStr("0123456789",Character2) ;digit run starting with 0, assume decimal | |
| { | |
| Loop | |
| { | |
| If (Character1 < Character2) | |
| Return, -1 | |
| If (Character1 > Character2) | |
| Return, 1 | |
| Character1 := SubStr(String1,Index1,1), Index1 ++ | |
| Character2 := SubStr(String2,Index2,1), Index2 ++ | |
| ;check for end of strings | |
| If (Character1 = "") | |
| { | |
| If (Character2 = "") | |
| Return, 0 | |
| Return, -1 | |
| } | |
| Else If (Character2 = "") | |
| Return, 1 | |
| ;check for end of digit runs | |
| If !InStr("0123456789",Character1) | |
| { | |
| If !InStr("0123456789",Character2) | |
| Break | |
| Return, -1 | |
| } | |
| Else If !InStr("0123456789",Character2) | |
| Return, 1 | |
| If !InStr("0123456789",Character1) || !InStr("0123456789",Character2) | |
| Break | |
| } | |
| } | |
| Else If InStr("0123456789",Character1) && InStr("0123456789",Character2) ;digit run | |
| { | |
| ;digit comparison | |
| Bias := 0 | |
| Loop | |
| { | |
| ;set value bias if lengths are the same | |
| If Bias = 0 | |
| { | |
| If (Character1 < Character2) | |
| Bias := -1 | |
| Else If (Character1 > Character2) | |
| Bias := 1 | |
| } | |
| Character1 := SubStr(String1,Index1,1), Index1 ++ | |
| Character2 := SubStr(String2,Index2,1), Index2 ++ | |
| ;check for end of strings | |
| If (Character1 = "") | |
| { | |
| If (Character2 = "") | |
| Return, Bias | |
| Return, -1 | |
| } | |
| Else If (Character2 = "") | |
| { | |
| If !InStr("0123456789",Character1) | |
| Return, -1 | |
| Return, 1 | |
| } | |
| ;check for end of digit runs | |
| If !InStr("0123456789",Character1) | |
| { | |
| If !InStr("0123456789",Character2) | |
| Break | |
| Return, -1 | |
| } | |
| Else If !InStr("0123456789",Character2) | |
| Return, 1 | |
| } | |
| } | |
| Else ;normal comparison | |
| { | |
| If (Character1 < Character2) | |
| Return, -1 | |
| If (Character1 > Character2) | |
| Return, 1 | |
| } | |
| } | |
| } |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment