mgr.Dobrowolski napisał(a)
słyszałem coś poza bełkotem?
Co Ty wygadujesz? Przecież doskonale wiesz, że to kwestia środowiska i dostępnych bibliotek decyduje o łatwości rozwiązania problemu.
W Delphi kod wczytujący tekst z komórek do ListBox może wyglądać tak:
uses ComObj;
procedure TForm1.LoadFromXLS(FileName: TFileName);
var n:integer;
XLApp, Sheet: variant;
begin
if FileExists(FileName) then
begin
XLApp:=CreateOleObject('Excel.Application');
if not VarIsEmpty(XLApp) then
begin
try
XLApp.workbooks.open[FileName];
XLApp.DisplayAlerts:=false;
Sheet:=XLApp.Workbooks[1].worksheets[1];
for n:=1 to 9 do
begin
ListBox1.Items.Add(Sheet.cells[n, 3]);
ListBox2.Items.Add(Sheet.cells[n, 8]);
end;
except
end;
XLApp.Quit;
XLApp:=Unassigned;
end;
end;
end;
Jak się potrafi odczytać, to dokonanie konwersji na tablicę liczb nie powinno być żadnym problemem. Wszystkiego jest 25 linii. Co ważne - bez względu na format pliku - czy to word 97, 2003, XP czy też 2007, kod zadziała. Wadą jest, że trzeba mieć zainstalowanego Excela, bo de facto to on dla nas wyciąga dane.
Teraz panie magistrze proszę o Twój kod, otwierający i pobierający z dowolnego formatu plików Excela w Turbo Pascal poniżej 1500 linii kodu. Jak masz zastrzeżenia do konstruktywności, wykaż się samemu.