so, it seems that he would want something like:
Code:
$blob=open(1,"myfile.txt")
$blob=open(2,"output.txt",5)
$blob=writeline(2,'"')
do
$line=readline(1)
select
case instr($line,"FAX:")
$line='","'+split($line,"FAX:")[1]+@crlf+'"'
case instr($line,"Tel:")
$line='","'+split($line,"Tel:")[1]
case 1
$line=' '+$line
endselect
if 1<len($line)
$blob=writeline(2,$line)
endif
until @error
$blob=close(1)
$blob=close(2)
this code has the problem that it produces the last line as empty one (with only single quote on it).
