Tobias Bußmann wrote:
cool danke für den Tipp. Ich wandle damit nur kurze md5-Summen, daher hat
sich das bei mir nicht ausgewirkt - ich habs aber nun in meinem Repository
ersetzt.
Einen hätte ich noch ;)
Wenn man "RightB" nur bei bedarf verwendet geht es noch etwas schneller:
String size is 1024000
Join: 278 ticks
Join/check: 206 ticks
Hier der code:
Private Function StringToHexJoin(src as string, separator as string) As
string
#pragma BackgroundTasks false
dim L as integer
dim s() as string
L = LenB(src)
for n as integer = 1 to L
dim v as String = Hex(AscB(MidB(src, n, 1)))
if lenB(v)=1 then
s.Append RightB("00"+v,2)
else
s.Append v
end
next
return Join(s, separator)
End Function
Anmerkung:
Mit beliebigen texten kann AscB evtl. werte > 255 liefern (bin nicht
sicher). Daher sollte ggf. noch eine Abfrage auf "LenB(v)>2" erfolgen.
Tom
