Verzeichnisse in Listbox auflisten

[Lamy]

Hi!

Soo, habs jetzt so weit dass mein "Client" das Verzeichnis in einer Listview anzeigt - allerdings immernoch alles zusammen - Dateiname, Datum, Zugriffsrechte....


Wie kann ich diese ganzen Werte aus der Stringliste extrahieren um sie dann in "Colums" sortirt anzeigen zu können?

Danke schonmal!

Lamy

[alcaeus]

Wie hast du die Daten in der StringList vorliegen? Du musst die erstmal aufspalten, dann kannst du mit

Delphi-Quellcode:

  ListView1.Items[Index].SubItems.Add(<Detail>);

eine neue Spalte hinzufügen. Beachte dass du aber zuerst die Eigenschaft Columns der ListView entsprechend konfigurieren musst.

[Lamy]

Zitat:

Zitat von alcaeus

Wie hast du die Daten in der StringList vorliegen? Du musst die erstmal aufspalten, dann kannst du mit

Delphi-Quellcode:

  ListView1.Items[Index].SubItems.Add(<Detail>);

eine neue Spalte hinzufügen. Beachte dass du aber zuerst die Eigenschaft Columns der ListView entsprechend konfigurieren musst.

So wird die Stringliste "aufgeladen" und in die Listview übertragen:

Delphi-Quellcode:

    Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
    IdFTP1.List(Stringliste);
    FOR i := 1 TO Stringliste.Count DO
      WITH Form1.Listftpdir.Items.Add DO
        Caption := Stringliste.Strings[i - 1];

Aber ich weiß beim besten Willen nicht wie die Dateien in der Stringliste vorliegen - wie kann ich das rausfinden und aufsplitten?

P.S.: immer die aktuellste Verion [wen's interessiert, s' gibt noch nicht viel was man machen kann^^]: http://www.a.toolsnfun.de/ftpclient/update.exe

[alcaeus]

Also, die Daten werden mit Leerzeichen getrennt. Speicher mal einen Entrag der Stringlist in eine Datei, dann kann ich ihn auch besser analysieren. Soviel zum ersten Thema. Zum zweiten, dein Programm. Ein FTP-Client ist ja ganz nett, aber erstens würde ich gern von der Update-Funktion ein Fenster sehen, welches mir anzeigt dass die Datei heruntergeladen wird. So weiß ich ob das Programm hängt oder was los ist. Zweitens, Bringe die Fenster in den Mittelpunkt des Geschehens, also des Bildschirms. Drittens, ich sehe keinen Grund, das Fenster für Verbindung herstellen und Einstellungen als bsSizeable einzustellen. Mach die beiden als bsDialog, so kann man die Größe nicht mehr ändern. Und last but definitely not least:
:warn: Ein Plaintext-Passwort in einer INI-Datei im Verzeichnis des Programms ist für mich ein Grund das Programm zu löschen und den Programmierer zu terminieren. Auch wenns nur eine Beta ist, aber nachdem du das Passwort in den Edits brav versteckst, kannst du es auch verschlüsselt in die INI geben. Also, ändere das bitte schnellstens! :warn:

[Lamy]

Zitat:

Zitat von alcaeus

Also, die Daten werden mit Leerzeichen getrennt. Speicher mal einen Entrag der Stringlist in eine Datei, dann kann ich ihn auch besser analysieren. Soviel zum ersten Thema. Zum zweiten, dein Programm. Ein FTP-Client ist ja ganz nett, aber erstens würde ich gern von der Update-Funktion ein Fenster sehen, welches mir anzeigt dass die Datei heruntergeladen wird. So weiß ich ob das Programm hängt oder was los ist. Zweitens, Bringe die Fenster in den Mittelpunkt des Geschehens, also des Bildschirms. Drittens, ich sehe keinen Grund, das Fenster für Verbindung herstellen und Einstellungen als bsSizeable einzustellen. Mach die beiden als bsDialog, so kann man die Größe nicht mehr ändern. Und last but definitely not least:
:warn: Ein Plaintext-Passwort in einer INI-Datei im Verzeichnis des Programms ist für mich ein Grund das Programm zu löschen und den Programmierer zu terminieren. Auch wenns nur eine Beta ist, aber nachdem du das Passwort in den Edits brav versteckst, kannst du es auch verschlüsselt in die INI geben. Also, ändere das bitte schnellstens! :warn:

