Einen String "verkleinern"

[qb-tim]

Hi,

ich weiß, dass schon mehrere Fragen zum Thema Copy und Pos gestellt wurden aber in keiner fand ich was ich richtig brauchte...

Ich habe in einem meiner Programme eine Searchlist der Dateien eines Ordners von dem ich weiß, dass er nur *.txt Dateien enthält (also: nicht einmal Ordner), weil sie von meinem Programm erstellt wurden.

Diese Searchlist wird dann in eine ListBox geladen und da kommt mein Problem:

Die Searchlist enthält die Dateinamen inklusive .txt - Dies will ich aus der String entfernen.

Da ich aber nicht weiß wie lange der eigentliche Dateiname ist, weiß ich nicht wie ich Copy oder Pos anwenden soll um die letzten vier Zeichen eines Strings zu entfernen.

[Klaus01]

schau Dir mal die Prozedur

Delphi-Quellcode:

ChangeFileExt(const FileName, Extension: string): string;

an
hier kannst Du als Extension auch '' eingeben, damit ist die Extension weg.


Ansonsten mit delete arbeiten. length bekommst Du die Stringlänge.

Delphi-Quellcode:

procedure Delete(var S: string; Index, Count:Integer);

delete(AString,length(AString)-4,4)

Grüße
Klaus

[mkinzler]

Delphi-Quellcode:

setLength( s, Length( s)-1);

[qb-tim]

Ihr habt mich auf folgendes gebracht:

Delphi-Quellcode:

// Dateiname := '*.txt'
// ich möchte DateiName ohne '.txt'
DateiName := Copy(Dateiname, 1, length(DateiName)-4);

[DevilsCamp]

Zitat:

Zitat von Klaus01

Ansonsten mit delete arbeiten. length bekommst Du die Stringlänge.

Delphi-Quellcode:

procedure Delete(var S: string; Index, Count:Integer);

delete(AString,length(AString)-4,4)

Grüße
Klaus

Falsch.

Um die letzten 4 Zeichen eines Strings zu löschen, benötigst du folgenden Code:

Delphi-Quellcode:

Delete(s, Length(s)-3, 4);

[Klaus01]

@MArc,

danke, passiert mir immer wieder :o(

Grüße
Klaus

[Vjay]

Warum macht ihr euch da überhaupt einen Kopp?

Macht doch:

Delphi-Quellcode:

Delete(s, pos('.', s), length(s));

length(s) geht, da delete die Länge des Strings eh überprüft.

[Hawkeye219]

@Vjay

Delphi-Quellcode:

Filename := 'Dies.ist.nur.ein.Beispiel.txt';

Die einfachste und sauberste Lösung hat Klaus01 mit ChangeFileExt beschrieben.

Gruß Hawkeye

[Vjay]

Ging mir eigentlich auch mehr um die Verwendung von delete ansich.

[guste]

Delphi-Quellcode:

ListBox .Text := StringReplace(ListBox.Text,'.txt','',[rfReplaceAll])

Das würde auch gehen. ChangeFileExt wäre aber mein Favorit.