source$ = "C:\excel\ballvibe.csv" 	'Source file (.CSV)
result$ = "C:\out.html"		'Destination file (.HTML), overwrites.
REM Converts CSV file to HTML TABLE.
REM Automatically detects number of fields.


OPEN source$ FOR INPUT AS 1
OPEN result$ FOR OUTPUT AS 2
CLS
LINE INPUT #1, A$
CLOSE #1
OPEN source$ FOR INPUT AS 1
cells=0
fields = 1
FOR n = 1 TO LEN(A$)
IF MID$(A$, n, 1) = "," THEN fields = fields + 1
NEXT
PRINT fields; "fields"
PRINT #2, "<TABLE border=0>"
WHILE NOT EOF(1)
PRINT #2, "<TR>"
FOR n = 1 TO fields          '9 = the number of fields.
PRINT #2, "<TD>";
cells=cells + 1
INPUT #1, A$
PRINT #2, "<FONT SIZE=3>";
PRINT #2, A$;
PRINT #2, "</TD>"
NEXT
PRINT #2, "</TR>"
WEND
PRINT #2, "</TABLE>"
CLOSE
PRINT "Done.   ";cells;" Cells."