CALL "@SCRIPTDIR\RegEx.udf"

$SourceFile = "E:\MyTextFile.txt"
$ArrSourceFile = ReadFile($SourceFile)

FOR EACH $TextLine IN $ArrSourceFile
        $ArrMatches = RegExpFind("\d{7}", $TextLine, $1, 1)
        FOR EACH $Match IN $ArrMatches
               ? "Match = " + CHR(34) + $Match[0] + CHR(34)
        NEXT
NEXT

FUNCTION ReadFile($File)
        DIM $Handle, $null, $Text
        $Handle = FREEFILEHANDLE()
        $null = OPEN($Handle, $File)
                IF @ERROR EXIT @ERROR ENDIF
                DO $Text = $Text + @CRLF + READLINE($Handle) UNTIL @ERROR
                $null = CLOSE($Handle)
        $ReadFile = SPLIT(SUBSTR($Text, 1), @CRLF)
ENDFUNCTION