Code: Alles auswählen
Debug ReplaceString("Programmierzeile", "ier", "", #PB_String_NoCase)
Code: Alles auswählen
Debug RemoveString("Programmierzeile", "ier", #PB_String_NoCase)
Vielleicht ein Performance Unterschied?
Code: Alles auswählen
Debug ReplaceString("Programmierzeile", "ier", "", #PB_String_NoCase)
Code: Alles auswählen
Debug RemoveString("Programmierzeile", "ier", #PB_String_NoCase)
RemoveString hat natuerlich weniger zu tun, aber der Unterschied sollte dabei nicht sehr auffallen.JMaker hat geschrieben:Vielleicht ein Performance Unterschied?
Code: Alles auswählen
CompilerIf #PB_Compiler_Debugger = 1
MessageRequester("!", "Debugger ausschalten!")
End
CompilerEndIf
EnableExplicit
#Anz = 10000000
Define Z1, Z2, Z3, Z4
Define Counter
Define Result.s
Z1 = ElapsedMilliseconds()
For Counter = 0 To #Anz
Result = ReplaceString("Programmierzeile", "ier", "", #PB_String_NoCase)
Next
Z2 = ElapsedMilliseconds()
; -----
Z3 = ElapsedMilliseconds()
For Counter = 0 To #Anz
Result = RemoveString("Programmierzeile", "ier", #PB_String_NoCase)
Next
Z4 = ElapsedMilliseconds()
MessageRequester("!", "ReplaceString(): " + Str(Z2-Z1) + " / RemoveString(): " + Str(Z4-Z3))
Code: Alles auswählen
OpenConsole()
text$ = "abcabcabcabcabcabcabcabcabcabcdabcdabcdabcabcbcdeabcabcabcabcabcabcabcabc" +
"abcabcdabcdabcdabcabcbcdeabcabcabcabcabcabcabcabcabcabcdabcdabcdabcabcbcde"
Dim raus$(4)
raus$(1) = "abcd"
raus$(2) = "hund"
raus$(3) = "a"
raus$(4) = "abc"
#max = 1000000
For n = 1 To 4
PrintN("")
PrintN(" ---------- Entferne " + #DQUOTE$ + raus$(n) + #DQUOTE$ + " ---------- ")
PrintN("")
t = ElapsedMilliseconds()
For i = 1 To #max
a$ = ReplaceString(text$, raus$(n), "")
Next i
Print("ReplaceString: " + Str(ElapsedMilliseconds() - t))
t = ElapsedMilliseconds()
For i = 1 To #max
a$ = RemoveString(text$, raus$(n))
Next i
PrintN(" RemoveString: " + Str(ElapsedMilliseconds() - t))
Next
Input()