dog, this should do faster, give it a try:
code:
Open(1,"c:\temp\Filein.txt")
Open (2,"c:\temp\Fileout.txt",5)
$x = split(ReadLine(1))
WHILE $x
Writeline (2,$x[ubound$x)]+@crlf)
$x = split(ReadLine(1))
LOOP
Close(1)
Close(2)


[ 02. December 2002, 11:56: Message edited by: Lonkero ]
_________________________
!

download KiXnet