String (Zeit) bearbeiten

Wär mein spontaner Vorschlag:

Global $str[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str) - 1
If StringLen($str[$i]) < 5 Then $str[$i] = '0' & $str[$i]
Next

Nö tut es nicht - der Fall das die Zahl hinter dem ":" nur einstellig sein kann ist in der Aufgabenstellung aber auch nicht gegeben...

Nichts desto trotz ist auch diese Methode deutlich langsamer als über RegExp.
Mit StringFormat() kommt man hier wahrscheinlich auch nicht sehr weit da man da das ganze erstmal splitten müsste - und das kostet Zeit.

Edit: Könnte sein das man es doch mit StringFormat vernünftig schnell bekommen könnte - entspricht dann in etwa ziemlich der Geschwindigkeit der Methode mit RegExp() - hier mal ein Vergleichsskript:

Hab ich doch in meinem Vergleichsskript über dir gerade demonstriert...

Wo gibt es ein anderes Ergebnis?

Alle 4 Methoden wandeln die vorgegebenen Ausgangswerte korrekt in die gewünschte Form um.
Ich seh da jetzt irgendwie nicht ein Problem.
Außer du willst auf einmal doch Strings umwandeln welche hinter dem ":" auch nur 1 Zahl stehen haben können.

Und dabei ist es egal in welcher Reihenfolge ich die einzelnen Methoden teste - damit man verlässliche Ergebnisse bekommt lasse ich jede Methode ja auch 10.000x durchlaufen und bilde dann den Mittelwert.
Kannst ja mal probieren die einzelnen Methoden im Skript in der Reihenfolge zu verändern - das Ergebniss der Zeitmessungen bleibt trotzdem gleich.

Ansonsten wär das ein entsprechendes Speed-VergleichsSkript:

Auch clever die Methode - bei meinen Tests war es die 2. Schnellste nach der Methode mit StringLen.

Hier das damit aktualisierte Vergleichsskript:

Edit: Hab noch eine weitere Methode entdeckt welche bei mir die bisher schnellsten Werte liefert.
Es beruht auf einem Vergleich ob die Werte vor dem ":" kleiner als 10 sind (da der Rest vom String bei einem Vergleich eines Strings mit einer Integer-Zahl sowieso abgeschnitten wird braucht man sich nicht erst um das splitten zu kümmern):

Dim $str[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str) - 1
If $str[$i] < 10 Then $str[$i] = '0' & $str[$i]
Next

Hey das macht Spaß :tongue: - viel schneller sollte man das aber nicht mehr bekommen können denke ich.

Edit2: Bernds Methode mit zum Vergleich gezogen (nun 2. schnellste Methode)

hab mir mal den Spass gemacht und die Ergebnisse verglichen

#include <Array.au3>

$N = 1000

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str1[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str1) - 1
$str1[$i] = StringRegExpReplace($str1[$i], '\b\d:\d\d', 0 & '\0')
Next

Next

$EinsTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "RegExp")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str2[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str2) - 1
$str2[$i] = StringFormat("%02u", $str2[$i]) & StringRight($str2[$i], 3)
Next
Next
$ZweiTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "StringFormat")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str3[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str3) - 1
$time = StringSplit($str3[$i], ":")
If $time[0] <= 9 AND StringLen($time[0]) = 1 Then $time[0]="0"&$time[0]
If $time[1] <= 9 AND StringLen($time[1]) = 1 Then $time[1]="0"&$time[1]
$str3[$i] = $time[0]&":"&$time[1]
Next
Next
$DreiTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "Leviathan")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str4[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str4) - 1
If StringLen($str4[$i]) < 5 Then $str4[$i] = '0' & $str4[$i]
Next
Next
$VierTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "StringLen")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str5[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str5) - 1
If StringInStr($str5[$i], ':') = 2 Then $str5[$i] = '0' & $str5[$i]
Next
Next
$FuenfTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "BugFix")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str6[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str6) - 1
If $str6[$i] < 10 Then $str6[$i] = '0' & $str6[$i]
Next
Next
$SechsTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "kleiner 10-Methode")

$Zeit = TimerInit()
for $r = 1 To $N
Dim $str7[3] = ['4:32', '10:01', '1:01']

For $i = 0 To UBound($str7) - 1
$str7[$i] = StringRight('0' & $str7[$i],5)
Next
Next
$SiebenTime = TimerDiff($Zeit) / $N

;_ArrayDisplay($str, "Bernd")

MsgBox(0,"", "RegExp:" &@TAB&@TAB& Round($EinsTime, 3) & ' ms ' &@TAB&@TAB& $str1[0]&" "&$str1[1]&" "&$str1[2]& @CRLF & "StringFormat:" &@TAB& Round($ZweiTime, 3) & ' ms' &@TAB&@TAB&$str2[0]&" "&$str2[1]&" "&$str2[2]& @CRLF & "Leviathan:" &@TAB& Round($DreiTime, 3) & ' ms' &@TAB&@TAB&$str3[0]&" "&$str3[1]&" "&$str3[2]& @CRLF & "StringLen:" &@TAB& Round($VierTime, 3) & ' ms' &@TAB&@TAB&$str4[0]&" "&$str4[1]&" "&$str4[2]&@CRLF & "BugFix:" &@TAB&@TAB& Round($FuenfTime, 3) & ' ms' &@TAB&@TAB&$str5[0]&" "&$str5[1]&" "&$str5[2]& @CRLF & "<10-Methode:" &@TAB& Round($SechsTime, 3) & ' ms' &@TAB&@TAB&$str6[0]&" "&$str6[1]&" "&$str6[2]&@CRLF & "Bernd:" &@TAB&@TAB& Round($SiebenTime, 3) & ' ms'&@TAB&@TAB&$str7[0]&" "&$str7[1]&" "&$str7[2])