lol.
this was screwed up also!
ok, first tested one, I think I owed you both a test round.
and apology.
Code:
$blob=open(1,@scriptdir+"\txt_test.txt")
$blob=open(2,@scriptdir+"\output.txt",5)
do
$line=readline(1)
if instr($line,"FAX:")
$line=$line+chr(10)
endif
$file=$file+" "+$line
until @error
$blob=close(1)
$file=split(join(split($file," ")),chr(10))
for $r=0 to ubound($file)-1
$file[$r]='"'+join(split(join(split($file[$r],"FAX:"),'","'),"Tel:"),'","')+'"'
$file[$r]=join(split(join(split($file[$r],' "'),'"'),'" '),'"')+@crlf
$blob=writeline(2,$file[$r])
next
$blob=close(2)
produces:
Quote:
"BROOK HOTELS The Coach House High Street Sevenoaks KentTN131HY Sarah Tunnadine","0800 435165","01732 741041"
"CHOICE HOTELS EUROPE Premier House 112 Station Road Edgware Middx HA8 7BJ Aphrodite Burton","020 8233 2001","020 8233 2075"
"CONCORDE HOTELS Grosvenor Gardens House 35/37 Grosvenor Gardens London SW1W0BS Marketing Department","0800 028 9881","020 7630 0391"
"DEVERE HOTELS & LEISURE LTD 2100 Daresbury Park Daresbury, Warrington Cheshire WA4 4BP Alison Gray","0870 240 0101","01928 756 440"
"GRAND HERITAGE HOTELS Central Booking Agency 1st Floor Warwick House 181-183 Warwick Road London W14 8PU Greg McCreadv","020 7244 6699","020 7244 7799"
"GRANGE HOTELS 58 Rochester Row London SW1 1JU Jan","020 7233 7373","020 7835 1888"
"IMPNEY HOTELS The Chateau Impney Hotel Droitwich Spa Worcs WR9 0BN Robert Hughes","01905 774411","01905 772371"
"INTER-CONTINENTAL & FORUM HOTELS Mayfair Inter-Continental Hotel Stratton Street London W1A 2AN Stephanie Segouta","020 7629 7777","020 7409 7016"
"LAYTONA LEISURE GROUP Mendip Lodge Hotel Bath Road Frame Somerset BA11 2HP Stephen Crawley","01373 454211","01373 471618"
