PureBasic Forums - English

Code: Select all

CompilerIf #PB_Compiler_Debugger:CompilerError "Turn OFF debugger for Speed Tests!":CompilerEndIf
s1$ = "hello!": #s = "HELLO!": s2$ = #s
Macro StrCmp(str1, str2, UseCase=#PB_String_NoCase)
  Bool(CompareMemoryString(@str1, @str2, UseCase) = #PB_String_Equal)
EndMacro
Macro StrCmpLC(str1, str2, UseCase=#PB_String_NoCase)
  Bool(LCase(str1) = LCase(str2))
EndMacro
Procedure StrCmpP(a$, b$)
  ProcedureReturn Bool(CompareMemoryString(@a$, @b$, #PB_String_NoCase) = #PB_String_Equal)
EndProcedure
nTries = 1e6
t = ElapsedMilliseconds()
For L = 1 To nTries
  StrCmp(s1$, s2$)
Next
MessageRequester("Fastest", "CompareMemoryString using string variable -> " + Str(ElapsedMilliseconds() - t) + "ms")
t = ElapsedMilliseconds()
For L = 1 To nTries
  StrCmpLC(s1$, #s)
Next
MessageRequester("Slower", "LCase() = LCase() -> " + Str(ElapsedMilliseconds() - t) + "ms")
t = ElapsedMilliseconds()
For L = 1 To nTries
  StrCmpP(s1$, #s)
Next
MessageRequester("Slowest", "Procedure+CompareMemoryString enabling use of string #const -> " + Str(ElapsedMilliseconds() - t) + "ms")

Code: Select all

s1$ = "hello said! - but this is different"
s2$ = "HELLO Said!"
If FindString(s1$, s2$, 1, #PB_String_NoCase)
  result$ = "The two strings match!" ; This will be the result. :)
Else
  result$ = "The two strings don't match."
EndIf
MessageRequester("Case Insensitive String Compare", result$)

Code: Select all

EnableExplicit

Import ""
  _wcsicmp.i(*str1,*str2)
EndImport

Macro CompareString(_str1_,_str2_)
  Bool(_wcsicmp(_str1_,_str2_) = 0)  
EndMacro

Global s1.s = "Hello World!"
Global s2.s = "HELLO WORLD!"

Debug CompareString(s1,s2)
Debug CompareString(@s1,@s2)

s2 = ":)"

Debug CompareString(s1,s2)
Debug CompareString(@s1,@s2)

Debug CompareString(":)",s2)

End