AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

File Rename

Ein Thema von -187- · begonnen am 26. Sep 2005 · letzter Beitrag vom 26. Sep 2005
Antwort Antwort
-187-

Registriert seit: 24. Sep 2005
483 Beiträge
 
Delphi 2010 Architect
 
#1

File Rename

  Alt 26. Sep 2005, 15:29
Moin, ich hab zwar keine Ahnung obs hier rein passt aber mal sehen :]

Also, ich habe mir gestern mit Hilfe ein paar Membern ein Proggy gebaut welches mir Files umbenannt.


Das ganze funktioniert so:

Ich gebe einen Ordner an und eine beliebige File Endung.Nun klicke einfach nur den Button "Start" !

Jetz werden alle Files in diesem Ordner wie folgt umbenannt:

1.[ext]
2.[ext]
3.[ext]
.
.
.
100.[ext]


[ext] = jpg , exe usw usw


Nun möchte ich aber das es wie folgt ausgegeben wird:

001.[ext]
002.[ext]
003.[ext]
....
010.[ext]
......
100.[ext]

Also es soll immer 3 Stellig bleiben.

Der Source für das ganze is folgender:

Delphi-Quellcode:
begin
  FindAllFiles(path, Edit2.Text, CheckBox1.Checked);
  a := 0;
  for i := 0 to Length(Files) - 1 do
  begin
    repeat
      inc(a);
      if (Edit4.Text = '') then
        ext := ExtractFileExt(Files[i])
      else
        ext := '.'+Edit4.Text;
      temp := ExtractFilePath(Files[i])+Format('%s%d', [Edit3.Text, a])+ext; //Beim Format gehörenglaube ich ein paar Argumente, dass dieführenden nullen passen
    until (not FileExists(temp));
    RenameFile(Files[i], temp);
  end;
  Files := nil;
end;

MFG
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.987 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: File Rename

  Alt 26. Sep 2005, 15:48
So stellst du z.B. immer 3 Stellen ein:

Delphi-Quellcode:
var
  Zahl: integer;
  ErgZahl: string;
begin
  Zahl := 1;
  ErgZahl := Format('%.3d',[Zahl]);

  //ErgZahl enthält hier '001'
Es wird mit führenden Nullen aufgefüllt.
  Mit Zitat antworten Zitat
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: File Rename

  Alt 26. Sep 2005, 16:07
Zitat von -187-:
Also, ich habe mir gestern mit Hilfe ein paar Membern ein Proggy gebaut welches mir Files umbenannt.
Im Endeffekt hab dann alles ich gemacht..
Da ist ja sogar noch mein Kommentar drinnen... *gg*

Was noch zu beachten wäre:

Du solltest überprüfen wieviele Dateien im Verzeichnis sind, und dann gegebenfalls nicht 001 sondern 00001 oder so schreiben.

Grüße
Faux
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
34.931 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#4

Re: File Rename

  Alt 26. Sep 2005, 16:33
Format('%.3d',[Zahl]); erstellt notfalls auch vier-, fünf-, sechs- ...-stellige Zahlen - nur sind dann halt keine Nullen mehr davor @faux
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: File Rename

  Alt 26. Sep 2005, 16:38
Zitat von himitsu:
Format('%.3d',[Zahl]); erstellt notfalls auch vier-, fünf-, sechs- ...-stellige Zahlen - nur sind dann halt keine Nullen mehr davor @faux
Jaja, das ist mir klar, nur sieht das doch seltsam aus, wenn man vorher 001, 002 hat und dann auf einmal 999, 1000, 1001 usw. hat. Dann haben die führenden 0en doch IMHO keinen Sinn...
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf