TSTRINGLIST in ein Array kopieren

[DeddyH]

Ohne Fehlerbehandlung und ungetestet:

Delphi-Quellcode:

procedure DateiEinlesen(const Dateiname: string);
var
  LineList, FieldList: TStrings;
  i, j: integer;
begin
  //Zeilen
  LineList := TStringlist.Create;
  try
    LineList.LoadFromFile(Dateiname);
    //Felder
    FieldList := TStringlist.Create;
    try
      FieldList.Delimiter := #9;
      FieldList.StrictDelimiter := true;
      for i := 0 to LineList.Count - 1 do
        begin
          //Zeile in Felder zerlegen
          FieldList.DelimitedText := LineList[i];
          //...und durchgehen
          for j  := 0 to FieldList.Count - 1 do
            (* etwas mit dem Feld tun *)
        end;
    finally
      FieldList.Free;
    end;
  finally
    LineList.Free;
  end;
end;

[Bummi]

zum Fertigbasteln, ein Rohgerüst:

(ja ich weiß es gibt Objektlisten, ja da könnten noch try finallys rein, ja einen Setter könnte man auch noch .........)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TCVSClass=Class
    private
    Ffn:String;
    Fsl:TStringList;
    Fll:TList;
    function GetColumns: Integer;
    function GetRows: Integer;
    public
     Constructor Create(const fn:String;aDelimiter:Char);
     Destructor Destroy;
     Function GetElement(x, y: Integer): String;
    published

    Property Columns:Integer read GetColumns;
    Property Rows:Integer read GetRows;
  End;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TCVSClass }

constructor TCVSClass.Create(const fn: String;aDelimiter:Char);
var
  i:Integer;
begin

  FFn := fn;
  Fsl := TStringList.Create;
  Fsl.LoadFromFile(fn);
  Fll := TList.Create;
  for I := 0 to Fsl.Count - 1 do
      begin
        Fll.Add(TStringList.Create);
        with TStringList(FLL[FLL.Count-1]) do
          begin
            Delimiter := aDelimiter;
            DelimitedText := Fsl[i];
          end;
      end;
end;

destructor TCVSClass.Destroy;
var
  i:Integer;
begin
  Fsl.Free;
  for I := 0 to Fll.Count - 1 do TStringList(Fll[i]).free;
  Fll.Free;

end;

function TCVSClass.GetColumns: Integer;
begin
  if Fll.Count>0 then
    Result := TStringList(FLL[0]).count
  else Result := 0;
end;

function TCVSClass.GetElement(x, y: Integer): String;
begin
  if (y > -1) and (y < Fll.Count)  then
    begin
       if (x > -1) and ( x < TStringList(FLL[y]).Count) then
          begin
            Result := TStringList(FLL[y])[X];
          end else Result := '';
    end
  else Result := '';
end;

function TCVSClass.GetRows: Integer;
begin
  Result := Fll.Count;
end;




procedure TForm1.Button1Click(Sender: TObject);
var
  x,y:Integer;
begin
  With TCVSClass.Create('C:\temp\Mappe1.csv',';') do
    begin
      for x := 0 to Rows do
       for y := 0 to Columns do
        Memo1.Lines.Add(GetElement(x,y));

    end;
end;

end.

[gallstone]

Zitat von Bummi:

zum Fertigbasteln, ein Rohgerüst:

hi und danke!

das sind mir aber zu viele dinge ich nicht nachvollziehen kann

[gallstone]

Zitat von DeddyH:

Ohne Fehlerbehandlung und ungetestet:

Delphi-Quellcode:

procedure DateiEinlesen(const Dateiname: string);
var
  LineList, FieldList: TStrings;
  i, j: integer;
begin
  //Zeilen
  LineList := TStringlist.Create;
  try
    LineList.LoadFromFile(Dateiname);
    //Felder
    FieldList := TStringlist.Create;
    try
      FieldList.Delimiter := #9;
      FieldList.StrictDelimiter := true;
      for i := 0 to LineList.Count - 1 do
        begin
          //Zeile in Felder zerlegen
          FieldList.DelimitedText := LineList[i];
          //...und durchgehen
          for j  := 0 to FieldList.Count - 1 do
            (* etwas mit dem Feld tun *)
        end;
    finally
      FieldList.Free;
    end;
  finally
    LineList.Free;
  end;
end;

hi und danke,

deines kann ich schon mehr nachvollziehen.
dennoch erschließt sich mir nicht wie ich dann zum beispiel das feld [5,10] aufrufen soll.

also nach dem alles gemacht wurde.

