Memo Feld export nach CSV

[Luckie]

Und wie kommen die Daten von dem Stringgrid ins Memo? Und warum erst noch ns memo kopieren, wenn sie doch schon schön getrennt in den Zellen des Stringgrids stehen?

[klaus9]

Hi Luckie,

habe jetzt die Daten nicht mehr in das Memo Feld einfügen lassen sondern direkt in das StringGrid und von dort aus wird es weiterverarbeitet..

Mit der Memo Variante.. würde es auch gehen.. allerdings müßte man die Werte dann über Pos / PosEx etc. sich dann zurecht gestalten.. Das war meine erste idee.. aber über stringgrid übernimmt er ja direkt aus der Webseite die Tabellen Daten und Struktur und gibt mir diese dann in Excel aus..

Habe übrigens gerade einen code im Netz gefunden mit dem man einen Stringgrid nach Excel exportieren kann..

Delphi-Quellcode:

procedure XlsWriteCellLabel(XlsStream: TStream; const ACol, ARow: Word;
  const AValue: string);
var
  L: Word;
const
  {$J+}
  CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
  {$J-}
begin
  L := Length(AValue);
  CXlsLabel[1] := 8 + L;
  CXlsLabel[2] := ARow;
  CXlsLabel[3] := ACol;
  CXlsLabel[5] := L;
  XlsStream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
  XlsStream.WriteBuffer(Pointer(AValue)^, L);
end;


function SaveAsExcelFile(AGrid: TStringGrid; AFileName: string): Boolean;
const
  {$J+} CXlsBof: array[0..5] of Word = ($809, 8, 00, $10, 0, 0); {$J-}
  CXlsEof: array[0..1] of Word = ($0A, 00);
var
  FStream: TFileStream;
  I, J: Integer;
begin
  Result := False;
  FStream := TFileStream.Create(PChar(AFileName), fmCreate or fmOpenWrite);
  try
    CXlsBof[4] := 0;
    FStream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
    for i := 0 to AGrid.ColCount - 1 do
      for j := 0 to AGrid.RowCount - 1 do
        XlsWriteCellLabel(FStream, I, J, AGrid.cells[i, j]);
    FStream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
    Result := True;
  finally
    FStream.Free;
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  if SaveAsExcelFile(StringGrid1, 'c:\MyExcelFile.xls') then
    ShowMessage('StringGrid saved!');
end;

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.. vielleicht hat jemand eine Idee für mich ?

[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