Texte von Listbox1 in ListBox1 teilweise kopieren

[taktaky]

Hallo,

in ListBox1 werden alle Datei im Ordner und auch im Unterordner aufgelistet so z.B.

Code:

Ordner1\index.php
logo.gif
...

Nun möchte ich die Dateinamen von ListBox1 in ListBox2 kopieren (aber ohne den Ordner-Namen sondern nur Filename)
also in ListBox2 so nun sein :

Code:

index.php
logo.gif

Hat jemand eine Idee?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:= 0 to ListBox1.Items.Count -1 do
ListBox2.Lines.Add(' :( ');

end;

<>

[Sergej]

function ExtractFileName(const S: FullFileName): string;

[taktaky]

Zitat von Sergej:

function ExtractFileName(const S: FullFileName): string;

Ich habe schon den Code, der die Dateien in Ordner und auch in unter Ordner sucht, findet und dann in ListBox1 auflistet.

Ich muss nuss nun nur die Dateinamen von ListBox1 holen und in ListBox2 kopieren


<>

[DeddyH]

Dann benutz die gepostete Funktion dazu.

[quendolineDD]

Oder schaue Zeile für Zeile in deiner ListBoch nach den \ oder /.

copy, pos und delete dürftest du ja kennen?

[taktaky]

Zitat von quendolineDD:

Oder schaue Zeile für Zeile in deiner ListBoch nach den \ oder /.

copy, pos und delete dürftest du ja kennen?

Das kann auch die Lösung sein, indem man einen Code einbaut, der alles was von null Position bis das symbol "/" oder "\" löscht


<>

[quendolineDD]

Indem du das anstregnen würdest, was dein Smily da kratzt, wärst du vlt auf die Lösunfg gekommen, die ich dir mit den Funktionen aufzeigen wollte.

Zum einen kannst du überhaupt mal schauen, ob solche Zeichen enthalten sind, und du gleich direkt kopieren kannst von LB1 zu LB2.
Zum anderen könntest du den String jeweils immer kürzen , bis solche Zeichen nicht mehr enthalten sind und s.o.

Gruß

[Klaus01]

Zitat von taktaky:

Zitat von Sergej:

function ExtractFileName(const S: FullFileName): string;

Ich habe schon den Code, der die Dateien in Ordner und auch in unter Ordner sucht, findet und dann in ListBox1 auflistet.

Ich muss nuss nun nur die Dateinamen von ListBox1 holen und in ListBox2 kopieren
<>

Und Du bist Dir sicher was diese Funktion macht?


Die macht genau das, was quendolineDD mit copy/delete nachbauen wollte.

Ab und an mal in die Delphi Hilfe schauen, wenn man nicht weiß was eine Funktion so macht.

Grüße
Klaus

[taktaky]

Hi,

das hat nichts gebracht mit dem extractfilename

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
for i:=1 to listbox1.items.count do
listbox1.items[i-1]:=extractfilename(listbox1.items[i-1]);

end;

Es passiert nichts !



<>

[mkinzler]

Sind Laufwerksbuchstaben enthalten?