Dateierweiterung abschneiden

Chatfix · Verfasst: So 10.11.02 19:57

wie kann ich aus einem string der einen dateinamen enthält die erweiterung des dateinamen abschneiden (inklusive Punkt)

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

bis11 · Beiträge: 1247 Erhaltene Danke: 2 Apple Mac OSX 10.11

Hi,

wie wäre es denn damit ?

Quelltext

1:	Delete(meinstring,Length(meinstring) , 1)

Die eins ersetzt Du durch 4 und es werden immer die letzten 4 Zeichen des Strings abgeschnitten.

Chatfix · Verfasst: So 10.11.02 20:35

wie wäre es damit?

es gibt auch erweiterungen mit 4 buchstaben z.B. html oder jpeg..

dann müste ich dort eine 5 hinschreiben, aber woher weiss ich wie lang die erweiterung is...

ich könnt auch ne schleife rückwärts bis zum ersten punkt machen, aber eigentlich wollt ich wissen obs dafür nicht schon was fertiges gibt

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Ehemaliges Mitglied Erhaltene Danke: 1

Ja, ChangeFileExt - s. Hilfe.
Als Endung gibst du eben nur einen Leerstring an.

Bleibt immer noch das "Problem" mit Dateien wie

markieren

Quelltext

1:	AnnaKournikova.jpg.vbs

In solchen Fällen wird eben nur die jeweils letzte Endung entfernt.

Chatfix · Verfasst: So 10.11.02 20:53

achja das könnte klappen...

solche doppelendungen interessieren nciht *gg* weil diese ohne hin nicht angezeigt werden...

thx

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Chatfix · Verfasst: So 10.11.02 20:56

also es funzt nicht...

hab das jetz so:

markieren

Quelltext

1:
2:
3:

n:=FindRec.Name;
        ChangeFileExt(n,'');
        form1.listbox1.items.Add(n);

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Chatfix hat folgendes geschrieben:

also es funzt nicht...

Hast Du Dir mal die Hilfe zu der Funktion ChangeFileExt angeschaut? Eigentlich habe ich das Wichtige jetzt schon gesagt: Es handelt sich dabei um eine Funktion. Das heißt das diese Funktion einen Wert zurückliefert. Und jetzt rate mal welchen :-D

Gruß
TINO

Chatfix · Verfasst: Mo 11.11.02 22:05

achja sorry.. thx trotzdem....

manchmal bin ich froh das es euch gibt *g*

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

Amarradi · Hält's aus hier Beiträge: 15

Hallo
Nein im Delphi gibts da leider keine komponente zum Erweiterung löschen, aber im Pascal gibt es eine Procedure die nennt sich fsplit. Damit kann man den String in seine 3 Bestandteile zerlegen.
1. Laufwerk
2. Pfad
3. Erweiterung
da wäre das kein Problem.
Du musst wohl oder über eine for-schleife nach der länge des Strings rückwärts durchlaufen. Und jede Position des Strings mit dem punkt vergleichen. und löschen. Du musst die Position um eins vermindern da der Punkt nicht gelöscht werden soll.

MfG Amarradi

_________________
If God has created the world, his primary worry was certainly not to make its understanding easy for us. 'Albert Einstein'

Ehemaliges Mitglied Erhaltene Danke: 1

Die Lösung wurde doch schon gepostet.

Chatfix · Verfasst: Mi 13.11.02 17:56

Chatfix hat folgendes geschrieben:

ich könnt auch ne schleife rückwärts bis zum ersten punkt machen, aber eigentlich wollt ich wissen obs dafür nicht schon was fertiges gibt

aber trotzdem danke *gg*

_________________
Gehirn: ein Organ, mit dem wir denken, daß wir denken. - Ambrose Bierce

hitstec · Beiträge: 295

Mehrere Lösungen sind immer gut - da hat man die Auswahl.
:eyecrazy:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme