$number=1234567
open($file)
$=readline()
$found=0
while @error =0 and $found=0
  if instr($,$number)
    $found=1
  endif
  $=readline()
loop
close()

$theDir = 'c:\'
$txtFile = dir($theDir + '*.txt')
while @error = 0
   $ = open(1,$theDir + $txtFile)
   $line = readline(1)
   While @error = 0
      for $j = 1 to len($line)-7
         $possibleNumber = substr($line,$j,7)
         if $possibleNumber = 0.0 + $possibleNumber
            ? $possibleNumber
         endif
      next
      $line = readline(1)
   loop
   $ = close(1)
   $txtFile = dir()
loop

Dim $theDir, $txtFile, $, $line, $j, $possibleNumber
$theDir = 'c:\numtest\'
$txtFile = dir($theDir + '*.*')
while @error = 0
   $ = open(1,$theDir + $txtFile)
   $line = readline(1)
   While @error = 0
      for $j = 1 to len($line)-7
         $possibleNumber = substr($line,$j,7)
         if $possibleNumber = 0.0 + $possibleNumber
            ? $txtFile + ' ' + $possibleNumber
         endif
      next
      $line = readline(1)
   loop
   $ = close(1)
   $txtFile = dir()
loop

$theDir = 'c:\'
$txtFile = dir($theDir + '*.txt')
while @error = 0
   $ = open(1,$theDir + $txtFile)
   $line = readline(1)
   While @error = 0
      for $j = 1 to len($line)-6
         $possibleNumber = substr($line,$j,7)
         $asNum = 0.0 + $possibleNumber
         if $possibleNumber = padstr($asNum,'0', len($possibleNumber))
            ? $txtFile + ' ' + $possibleNumber
         endif
      next
      $line = readline(1)
   loop
   $ = close(1)
   $txtFile = dir()
loop

Function PadStr($Input, $Pad, $Length, optional $PadSide)
   Dim $i, $x
   $PadStr = ""
   $Input = "" + $Input
   $Pad = "" + $Pad
   $Length = 0 + $Length
   If $PadSide="" or Len($PadSide)>1 or Instr("LR",$PadSide)= 0
      $PadSide = "L"
   Endif

   $x = Len($Input)

   For $i=$x to $Length - 1 Step Len($Pad)
      If $PadSide = "L"
         $Input = $Pad + $Input
      Else
         $Input = $Input + $Pad
      Endif
   Next
   If $PadSide = "L"
      $Input = Right($Input, $Length)
   Else
      $Input = Left($Input, $Length)
   Endif
   $PadStr = $Input
   Exit 0
Endfunction

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