$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