ansonsten habe ich angefangen mir ein dyn arry zu bauen.
so kann ich das schon mit text füllen und ausgeben.
brauche nur noch nach den tabs zu suchen und alles in die felder eintragen.

es sei denn du kannst mir das idiotensicher aufzeigen - deine lösung würde auf jeden fall den QT verkürzen

grüße!

[DeddyH]

Immer noch ungetestet, sollte aber hoffentlich funktionieren.

Delphi-Quellcode:

type
  TDeinArray = array of array of string;
  
procedure DateiEinlesen(const Dateiname: string; out ResultArray: TDeinArray);
var
  LineList, FieldList: TStrings;
  i, j: integer;
begin
  //Zeilen
  LineList := TStringlist.Create;
  try
    LineList.LoadFromFile(Dateiname);
    //erste Dimension ist nun bekannt, Länge setzen
    SetLength(ResultArray, LineList.Count);
    //Felder
    FieldList := TStringlist.Create;
    try
      FieldList.Delimiter := #9;
      FieldList.StrictDelimiter := true;
      for i := 0 to LineList.Count - 1 do
        begin
          //Zeile in Felder zerlegen
          FieldList.DelimitedText := LineList[i];
          //Nun ist auch die zweite Dimension bekannt, Länge setzen
          SetLength(ResultArray[i], FieldList.Count);
          //...und befüllen
          for j := 0 to FieldList.Count - 1 do
            ResultArray[i][j] := FieldList[j];
        end;
    finally
      FieldList.Free;
    end;
  finally
    LineList.Free;
  end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
var
  TestArray: TDeinArray;
  i: integer;
begin
  DateiEinlesen('C:\Dideldum\Wuppdi.txt', TestArray);
  for i := Low(TestArray) to High(TestArray) do
    ShowMessage(Format('Zeile %d enthält %d Felder.', [i + 1, Length(TestArray[i])]));
end;

[p80286]

Zitat von gallstone:

dennoch erschließt sich mir nicht wie ich dann zum beispiel das feld [5,10] aufrufen soll.

darum ist es bisher ja auch nicht gegangen.
Du wolltest den inhalt einer Stringliste (Datei) in ein Array übertragen.
Da sind die Daten jetzt.

Und so kannst Du auf die Inhalte zugreifen: z.B.
Showmessage(myarray[5,10]; Gruß
K-H

[gallstone]

Hi,

also da ich gern verstehe was ich mache, habe ich mir das nun doch selbst gebastelt. Hier seid einfach zu Pro :

Code:

var
  Feld : array of array of string;

procedure DateiEinlesen(Dateiname:string);

var sl: TStringList;
    auswahl:string;
    stelle,i,k:integer;
begin
  sl:=TStringList.Create; //Objekt erzeugen
  try
    sl.LoadFromFile(dateiname);  //Datei in Stringliste laden
  finally
  setlength(feld,sl.Count,30);
    i:=0;  //Zähler für Zeilen
    k:=0;  //Zähler für Spalten
  while i<=sl.Count-1 do      //abarbeiten Zeilen
    begin
      k:=0;
      auswahl:=sl.Strings[i];                    //i-te Zeile in Zwischenstring Auswahl laden
        while k<=29 do                           //abarbeiten Spalten
          begin
            stelle:=pos(#9,auswahl);             //wenn TAB gefunden = neue Spalte (Stelle=TabPosition)
            feld[i,k]:=copy(auswahl,0,stelle-1); //eintragen in das Array
            auswahl:=copy(auswahl,stelle+1,length(auswahl)); //string wird um eingetragenes gekürzt
            k:=k+1;
          end;
      i:=i+1;
    end;
  form1.RichEdit1.Clear;                          
//Wiedergabe Array in RichEdit, zu Testzwecken
  i:=0;
  while i<=sl.Count-1 do
    begin
    k:=0;
      while k<=29 do
        begin
          form1.RichEdit1.Text:=form1.RichEdit1.Text+#9+feld[i,k];
          k:=k+1;
        end;
      form1.RichEdit1.Lines.Add(' ');
      i:=i+1;
    end;
  sl.free; //Objekt wieder freigeben
  end;
end;

Danke euch vielmals für eure Bemühungen, werde sicher wieder gern auf euch zurückkommen

[DeddyH]

DelimitedText hättest Du aber ganz bequem nachlesen können

[Bjoerk]

Statt SL.Strings[I] kann man einfach SL[I] schreiben und Strings beginnen in Delphi mit 1, also Copy (Auswahl, 1, ..) .