$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