1.: Wie kann ich das denn in ner Datei speichern? *keineahnunghat*
2.: Danke für die Kritik! Ich wollte eh noch fragen wie man das Resizen unterbinden kann :D aber wie kriege ichs in den Mittelpunkt des Bildschirms? :angle2: Zum Thema Passwort: Ich hatte sowiso noch vor das zu verschlüsseln und dann in der .ini zu speichern oder vielleicht in der Registry aber erstmal eins nach dem andern :stupid:...

Wie gesagt, vielen Dank für Kritik & Tips, aber lieber back2Topic sonst wird der Thread wieder geschlossen *angst*

Lamy

[alcaeus]

Ok, also, du kanst den String auch in ein Edit reinschreiben oder sonstwas, hauptsache du kannst eines der Elemente in der StringList mit Ctrl+C kopieren und dann hier posten. Mich interessiert ob das mit Tabs oder sowas gelöst wird. Bezüglich der Position: die Eigenschaft "Position" des Forms auf poMainFormCenter setzen, um das Form in der Mitte des Hauptformulars anzeigen zu lassen. Aber wieder zurück zum Topic. Setze einen Breakpoint in die Schleife, und werte mit Strg+F7 ein Feld der Stringlist aus. Dann kopierst du das Ergebnis und stellst es hier online, ich habe leider keine Zeit ein FTP-Programm zu schreiben um das herauszufinden. Aber sowas Ähnliches hats hier schon mal gegeben:
http://www.delphipraxis.net/internal...ighlight=idftp
Ganz wichtig sein könnte dieser Beitrag:
http://www.delphipraxis.net/internal...=161613#161613
Ich habs nicht probiert, also, viel Glück...

PS: Wegen dem Passwort: Na dann lieber mal nicht abspeichern als Plaintext, wirklich...

[Lamy]

Also, so hab ichs verstanden:

stringliste[0] wäre Zugriffsrechte 11 jaschu-mac4win homepages 4096 May 5 14:47 .

Jetzt suche ich die Trennzeichen mit pos [die Leerzeichen], und mit copy splitte ich mir dann den ersten block ab.

Aber wie ging das nu?
In der Delphihilfe habsch schon nachgeguckt, ist aber nicht aufschlussreich für mich...

[DataCool]

HI Lamy,

ich hab ne Funktion geschrieben, die einen TExt automatisch anhand eines Trennzeichen aufsplittet und das ERgebnis in eine STringList schreibt.

DAs sollte Dir weiter helfen :

Code:

// splittet einen bestehenden String anhand eines Trennzeichen in mehere Strings auf
Function VBSplit(Liste : TStringList; Text2Split : String; SeperatorStr : String) : Boolean;
Var Posi      : Longint;
      strTemp : String;
      strPart : String;
      bInLoop : Boolean;
      sepLen  : Longint;
begin
   result  := true;
   bInLoop := false;
   try
      //Liste leeren
      Liste.clear;
      strTemp   := Text2Split;
      sepLen    := Length(SeperatorStr);
      Posi      := Pos(SeperatorStr,strTemp);
      While Posi > 0 do begin
         bInLoop := true;
         strPart := Copy(strTemp,1,Posi-1);
         Liste.Add(strPart);
         strTemp := copy(strTemp,Posi+sepLen,Length(strTemp)-(Posi+sepLen-1));
         Posi    := Pos(SeperatorStr,strTemp);
      end;
      if (bInLoop) or (Length(strTemp)>0) then
         Liste.add(strTemp);
   except
      Result := false;
   end;
end;

GRuß Data

[SirThornberry]

@DataCool: Nix gegen dich persönlich aber deine Funktion ist ziemlich unperformant da du mit copy ständig nen riesen string neu zusammensetzt... Von der Performance her sollte folgende Procedure um einiges besser sein..

Delphi-Quellcode:

procedure splitString(const Source: String; const Delimiter: String; var Dest: TStringlist);
var count: Integer;
    LStartpos, LEndepos, LSourcelength: Integer;
begin
 Dest.Clear;
 count := 1;
 LStartpos := 0;
 LEndepos := 0;
 LSourcelength := length(Source);
 while count <= LSourcelength do
 begin
  if copy(Source, count, length(Delimiter)) = Delimiter then
  begin
   LEndepos := count;
   dest.Add(copy(Source, LStartpos + 1, LEndepos - LStartpos - 1));
   LStartpos := count + length(Delimiter) - 1;
   count := count + length(Delimiter);
  end else begin
   count := count + 1;
  end;
 end;
 if LEndePos <> Count - length(Delimiter) then
    dest.Add(copy(Source, LStartpos + 1, count - LStartpos - 1));
end;

