$sIn=ReadLine($fdInputFile)

While Not @ERROR

 $iLineCount=$iLineCount+1

 $sOut=$sOut+',"'+$sIn+'"'

 If Not ($iLineCount mod 5) SubStr($sOut,2)+@CRLF $sOut="" EndIf

 $sIn=ReadLine($fdInputFile)

Loop

$fdInputFile=FreeFileHandle()
$sFilePath=".\demo.txt"
 
If Open($fdInputFile,$sFilePath)
	"Cannot open file for input"
	Exit @ERROR
EndIf
 
$sIn=ReadLine($fdInputFile)
While Not @ERROR
	$iLineCount=$iLineCount+1
	$sOut=$sOut+',"'+$sIn+'"'
	If Not ($iLineCount mod 5) SubStr($sOut,2)+@CRLF $sOut="" EndIf
	$sIn=ReadLine($fdInputFile)
Loop
 
If $sOut <> "" SubStr($sOut,2)+@CRLF $sOut="" EndIf

Quote:

---

not 100% what I am after

---

That's OK, we're 100% with you - we don't know what you are after either.

The code I've provided converts the flat file to a CSV format - all you have to do is write the output to a new file.

Here is the code updated to write the output to a new file. It does the following:

• Reads input from file DEMO.TXT
  
• Wraps each input line in quotes and converts embedded quotes in the data stream into the form that Excel likes.
  
• Catenates every five lines into a single line with the fields delimited by commas
  
• Writes the catenated line to DEMO.CSV, with CRLF appended.
  

Code:

---

 
$sInputFile=".\demo.txt"
$sOutputFile=".\demo.csv"
 
$fdInputFile=FreeFileHandle()
If Open($fdInputFile,$sInputFile)
	"Cannot open file"+$sInputFile+"' for input"+@CRLF
	"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
	Exit @ERROR
EndIf
 
If Exist($sOutputFile) Del $sOutputFile EndIf
 
$fdOutputFile=FreeFileHandle()
If Open($fdOutputFile,$sOutputFile,4+1)
	"Cannot open file"+$sOutputFile+"' for output"+@CRLF
	"Reason: ["+@ERROR+"] "+@SERROR+@CRLF
	Exit @ERROR
EndIf
 
$sIn=ReadLine($fdInputFile)
While Not @ERROR
	$iLineCount=$iLineCount+1
	; Catenate line, fix speech marks to braindead MS csv style
	$sOut=$sOut+',"'+Join(Split($sIn,'"'),'""')+'"'
	If Not ($iLineCount mod 5) $=WriteLine($fdOutputFile,SubStr($sOut,2)+@CRLF) $sOut="" EndIf
	$sIn=ReadLine($fdInputFile)
Loop
 
If $sOut <> "" $=WriteLine($fdOutputFile,SubStr($sOut,2)+@CRLF) $sOut="" EndIf
 
$=Close($fdInputFile)
$=Close($fdOutputFile)
 
Exit 0

---

If this doesn't fulfill your needs, take a deep breath, slow down and think about what you are trying to do. Then ask

You might like to outline the task to us - without context it is hard to determine if what we are suggesting will help or is even appropriate.

If you are having trouble working out what the code is doing, just ask.

 

$blob=open(1,"myfile.txt")

$blob=open(2,"output.txt",5)

do

 $line=readline(1)

 $line=$line+";"

 if instr($line,"FAX")

  $line=$line+@crlf

 endif

 if 1<len($line)

  $blob=writeline(2,$line)

 endif

until @error

$blob=close(1)

$blob=close(2)

 
BROOK HOTELS
The Coach House
High Street
Sevenoaks
KentTN131HY
Sarah Tunnadine

Tel: 0800 435165
Fax: 01732 741041

CHOICE HOTELS EUROPE
Premier House
112 Station Road
Edgware
Middx HA8 7BJ
Aphrodite Burton

Tel: 020 8233 2001
Fax: 020 8233 2075

CONCORDE HOTELS

Grosvenor Gardens House
35/37 Grosvenor Gardens
London SW1W0BS
Marketing Department

Tel: 0800 028 9881
Fax: 020 7630 0391

DEVERE HOTELS
& LEISURE LTD
2100 Daresbury Park
Daresbury, Warrington
Cheshire WA4 4BP
Alison Gray

Tel: 0870 240 0101
Fax: 01928 756 440

GRAND HERITAGE HOTELS
Central Booking Agency
1st Floor Warwick House
181-183 Warwick Road
London W14 8PU
Greg McCreadv

Tel: 020 7244 6699
Fax: 020 7244 7799

GRANGE HOTELS
58 Rochester Row
London SW1 1JU
Jan
Tel: 020 7233 7373
Fax: 020 7835 1888

IMPNEY HOTELS
The Chateau Impney Hotel
Droitwich Spa
Worcs WR9 0BN
Robert Hughes

Tel: 01905 774411
Fax: 01905 772371

INTER-CONTINENTAL
& FORUM HOTELS
Mayfair Inter-Continental Hotel
Stratton Street
London W1A 2AN
Stephanie Segouta
Tel: 020 7629 7777
Fax: 020 7409 7016

LAYTONA LEISURE GROUP
Mendip Lodge Hotel
Bath Road
Frame
Somerset BA11 2HP
Stephen Crawley
Tel: 01373 454211
Fax: 01373 471618