Delphi - Konvertimi nga .txt ne .xls

[deni_sa]

Pershendetje,
Me duhet te konvertoj nje file nga.txt ne .xls ne delphi .
mund te me ndihmoni ?
denisa

[edspace]

Nuk e di nëse të kërkohet me patjetër XLS, sepse në Excel mund të hapësh edhe skedarë text të ndarë me [tab] ose skedarë CSV të ndarë me presje. Këto formate janë më të lehta për të formatuar se XLS.

Nëse të duhet me patjetër në formatin XLS, specifikat e formatit XLS mund t'i gjesh në faqen http://www.wotsit.org/
Në krye të faqes kërko për "excel" dhe do dalin dokumenta që shpjegojnë strukturen e skedarëve XLS.

[qoska]

Ketu do te gjesh si te nderveprosh me Excel nepermjet COM.

Duhet te kesh pak njohuri nga COM por ngjason me programet client-server.
Nuk di se si behet ne Delphi pasi nuk e kam perdorur asnjehere.

Nese ke mundesi beje ne nje gjuhe skriptimi te ofruar nga windows si VBscript ose JScript sepse eshte shume e thjeshte.

[deni_sa]

I pashe ato faqet por...sikur nuk kishte gje :-(

[qoska]

Kjo eshte pak a shume ideja ne VBScript:

Dim appExcel, appWorkbook, appSheet

Set appExcel = CreateObject("Excel.Application.11") '11 eshte per version office 2003 po e hoqe funksioni kap vete te paren qe gjen
appExcel.Visible = 1 ' Mund ta shfaqesh progrmin excel perdoruesit dhe te shohi veprimet ne ekzekutim
set appWorkbook = appExcel.Workbooks.Add()
appWorkbook.Title = "Test"
appWorkbook.Subject = "Testimi"

set appSheet = appWorkbook.Sheets.Add()
For i = 1 to app.Workbook.Sheets.Count
      For j = 1 to app.Workbook.Sheets.Count
            appSheet.Cells(i, j).Value = appWorkbook.Sheets(i).Name
      Next 
Next

'po te duash e shfaq programin

appExcel.SaveAs(Filename:="test.xls")

MsgBox "Gjithcka u krye me sukses!"

Mund te te japi disa gabime ngaqe e kam shkruar direkte ne pergjigje pa e provuar por kjo eshte pak a shume ne VBScript. Ka shume mundesi qe s'te nevojitet krijimi i "Excel.Application" por mund te shkosh direkte tek "Excel.Sheet" por duhet kontrolluar ne ka funksionin "Save".

Tani per ObjectPascal(a.k.a Delphi) llogjika duhet te jete e njejte me nje program ne C/C++.
Ideja eshte pak a shume e tille.
Shenim: Nuk kam kohe per te te shkruar nje .dll qe te beje kete funskion qe te mund ta perdorje.

CoInitialize(NULL); // Inicializo librarine COM per kete proces

UUIDfromProgID("Excel.Application", &uuid); //marrim identifikimin unik

CoCreateInstance(&uuid, NULL, CTX_IN_PROC_SERVER, IID_IUnknown,
                             (LPVOID*) &pIUnknown); // aktivizojme objektin COM

pIUknown->QueryInterface(IID_IDispatch,.....); // shkojme te nderfaqa IDispatch

pIDispatch->GetUIDofNames(......); // marrim funksionet e VTBL qe do ti perdorim me vone ne pIDispatch->Invoke(...) me vone

dhe pastaj mund te veprosh si ne rastin e VBScript duke thirrur funksionet dhe ndryshuar properties te objektit nepermjet Invoke() te permendur me siper.

Nje variant tjeter eshte me ODBC ose ADODB. Une nuk e njoh mire por te jep mundesine te punosh me dokumentin ne formen e nje database, dmth me ane te SQL.
Ne fillim duhet te krijosh "connection string" duke perdorur si "driver"
"{Microsoft excel documents (*.xls)}", ose dicka te ngjashme.

Per me teper konsulto SDK(standard developement kit) te Microsoft Windows ose ODBC SDK nese perdor ODBC.
Nese vendos te perdoresh VBScript ose JScript shiko "Help" te excel per VBA ku pershkruhen te gjitha funskionet e ActiveX te Excel. Megjithese kjo e fundit me duket se nuk keshillohet me nga Microsoft.

Sigurisht sesi i perkthen ne Delphi eshte komplet detyra jot se une as qe jam kam idene .

Me te mira.