Hab eben noch nen kleinen Test durchgeführt. Meine Funktion brauchte für einen kleinen String von 10 MB (jedes vierte zeichen ein Delimiter) zwischen 7 und 8 Sekunden. Die Funktion von Datacool wurde jedesmal nach ca 13 Sekunden mit dem Fehler "Out of Memory" beendet. Keine Ahnung wann bei meiner Funktion so eine Meldung kommmt. Den größten String den ich bisher damit zerlegt hab war ein etwa 50 MB großer String (Datenbank-Tabellen-Abbild)

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Internet / IP / LAN" nach "VCL-Komponenten und Controls" verschoben.
Irgendwie fehlt mir der Bezug zu LAN ;-)

[s14]

@SirThornberry
Mal nur so eine Idee, wie wär's damit :?:

Delphi-Quellcode:

Dest.Lines.Text := StringReplace(Source, Delimiter, #13#10, [rfReplaceAll, rfIgnoreCase]);

Gruß
s14

[SirThornberry]

@s14: Auf den ersten Blick ne supi variante ABER:
versuch mal

Delphi-Quellcode:

Stringliste.Add('abc'#13#10'def');

Ergebnis davon ist das es in einem Item ist:
Wenn du allerdings mit deinem Stringreplace arbeitest wird es in zwei items aufgeteilt.
Wenn du jetzt folgenden String hast

Code:

Item1
  Entry1
  Entry2
|
Item2
  Entry1
  Entry2

und "|" der Delimiter ist so wirst du bei deiner Stringreplacevariante & Items in der Stringliste vorfinden...
(korrigiert mich wenn ich nen denkfehler hab, aber eigentlich hab ich damals wegen genau diesem problem die funktion geschrieben)

[s14]

@SirThornberry: Da hast Du natürlich Recht, NUR :wink:
die Frage bezog sich doch auf das Trennen einer einzigen Zeile nach Leerzeichen, also ohne weitere Umbrüche.

Gruß
s14

[s14]

Also, ich habs jetzt doch mal probiert, funktioniert eigentlich 8)

Delphi-Quellcode:

procedure SplitStrToStringList(const source: String; const Delimiter: String; Dest: TStrings);
begin
  Dest.Text := StringReplace(Source, Delimiter, #13#10, [rfReplaceAll, rfIgnoreCase]);
end;

Aufruf dann beispielsweise zum testen mit:

Delphi-Quellcode:

procedure TForm1.Button24Click(Sender: TObject);
begin
  SplitStrToStringList('Zugriffsrechte 11 jaschu-mac4win homepages 4096 May 5 14:47 ', ' ', memo1.Lines);
end;

[SirThornberry]

@s14: hast recht, für die einzelne Zeile reicht nadürlich nen StringReplace...

[DataCool]

@SirThornberry:
Gut dann ist meine Function halt unperformat :sad: :oops:
Aber ich habe die vor 2/3 Jahren geschrieben und muss damit eigentlich immer nur Strings splitten, alle unter 1 MB :mrgreen:
Werde mir aber gleiche Deine Funktion mal näher betrachten.

GRuß Data

[Lamy]

Hi!

Danke für die vielen Antworten, aber irgendwie kapier ich hier gar nix mehr :gruebel:

Wie ist die Prozedur vopn SirThornberry einzubinden?
Was genau macht die mit

Dest.Clear;
count := 1;
LStartpos := 0;
LEndepos := 0;
LSourcelength := length(Source);

?


Danke schonmal!

[SirThornberry]

DataCool war so freundlich meine Funktion noch ein bischen zu verbessern - THANKS

Delphi-Quellcode:

procedure splitString(const Source: String; const Delimiter: String; var Dest: TStringlist);
var count: Integer; 
      LStartpos, LEndepos, LSourcelength: Integer; 
      LDelimiterLength : Integer;
begin
   Dest.Clear; 
   count := 1; 
   LStartpos := 0; 
   LEndepos := 0; 
   LSourcelength := length(Source); 
   LDelimiterLength := Length(Delimiter);
   while count <= LSourcelength do begin
      if copy(Source, count, LDelimiterLength) = Delimiter then begin
         LEndepos := count;
         dest.Add(copy(Source, LStartpos + 1, LEndepos - LStartpos - 1));
         LStartpos := count + LDelimiterLength - 1;
         inc(count,LDelimiterLength); 
      end 
      else begin 
         inc(count); 
      end; 
   end; 
   if LEndePos <> Count - LDelimiterLength then 
         dest.Add(copy(Source, LStartpos + 1, count - LStartpos - 1)); 
end;

@Lamy: eigentlich brauchst du die funktion nicht da dein Problem einzeilig ist und somit stringreplace die einfacherere alternative ist.
Zu deinen Fragen:

Delphi-Quellcode:

Dest.Clear; //leert die Ziel-Stringliste (dem user bissl arbeit abnehmen)
count := 1; //Count ist der Index wo wir uns gerade im String befinden
LStartpos := 0; //anfangs wird die startposition auf 0 gesetzt damit, irgendwo muss ja der string anfangen
LEndepos := 0; //Da wir noch nicht parsen muss die endeposition auch auf 0 - wird später hochgezählt
LSourcelength := length(Source); //wird für schleifenabbruch bedingung gebraucht. gibt an wie lang der string ist der zerteilt werden soll

Beispielaufruf:

Delphi-Quellcode:

var LListe: TStringlist;
begin
  LListe := TStringlist.create;
  splitString('Part1|Part2|Part3', '|'; LListe); 
  //jetzt sollte in LListe der geteilte sting sein - also 3 Items
  [...] //dein source (also das auswerten der items)
  LListe.Free;
end;

[Edit]Fehler in Funktion beseitigt[/Edit]

[Lamy]

Danke, die Erklärung sagt mir so einiges :)


Aber:

Zitat:

Zitat von SirThornberry

@Lamy: eigentlich brauchst du die funktion nicht da dein Problem einzeilig ist und somit stringreplace die einfacherere alternative ist.

???


Ist das die Methode die S14 gepostet hat?
Die kapier ich auch nicht - da ist ja nicht nur "Zugriffsrechte 11 jaschu-mac4win homepages 4096 May 5 14:47" in der Stringliste sondern auch diese Daten aller anderen Dateien / Ordner die er vom ftp ausliest...

[SirThornberry]

genau, das ist die funktion die s14 gepostet hat. bei seiner variante musst du auch jede zeile nochmal in eine stringliste aufsplitten. Man könnte auch noch die unperfomantere Variante nehmen und sich jedes Element extra holen. Hab da glaube irgendwann mal ne funktion gepostet die "splitOutIndex" oder so hieß. Allerdings ist die funktion noch nicht geschwindigkeits optimiert...

[Lamy]

Zitat:

Zitat von SirThornberry

genau, das ist die funktion die s14 gepostet hat. bei seiner variante musst du auch jede zeile nochmal in eine stringliste aufsplitten. Man könnte auch noch die unperfomantere Variante nehmen und sich jedes Element extra holen. Hab da glaube irgendwann mal ne funktion gepostet die "splitOutIndex" oder so hieß. Allerdings ist die funktion noch nicht geschwindigkeits optimiert...

????

Naja, ich glaub' ich nehm dann doch lieber das was du gepostet hast, ist zwar länger aber dafür kapier ichs einigermaßen ^^

Dankööö!! :hello:

[Lamy]

Och nööö - zu früh gefreut :(

Delphi-Quellcode:

PROCEDURE TForm3.ChangeDir(DirName: STRING);
VAR
  stringliste: TStringList;
  i: Integer;
BEGIN
  Stringliste := TStringList.Create; // Stringliste erzeugen
   splitString('Part1|Part2|Part3', '|'; Stringliste);

  TRY
    IdFTP1.ChangeDir(DirName);
//    IdFTP1.TransferType := ftBinary;
    Form1.Listftpdir.Items.Clear; // Verzeichnisanzeige leeren
    IdFTP1.List(Stringliste);
    FOR i := 1 TO Stringliste.Count DO
      WITH Form1.Listftpdir.Clumns[0] DO
        Caption := Stringliste.Strings[i - 1];
  FINALLY
    Form1.EDftpverzeichnis.Text := IdFTP1.RetrieveCurrentDir; // Aktuelles Verzeichnis in die Combobox zur Verzeichnisauswahl schreiben
    Stringliste.Free;
  END;
END;

Oh mann ich bin so saudumm, ich hab wirklich keinen Schimmer wie das zum Teufel nochmal zu funktionieren hat :(...

Mir ist schon klar, dass man "Part1,2" etc. durch irgendwas ersetzen muss aber durch was?

[Benedikt]

Hi,

du nutzt ja scheinbar die Indy-Komponenten um die Daten per FTP abzurufen, oder?
Warum machst du dir dann diesen Aufwand die FTP-Dateiliste selber zu bearbeiten und benutzt nicht einfach idFTP.DirectoryListing (ab Indy9).

Das liefert dir sämtliche Daten über die Dateien "zerpflückt" zurück, die Indy-Demos machen das ebenfalls darüber.

Beispiel:

Delphi-Quellcode:

idFTP.List(FileList);

for i:=0 to idFTP.DirectoryListing.Count-1 do
   ListBox1.Items.Add(idFTP.DirectoryListing.Items[i].Filename);

[Lamy]

Hey!

DankedankedankeDankedankedankeDankedankedanke! :love:

Da kommt nur aber nen Fehler
Klick

[SirThornberry]

nicht

Delphi-Quellcode:

for i := 1 to stringliste.count do

sondern

Delphi-Quellcode:

for i := 0 to stringliste.count - 1 do

da das erste item der index 0 ist

[alcaeus]

@Lamy: Wenns geht füge die Bilder doch als Anhang hinzu, vor allem wenn sie so schön breit sind ;)

[Lamy]

Ok, sorry, wird nicht wieder vorkommen :)

[alcaeus]

Kein Problem...ich musste es auch mal lernen ;)

