Meinst du das so?
ConsoleWrite("test1234" & @TAB & StringRegExp("test1234", "\d{4}") & @CRLF)
ConsoleWrite("test356 " & @TAB & StringRegExp("test356", "\d{4}") & @CRLF)
ConsoleWrite("9999test" & @TAB & StringRegExp("9999test", "\d{4}") & @CRLF)
StringRegExp($sString, "\d{4}") gibt 1 zurück wenn $sString eine Zahl mit vier Ziffern enthält, ansonsten ist der Rückgabewert 0.
Sowas kann man ganz gut mit regulären Ausdrücken regeln (in AutoIt über die Funktion StringRegexp).
4 Zahlen zu finden ist damit recht einfach.
Allerdings kommt es immer noch auf den konkreten Anwendungsfall an welche Sonderfälle mit beachtet werden müssen.
Robust (aber nicht ganz trivial) ist folgende Variante:
$s_String = "Test21515dsdasd"
If StringRegExp($s_String, "(?<!\d)\d{4}(?!\d)") Then
MsgBox(0,"", "vierstellige Zahl im String gefunden")
Else
MsgBox(0,"", "vierstellige Zahl nicht gefunden.")
EndIf
Am besten ist jedoch du beschreibst mal den Anwendungsfall und gibst dazu ein paar Beispiele.
name22
Dein Pattern meldet auch true bei 5-stellige Zahlen (matcht nur die ersten 4 Ziffern der Zahl).
Da hast du Recht. Ich habe komplett überlesen, das 5-stellige Zahlen ignoriert werden sollen. 
Das heißt du willst nicht nur überprüfen ob eine vierstellige Nummer existiert sondern auch diese Nummer weiterverwenden?
In dem Fall musst du das ganze noch bisschen anpassen:
$s_String = "Test2151dsdasd"
$a_Ret = StringRegExp($s_String, "(?<!\d)(\d{4})(?!\d)", 3)
If @error Then
MsgBox(0,"", "vierstellige Zahl nicht gefunden.")
Else
MsgBox(0,"", "vierstellige Zahl im String gefunden: " & $a_Ret[0])
EndIf
Ich denke die Vorschläge bringen mich weiter, da die Laufzeit nahezu egal ist.
Keine Angst - StringRegExp ist verdammt flott.
