Dateien umbenennen mit unbekannten Parametern

[delphi-n]

Hi!

Ich würde gern ein "dateien-umbenenn-programm" schreiben.
Leider gibt es ein paar Probleme:

1. Ich hab kein Quellcode fürs umbenennen (außer dem, aber da kommt das:

Delphi-Quellcode:

Erzeugen
  [Fehler] Unit4.pas(44): Undefinierter Bezeichner: 'TSHFileOpStruct'
  [Fehler] Unit4.pas(46): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(47): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(50): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(51): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(52): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(52): Undefinierter Bezeichner: 'fof_MultiDestFiles'
  [Warnung] Unit4.pas(52): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert
  [Fehler] Unit4.pas(54): Operator oder Semikolon fehlt
  [Fehler] Unit4.pas(54): Operator oder Semikolon fehlt
  [Warnung] Unit4.pas(54): Vorzeichenbehaftete und -lose Typen werden kombiniert - beide Operanden werden erweitert
  [Fehler] Unit4.pas(55): Undefinierter Bezeichner: 'ShFileOperation'
  [Warnung] Unit4.pas(55): Vorzeichenbehaftete und -lose Typen werden verglichen - beide Operanden werden erweitert
  [Fehler] Unit4.pas(95): Operator ist auf diesen Operandentyp nicht anwendbar
  [Fataler Fehler] Unit1.pas(44): Verwendete Unit 'Unit4.pas' kann nicht compiliert werden

2. Sie haben alle unterschiedliche endungen, die ja voher entfernt werden müssen (also z.B. String[5].Left.-4, oder so) Wie ist die genaue Anweisung dafür?



Vielen Dank schon mal für eure Antworten :)

[guinnes]

Hast du die ShellAPI eingebunden ?

[mkinzler]

Zitat:

Die Unit ShellApi muss eingebunden werden.

[Tryer]

1. Du solltest den Quelltext erst kopieren wenn Du auch den Text davor gelesen hast :)

2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())").

Grüsse, Dirk

[DeddyH]

Zitat:

Die Unit ShellApi muss eingebunden werden.

Soviel zu den Fehlermeldungen. Und zu den Dateiendungen, die heißen auf Englisch file extensions, die benötigten Funktionen demnach ExtractFileExt bzw. ChangeFileExt.

[guinnes]

Zitat:

Zitat von Tryer

2. Einfach rückwärts durchlaufen und vom Anfang bis zum ersten gefundenen '.' mit Copy() heraustrennen (Oder bis "Length - Length(ExtractFileExt())").

Oder gleich mit ChangeFileExtension arbeiten

[DeddyH]

[OT] Eine halbe Stunde lang gar keine Antwort und dann 5 innerhalb von 2 Minuten :lol: [/OT]

[delphi-n]

Zitat:

Und zu den Dateiendungen, die heißen auf Englisch file extensions, die benötigten Funktionen demnach ExtractFileExt bzw. ChangeFileExt.

danke, ich habe das gefunden:

http://www.delphibasics.co.uk/RTL.as...dCode1=Yes#Ex1


das müsste eigentlich besser sein, als das mit der ShellAPI (das ist eh viel zu komplieziert :D )

aber danke für die antworten :)

ich werd das gleich mal testen

[guinnes]

Damit benennst du die Datei aber nicht um, sondern Änderst nur die Endung

[DeddyH]

Ist das etwa kein Umbenennen? :gruebel:

[delphi-n]

ich habs mal eingefügt:

Delphi-Quellcode:

 ChangeFileExt(Form3.ListBox1.Items.Strings[i], Edit2.Text);

Allerdings kommt folgender fehler (siehe Attachment)

[mkinzler]

Was sind die Grenzen der Laufvariable i?

[delphi-n]

ich hab eine while-schleife eingebaut:

Delphi-Quellcode:

i:=0;
while i<ListBox1...Count do

ChangeFileExt(Form3.ListBox1.Items.Strings[i], Edit2.Text);
i:=i+1;

end;

[mkinzler]

Warum keine FOR-Schleife?

[delphi-n]

Zitat:

Warum keine FOR-Schleife?

ist doch eig. egal

[Tryer]

Zitat:

Zitat von DeddyH

Ist das etwa kein Umbenennen? :gruebel:

ChangeFileExt ändert nur den String ohne Einfluß auf die Datei.

[DeddyH]

Wenn man das falsch benutzt, ja. Dabei muss man nur den Unterschied zwischen Prozeduren und Funktionen kennen ;)

[Tryer]

.. und selbst wenn man es richtig benutzt ;)

[DeddyH]

Meine Güte. Was ich meine ist, dass man den Rückgabewert der Funktion für das eigentliche Umbenennen nutzen soll, so wie es auf der ersten Seite steht, passiert natürlich nix. Drücke ich mich so unverständlich aus?

[Tryer]

Ist doch klar ;)
Ich wollte dem Fragesteller nur den Tip geben das ChangeFileExt kein Ersatz für den ShellAPI-Aufruf ist. Sein Link könnte den Eindruck erwecken das damit die Datei umbenannt wird.

Grüsse, Dirk

[DeddyH]

Jetzt fällt es mir wie Schuppen aus den Haaren. Der Link ist nachträglich hineineditiert worden, daher fehlte mir der Bezug.

[delphi-n]

Zitat:

Ich wollte dem Fragesteller nur den Tip geben das ChangeFileExt kein Ersatz für den ShellAPI-Aufruf ist. Sein Link könnte den Eindruck erwecken das damit die Datei umbenannt wird.

das würde für das programm reichen :)

[DeddyH]

Was könnte "Datei umbenennen" denn auf Englisch heißen? "Rename File", da könnte es ja vielleicht eine ähnlich klingende Funktion geben. :zwinker:

[delphi-n]

es soll ja eig. nur die datei-erweiterung geändert werden.

(da ist nur dieser doofe fehler (s.o.))

[DeddyH]

Ja und? Das entspricht ja auch einem Umbenennen. Pseudocode:

Delphi-Quellcode:

RenameFile(<Alter Dateiname>,<Alter Dateiname mit neuer Endung>);

[delphi-n]

danke, ich teste das gleich mal :)

[delphi-n]

ich hab jetzt:

Delphi-Quellcode:

ChangeFileExt(Form1.Frame21.Label1.Caption+ListBox1.Items[i], Edit1.Text);

da kommt zwar kein fehler, es klappt aber auch nicht ^^ (es wird einfach nicht umbenannt)

[DeddyH]

ChangeFileExt ist eine Funktion, die Dir den Dateinamen mit der angegebenen Endung zurückgibt, nicht mehr und nicht weniger. Das Umbenennen musst Du natürlich noch übernehmen (siehe mein letzter Post).

[mkinzler]

ChangeFileExt nennt die Datei aber nicht um, sondern gibt nur den neuen dateinamen zurück.

Delphi-Quellcode:

newfilename := ChangeFileExt( 'Datei.exe', 'txt');

ergibt Datei.txt

[himitsu]

Zitat:

Zitat von mkinzler

ChangeFileExt nennt die Datei aber nicht um, sondern gibt nur den neuen dateinamen zurück.

wäre aber auch böse sowas ... vorallem wenn man z.B. so den Namen+Ort einer "gleichnamigen" Datei im Programmverzeichnis rausbekommen möchte.

Delphi-Quellcode:

inifilename := ChangeFileExt(Application.ExeName, '.ini');

@mkinzler: den Punkt nicht vergessen
'gif' ergibt 'Dateigif'
und bei '' kommt 'Datei' raus

[Sir Rufo]

Delphi-Quellcode:

var
  AlterDateiName,
  NeuerDateiName : string;
begin
  AlterDateiName := 'C:\Datei.txt';
  // Wir bauen uns den neuen Datei-Namen
  NeuerDateiName := ChangeFileExt( AlterDateiName, '.dat' );
  // Wir ändern den Namen der Datei auf der Fest-Platte
  RenameFile( AlterDateiName, NeuerDateiName );
end;

So in etwa muss der Code lauten - nur noch an die eigene Umgebung anpassen

ach, ja, weil es jetzt so schön ist:
RenameFile ChangeFileExt