PS: Poste den FTP-Client hier sobald er fertig ist, das Preview von vor ein paar Tagen sah interessant aus...

[Lamy]

Zitat:

Zitat von alcaeus

Kein Problem...ich musste es auch mal lernen ;)

PS: Poste den FTP-Client hier sobald er fertig ist, das Preview von vor ein paar Tagen sah interessant aus...

Du willst doch bestimmt Betatester werden *grins*

[Benedikt]

Zitat:

Zitat von Lamys Code

Delphi-Quellcode:

for i:=0 to Stringliste.Count-1 do

Ich würde auch hier schon auf DirectoryListing zugreifen, wie in meinem Beispiel oben, da sich der Count der Stringliste und der von DirectoryListing unterscheiden können.

Das kommt daher weil einige FTP-Server noch was mitsenden, was in DirectoryListing rausgenommen wird, in der Stringlist jedoch natürlich noch drinsteht.

[Lamy]

Zitat:

Zitat von Benedikt

Zitat:

Zitat von Lamys Code

Delphi-Quellcode:

for i:=0 to Stringliste.Count-1 do

Ich würde auch hier schon auf DirectoryListing zugreifen, wie in meinem Beispiel oben, da sich der Count der Stringliste und der von DirectoryListing unterscheiden können.

Das kommt daher weil einige FTP-Server noch was mitsenden, was in DirectoryListing rausgenommen wird, in der Stringlist jedoch natürlich noch drinsteht.

