String Durchsuchen lassen der vom FTP-Server kommt

[Informatix]

Hallo Leute

Habe folgendes Problem.

Ich habe mir ein FTP-Client Tool gebastelt mit der INDY Komponente unter
Borland Delphi 6 Enterprise.
Login und verbindungsaufbau klappen bisher einwandfrei.
Die daten die auf dem Server liegen werden mir auch in meiner Listview-Komponente angezeigt.
Das Problem das ich jetzt habe ist das der Datei-name alles mögliche enthält wie z.B entstehungsdatum, letzte mal geändert, grösse, dateiname, dateistruktur (unterverzeichnisse) und welcher user die datei draufgespielt hat aufm server.

Meine aufgabe ist es nun alle informationen aus dem String auslesen zu lassen und seperat zu speichen und bei bedarf wieder anzeigen zu lassen.
was auf jeden fall ausgegeben werden soll ist der dateiname (irgend wie logisch oder) und eventuell noch die grösse.

Ich hoffe einer nimmt sich meiner an und kann mir helfen.
habe mehrere foren durchforstet und bisher nix gefunden was mir helfen könnte.

Vielen dank im voraus.
Euer Informatix

[Wormid]

Mal als Beispiel... ExtractStrings liesse sich dazu ganz nett verwenden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var DirList, ParseList: TStringList;
    i, x: Integer;
begin
  DirList   := TStringList.Create;
  ParseList := TStringList.Create;
  idFTP1.List(DirList);
  for i := 0 to DirList.Count - 1 do
  begin
    Listbox1.Items.Add('-> ' + DirList[i]);
    for x := 0 to ExtractStrings([' '], [' '], PChar(DirList[i]), ParseList) - 1 do
      Listbox1.Items.Add(ParseList[x]);
    ParseList.Clear;
  end;
  DirList.Free;
  ParseList.Free;
end;

Das Problem an der detalierten Liste ist, das sie nicht bei jedem Server gleich aussehen muss... Daher dieser Hinweis in der OH:

Zitat:

When ADetails is True, List can return FTP server-dependent details including the file size, date modified, and file permissions for the Owner, Group, and User.

An application must be able to parse the detailed list format based on the FTP server type identified in SystemDesc.

Wie das in der Praxis aussieht, ob der String bei unterschiedlichen Servern wirklich verschieden aufgebaut ist, das weiss ich leider nicht.

Edit: Source editiert... hatte vergessen die Objekte zu zerstören...

[Informatix]

Vielen dank für diese zügige antwort.
Werde es gleich mal testen.

Ich sehe gerade das du eine Listbox verwendet hast. Aber das kann ich sicherlich irgend wie umbasteln das es auch in eine Listview reinpasst.

dennoch vielen dank

Also irgend wie habe ich es nicht eingebaut bekommen

mein quelltext sieht wie folgt aus

Code:

        begin
         listview2.Clear;
         tsr:=TStringlist.Create;
         idftp1.List(tsr);             
         listview2.Items.BeginUpdate;

         for i:=1 to tsr.Count-1
          do begin
            s:=tsr.Strings[i];
            if IsPOInString(s) then          //überprüft ob im dateiname das Wort 'PO' vorkommt
            ShowMessage('PO vorhanden.')
            else  if IsPSInString(s) then    // überprüft ob im dateiname das Wort 'PS' vorkommt
            ShowMessage ('PS vorhanden')
             else ShowMessage('None vorhanden');  //andernfalls isses das wort 'NONE'
            tli:=listview2.Items.Add;        // fügt das objekt/datei in listview2 ein
            tli.Caption := tsr.Strings[i];
          end;
         listview2.Items.EndUpdate;
         end;

wie ihr sehen könnt habe ich schon eine komponente aus dem string ausgelesen, nur wenn ich das für alle so machen würde würde das unmengen an quellcode bedeuten. hoffe also einer kann mir eine schneller variante posten

[Informatix]

SO hab die lösung.
Brauch also eure Hilfe nun nimmer, zumindest nicht zu dieser frage :-D

[Tom]

War ich hilfreich?

[Luckie]

Bieten die Indys keine Möglichkeit, dass die Infos gleich aufgeschlüsselt werden? Die fastnet konnten das damals noch.

[Informatix]

Ja wie zum beispiel "Size" bloss da kam bei mir dann imma -1 was soviel wie
"Integer - Size of the file or -1 when unknown" bedeutet, denn auf den server auf den ich zugreife die dateigrösse in als blöcke und spuren angeben wird.

habe das problem aber aus der weltgeschaft mit einer stringlist.


@tom

Zitat:

PS: Begründung: Bei der Fragestellung wurden Informationen vorenthalten, die an anderer Stelle schon gestern gepostet wurden.

Ich habe keine Informationen zurückgehalten. Es wird ja wohl erlaubt sein auf mehreren Seiten nach kompetenter hilfe nachzufragen.