Autor Beitrag
gaisser
Hält's aus hier
Beiträge: 1



BeitragVerfasst: Mi 23.10.02 08:38 
Hallo zusammen,

ich haben ien Problem mit einem Import von einer TXT Datei in ein DBGrid. Mein textfile hat eine Artikelnummer und eine Menge. Dies sollte ich in einem DBGrid in zwei verscheidenen Spalten angezeigt bekommen. Eine Spalte mit der Artikelnummer und eine mit der Menge.
Vielleicht kann mir schnell jemand weiterhelfen. Ich bin für jedem Tipp dankbar, natürlich auch Codes.

gaisser :?:
Templar
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 18



BeitragVerfasst: Di 29.10.02 14:51 
Hi.
Also..zuerst musst du die .TXT-Datei in eine Listbox oder ähnlichs laden.
Danach liest du die einzelnen Datensätze wort für Wort, Zeile für Zeile in DBEdits, die du mit dem Dbgrid verbindest.
Posi steht hier für die Position in der Zeile!!!


Name:= Listbox1.Items[1];
Tel := Listbox1.Items[4];

Zeile := Listbox1.Items[2];
posi := 1;
repeat
Vorname := Vorname + Zeile[posi];
posi := Posi+1;
until (zeile[posi] = ' ');

for I:= posi+1 to length(Zeile) do
Titel := Titel + Zeile [I];

Zeile := Listbox1.Items[3];
posi := 1;
repeat
Strasse := Strasse + Zeile[posi];
posi := posi+1;
until (Zeile[posi] = ' ');

repeat
Hausnr := Hausnr + Zeile[posi];
posi := posi+1;
until (Zeile[posi] = ' ');

repeat
PLZ := PLZ + Zeile[posi+1];
posi := posi+1;
until (Zeile[posi] = ' ');

for I:= posi+1 to length(zeile) do
Ort := Ort + Zeile[I];

//hier werden die gelesenen Daten in die Edits gepackt und mit append in die Tabelle geschrieben und mit Post übernommen.
table1.append;
Titel_E.Text := Titel;
Vorname_E.Text := Vorname;
Name_E.Text := Name;
Strasse_E.Text := Strasse;
Hausnummer_E.Text := Hausnr;
PLZ_E.Text := PLZ;
Ort_E.Text := Ort;
Tel_E.Text := Tel;
Table1.post;

Hoffe des hat Dir geholfen.

MFG Templar :wink: