Dateiname aus Pfad extrahieren ?

Blamaster · Beiträge: 164

Hallo,

mit Filename:=ExtractFileName(Ergebnis2);, habe ich es geschafft den Pfad vor der Datei zu entfernen. Es wird allerdings immernoch das Format hinter dem Dateinamen angezeigt z.B. dateiname.exe. Wie bekomme ich noch das exe hinter dem Dateinamen weg ?

mfg Yannic

Narses · Verfasst: Mo 27.08.07 13:18

Moin!

Schonmal die Suche benutzt? Suche in: Delphi-Forum, Delphi-Library

DATEINAME ERWEITERUNG :roll:

Findet z.B. auch das hier. :les:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

IceBube · Beiträge: 231

Hallo!

Eine Idee wäre folgende:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

//procedure bzw. funktion ....
var FileName,Ext,wstr : string;
Fund : integer;
begin
FileName := ExtractFileName(Ergebnis2);
FileExt := ExtractFileExt(FileName);

Fund := Pos(FileExt,FileName);
if Fund <> -1 then
begin
FileName := Copy(Filename,0,Fund-1);
end;

//So nun ist wird der FileName ohne die Datei Erweiterung angezeigt
end;

Edit: s.o. @Narses^ oke es geht auch einfacher

Mfg

Blamaster · Beiträge: 164

Danke genau das habe ich gesucht

jaenicke · Verfasst: Mo 27.08.07 23:18

Oder sehr viel einfacher:

markieren

Delphi-Quelltext

1:	DateinameOhneEndung := ChangeFileExt(Dateiname, '');

// EDIT: Und das steht ja auch unter dem verlinkten Topic, wie ich gerade sehe^^

Andreas L. · Verfasst: Mo 27.08.07 23:53

markieren

Delphi-Quelltext

1:
2:

Fund := Pos(FileExt,FileName);
if Fund <> -1 then

Pos gibt 0 zurück wenn der Teilstring nicht gefunden wurde.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme