Memo Feld export nach CSV

[vagtler]

Zitat von klaus9:

[...] Jetzt bleibt nur das Problem noch mit dem Dateneinfügen in das Stringgrid, wenn ich es über den Code aus Button13 mache überschreibt er mir immer die aktuellen Werte, als Sie hinten dran zu hängen.. [...]

Hast Du den Code denn überhaupt verstanden?

[klaus9]

Hi,

die Edit felder habe ich eingefügt, damit ich ausprobieren kann und somit herausfinden kann, welche Werte mich zum gewünschten ergebnis bringen. Nicht um das später in das fertige Tool einzufügen.

Denn sonst muß ich mich immer wieder einloggen und durch die Webseite klicken und neu starten und so kann ich über die Edit Felder bestimmte werte eintragen und somit ausprobieren am laufenden Prozess wie ich meine End Werte rausfinde.

Später sieht das ganze dann komplett ohne edit Felder im Source aus.

[klaus9]

Delphi-Quellcode:

procedure TForm1.ExportFunktion13Click(Sender: TObject);

var aNode,aNode2 : Olevariant;
   r,c,z,z2 : Integer;
begin
 aNode := WebBrowser1.OleObject.Document.all.tags('intraLC').Item(5);
  r := aNode.all.tags('tr').Length;//Zeilen feststellen
   StringGrid1.RowCount := r;
  for z := 0 to r-1 do
    begin
aNode2 := aNode.all.tags('tr').Item(z);
 c := aNode2.all.tags('th').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
StringGrid1.Cells[z2,z] := aNode2.all.tags('th').Item(z2).innerText;
      end;
 c := aNode2.all.tags('td').Length;
    if c > 0 then
      begin
      if c > StringGrid1.ColCount then
        StringGrid1.ColCount := c;
      for z2 := 0 to c-1 do
 StringGrid1.Cells[z2,z] := aNode2.all.tags('td').Item(z2).innerText;
     end;
    end;

end;

So hier das ganze mal in schön