hallo!
möchte in einer zeile 3 spalten mit daten befüllen und dann in die nächste zeile wechseln diese wieder mit 3 zeilen zu befüllen usw. jedoch werden nach der zweiten zeile alle restlichen daten in eine spalte geschrieben und durch ein viereck (carriage return) dargestellt, hab schon alles versucht, sogar ein steuerzeichung für das carriage return einzugeben (wie zb. in c/c++ '\n') was jedoch auch nicht wirklich funktioniert hat.
hab mein
csv-testfile als attachment hinzugefügt...
kleiner auszug aus meinem quellcode:
Delphi-Quellcode:
while (ws.Cells.Item[i_i,i_j].text <> '') do
begin
str := '';
str :=ws.Cells.Item[i_i,i_j+1].Text;
if (i_count > 1) then str_tmp := str_tmp + ';' +ws.Cells.Item[i_i,i_j].Text
else str_tmp := ws.Cells.Item[i_i,i_j].Text;
if (i_count = 3) then
i_count:=0;
if (i_j mod 3 = 0) then
begin
memo1.Lines.Add(str_tmp);
assignfile(f_datei,s1);
append(f_datei);
writeln(f_datei,str_tmp);
closefile(f_datei);
str_tmp := '';
end;
if (str = '') then
begin
i_j := 0;
inc(i_i);
end;
inc(i_j);
inc(i_count);
end;
danke im voraus!