Statistics: Posted by moneo — Sat Jan 28, 2006 8:56 pm
Statistics: Posted by RyanKelly — Sat Jan 28, 2006 3:15 am
Statistics: Posted by moneo — Fri Jan 27, 2006 3:25 pm
Statistics: Posted by Patz QuickBASIC Creations — Thu Jan 26, 2006 6:30 pm
Statistics: Posted by RyanKelly — Wed Jan 25, 2006 7:44 pm
I assume here that you mean reading the .xls file as is in QB binary mode. I created a very simple Excel .xls file with 3 cells wide and 2 lines long. Then I used a hex editor to view the file. Holy cow! You have to be an expert in deciphering .xls files just to find the data!It's easier to read in the excel file as is particularly if you have a lot of them to deal with. I just used a HEX viewer to find the delimiters and the field length.
Statistics: Posted by moneo — Wed Jan 25, 2006 3:17 pm
Statistics: Posted by moneo — Fri Jan 20, 2006 8:07 pm
Statistics: Posted by moneo — Thu Jan 19, 2006 2:53 pm
Statistics: Posted by Antoni — Wed Jan 18, 2006 7:07 am
Statistics: Posted by moneo — Tue Jan 17, 2006 2:01 pm
Code:
B$ = CHR$(0) + CHR$(0) + CHR$(0)C$ = CHR$(64) + CHR$(0) + CHR$(0)DEFLNG IM = 99OPEN "O", #2, "C:\outfile.txt"OPEN "r", #1, "C:\infile.XLS", 1FIELD #1, 1 AS AA$FOR I = 1 TO 1000000IF EOF(1) GOTO 20GET #1, IB$ = RIGHT$(B$, 2) + AA$IF B$ <> C$ GOTO 100GET #1, I + 1I2 = ASC(AA$)FOR I1 = I + 2 TO I + 1 + I2GET #1, I1D$ = D$ + AA$NEXT I1PRINT #2, D$; " "D$ = ""100 NEXT I20 CLOSE #1CLOSE #2
Statistics: Posted by Guest — Tue Jan 17, 2006 9:16 am