delete

[Frogger]

@edel
Bei deinem Speedtest ist deine Variante am schnellsten aber wenn man es mit Debugger asführt ist die von AND51 schneller (ca. 2x)

Ist das schon jemandem aufgefallen und wieso ist das so?

Ich mein logisch ist es ja nicht gerade

[ts-soft]

Ich mein logisch ist es ja nicht gerade

Speedtest mit Debugger hat keinerlei Aussagekraft, glaubs einfach

[remi_meier]

Ach und @AND:
http://www.purebasic-lounge.de/viewtopi ... 2144#42144
Hab ich gerade kurz getippt

[AND51]

Vielen Dank für eure Infos, besonders dir, remi_meier für deine hilfreichen Links, die versteh sogar ich



Zur weiteren Diskussion werde ich jedoch einen neuen Thread eröffnen — sozusagen spalte ich damit die hiesigen "offtopic" Diskussion von vornherein ab (Lob, bitte!)

»»»»» Zur Diskussion über Unicode, Pointer, Offsets und SizeOf und den ganzen Kram...

[edel]

@edel:
Nicht schnell!

Ich hab noch zwei Alternativen, die allerdings langsamer sind als deine:

Code: Alles auswählen

edel     : 62 ms
ts-soft  : 1047 ms
AND51    : 141 ms
Sirhc    : 2218 ms
NTQ 4    : 203 ms
NTQ 5    : 79 ms
remi     : 125 ms

naja fast :P

[AND51]

So, habe nun eine neue Procedure, "myTrim()" erstellt, die 9, 32 und 160 entfernt.

Dies ist die bisher schnellste Prozedur:
@ edel: Deine Prozedur, "TrimEx0()", benötigt bei mir in Unicode als auch in ASCII 47 ms (habe deinen Speedtest genommen und mehrmals ausgeführt, ohne Debugger natürlich).
Meine Procedure, "myTrim()", benötigt nur 31 ms, ab und zu auch mal 32 ms.
Am kürzesten ist meine Procedure auch (8 Zeilen):

Code: Alles auswählen

Procedure.s myTrim(*buffer.Character)
	Protected *ende.Character=*buffer+MemoryStringLength(*buffer)*SizeOf(Character)-SizeOf(Character)
	While *buffer\c = 32 Or *buffer\c = 9 Or *buffer\c = 160
		*buffer+SizeOf(Character)
	Wend
	While *ende\c = 32 Or *ende\c = 9 Or *ende\c = 160
		*ende-SizeOf(Character)
	Wend
	ProcedureReturn PeekS(*buffer, (*ende-*buffer+SizeOf(Character))/SizeOf(Character))
EndProcedure