Dann hat man aber nicht die Chance das ganze schön mit Symbolen etc. auszustatten und ich glaub auch grade nicht, dass man da solche Spalten (Columns) einfügen kann...

[Benedikt]

Zitat:

Zitat von Lamy

Dann hat man aber nicht die Chance das ganze schön mit Symbolen etc. auszustatten und ich glaub auch grade nicht, dass man da solche Spalten (Columns) einfügen kann...

Verstehe nicht ganz was du meinst, ich meinte eigentlich nur, du solltest dein StringListe.Count-1 durch idFTP.DirectoryListing.Count-1 ersetzen.

[Lamy]

Ach so ^^

Ich dachte, du meintest eine DirectoryListBox... :mrgreen:

Aber danke für den Tip!

[alcaeus]

Zitat:

Zitat von Lamy

[Du willst doch bestimmt Betatester werden *grins*

Na klar...ich kritisiere gern :twisted: Nö, im Ernst, ich gebe gerne Hinweise zum Programm...

[Lamy]

Mal nen anderes Problem - warum kommt wohl ein dicker Fehler wenn ich den Style der Listbox auf vsreport umstellen will?

Ich würde ja jetzt code posten, aber ich weiß beim besten Willen nicht worans liegt :wall:

[SirThornberry]

eventuell hast du noch keine Columns angelegt??!?

[Lamy]

Zitat:

Zitat von SirThornberry

eventuell hast du noch keine Columns angelegt??!?

doch...
habs - http://www.swissdelphicenter.ch/de/showcode.php?id=1117

Ums beheben zu könknen bräucht ich allerdings die Datei ComCtrls.pas weil ich noch Delphi5 hab...
Könnte mir das wohl bitte wer mailen?

[e-mail]


Dankeschön!

[SirThornberry]

Hmm, eigentlich Neues Thema = Neuer Thread.
tritt der fehler nur auf wenn der style auf vsreport ist?? Und wenn du den Style wieder zurück stellst kommt der Fehler nicht mehr???

[Lamy]

Nochmal :):

Kann mir die bitte mal wer schicken?

Danköö!

[SirThornberry]

Ich glaub da hat borland was dagegen. Kannst es ja mal mit ner mail an borland versuchen