We used to use ']' delimited files but it means you have to do the excel load
now we convert it to an html table with a .xls on the end of the file name and
excel just opens it
code sample (which i expect you'll all rewrite so its much more efficient)
REC<-1> = "<TABLE>"
READ DATAREC FROM SW.FILE,"tmp":@LOGNAME ELSE DATAREC = TEXT
IF ACCOUNT = '' THEN DATAREC = TEXT
LINES = DCOUNT(DATAREC,@FM)
REC<-1> = '<TR><TD ALIGN="LEFT" BGCOLOR="#FF6666">This Workbook was
created by the Explore Reservations System<TD><TR>'
FOR I = 1 TO LINES
REC<-1> = '<TR>'
COLS = DCOUNT(DATAREC<I>,']')
A = DATAREC<I>
A = CHANGE(A,' ',' ')
R = ''
FOR Y = 1 TO COLS
B = FIELD(A,']',Y)
IF I = 1 THEN
R := '<TD ALIGN="LEFT" BGCOLOR="#FF6666">':B:'</TD>'
END ELSE
R := '<TD ALIGN="LEFT" BGCOLOR="#FFF999">':B:'</TD>'
END
NEXT Y
REC<-1> = R
REC<-1> = '</TR>'
NEXT I
REC<-1> = '<TR><TD ALIGN="LEFT" BGCOLOR="#FF6666">End of
Report<TD><TR>'
REC<-1> = '</TABLE>'
REC<-1> = '</body>'
REC<-1> = '</html>'
Bob
-
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
