Statistik |
Beiträge: 144.534 (Täglich: 19,19 )
Themen: 16.701
Mitglieder: 13.209
Neuestes Mitglied: zitronentee.
Ausl. d. letzten Minute: 387%
Ausl. d. letzten 5 Minuten: 267%
Ausl. d. letzten 15 Minuten: 196%
Aktulle Uhrzeit: 11:54
Freier Webspace: 4.04 TB
PHP-Version: 7.4.33
|
|
|
bilder umbenennen ---> batchkonvert |
|
Was soll denn beim umbenennen aus den Dateinamen werden?
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
08.09.2006 17:39 |
|
|
|
Blöde Idee:
Da du die Bilder ja anscheinend nur sichern willst, mach doch einfach ein Zip-Archiv daraus und brenn das dann
Greetz
Günni
__________________
|
|
08.09.2006 18:09 |
|
|
|
|
Zitat: Original von knuddelchen27
ganz simple langer dateiname.jpg ->>>> bild01 usw
die ordnernamen sind ok nur eben die bildernamen net sind einfach zu lang
|
|
|
Also Ordner wählen...
alle Dateien rekursiv ermitteln
alle Dateien mit bilXXX (xxx fortlaufend) umbenennen? Der sinn des Namens geht so natürlich verloren, ok so? Also aus bild_von_hans_beim_hausstreichen.jpgwürde dann ja zu bild0001.jpg z.B.
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
08.09.2006 18:26 |
|
|
|
Auspacken, starten, ordner wählen.
Bei Klick auf GO gehts los! ACHTUNG: ES WERDEN OHNE NACHFRAGE ALLE BILDER REKURSIV VOM AUSGEWÄHLTEN PFAD UMBENANNT! Im Zweifelsfalle erstmal mit einer Kopie des Ordner ausprobieren!
Es Werden alle .jpg, .jpeg, .png, .gif, .bmp und .tif gesucht und dem Muster bild_X.ext umbenannt.
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
08.09.2006 19:23 |
|
|
|
code: |
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
|
unit SDIMAIN;
interface
uses Windows, Forms, Menus, Dialogs, SysUtils, StdCtrls, ImgList, Controls,
FileCtrl, ComCtrls, ToolWin, Classes;
type
TSDIAppForm = class(TForm)
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
ToolBar1: TToolBar;
ToolButton3: TToolButton;
StatusBar: TStatusBar;
ImageList1: TImageList;
MainMenu1: TMainMenu;
File1: TMenuItem;
FileExitItem: TMenuItem;
Help1: TMenuItem;
HelpAboutItem: TMenuItem;
ListBox1: TListBox;
Label1: TLabel;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Button1: TButton;
Edit1: TEdit;
Label2: TLabel;
ProgressBar1: TProgressBar;
Label3: TLabel;
Memo1: TMemo;
procedure DirectoryListBox1DblClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure DriveComboBox1Change(Sender: TObject);
procedure FileExit1Execute(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
procedure GetAllFiles(mask: string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SDIAppForm: TSDIAppForm;
Count : integer;
implementation
uses about;
{$R *.dfm}
procedure TSDIAppForm.GetAllFiles(mask: string);
var
search: TSearchRec;
extension,directory: string;
begin
directory := ExtractFilePath(mask);
Label1.Caption := copy(directory,Length(DirectoryListBox1.Directory)+2,512);
Application.ProcessMessages;
// find all files
if FindFirst(mask, $23, search) = 0 then
begin
repeat
// add the files to the listbox
extension := UpperCase(ExtractFileExt(search.Name));
//memo1.Lines.Add(extension);
if extension = '.GIF' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
if extension = '.JPG' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
if extension = '.JPEG' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
if extension = '.PNG' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
if extension = '.BMP' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
if extension = '.TIF' then begin
ListBox1.Items.Add(directory + search.Name);
Inc(Count);
end;
until FindNext(search) <> 0;
end;
Label3.Caption := IntToStr(Count);
// Subdirectories/ Unterverzeichnisse
if FindFirst(directory + '*.*', faDirectory, search) = 0 then
begin
repeat
if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
until FindNext(search) <> 0;
FindClose(search);
end;
end;
procedure TSDIAppForm.Button1Click(Sender: TObject);
var
directory, extension, datei, newfile: string;
mask: string;
imgcount,I:integer;
begin
Count := 0;
Listbox1.Items.Clear;
directory := DirectoryListBox1.Directory+'\';
mask := '*.*';
Screen.Cursor := crHourGlass;
try
GetAllFiles(directory + mask);
finally
Screen.Cursor := crDefault;
end;
Label3.Caption := IntToStr(Count);
Application.ProcessMessages;
ProgressBar1.min := 0;
ProgressBar1.Max := Count;
imgcount := StrToInt(Edit1.Text);
for I := 0 to ListBox1.Count - 1 do begin
ProgressBar1.Position := I;
directory := ExtractFilePath(ListBox1.Items[I]);
extension := ExtractFileExt(ListBox1.Items[I]);
datei := Copy(ExtractFileName(ListBox1.Items[I]),0,Length(ListBox1.Items[I])-Length(extension));
newfile := 'bild_'+IntToStr(imgcount);
Memo1.Lines.Add(datei+' -> '+directory+newfile+extension);
Renamefile(ListBox1.Items[I],directory +newfile+extension);
inc(imgcount);
Edit1.Text := IntToStr(imgcount);
Application.ProcessMessages;
end;
end;
procedure TSDIAppForm.DirectoryListBox1Change(Sender: TObject);
begin
Label1.Caption := DirectoryListBox1.Directory;
end;
procedure TSDIAppForm.DirectoryListBox1DblClick(Sender: TObject);
begin
Label1.Caption := DirectoryListBox1.Directory;
end;
procedure TSDIAppForm.DriveComboBox1Change(Sender: TObject);
begin
DirectoryListBox1.Drive := DriveComboBox1.Drive;
end;
procedure TSDIAppForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;
procedure TSDIAppForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;
end. |
|
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
08.09.2006 19:28 |
|
|
|
|
Zitat: Original von knuddelchen27
so nu doch nen programmnach 4 stunden suche gefunden habe
ist zwar nur ne 10tages trail - sollte aber reichen
|
|
|
Du hast mein Progrämmchen also noch nichtmal getestet?
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
09.09.2006 12:47 |
|
|
|
Na, ich werd kein Programm mehr für jemanden schreiben, der es noch nichtmal für nötig hält das dann auch zu testen... 2 Stunden Arbeit für den Mülleimer :-(
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
11.09.2006 14:11 |
|
|
|
|
Zitat: Original von DonManfred
Na, ich werd kein Programm mehr für jemanden schreiben, der es noch nichtmal für nötig hält das dann auch zu testen... 2 Stunden Arbeit für den Mülleimer :-( |
|
|
Hallo,
nene so darfst du das nicht sehen
ich habe es auch ganz gut gebrauchen können getestet und für gut befunden
danke dir erstmal.
es wäre aber schön wenn man den bilder einen namen geben könnte, also in etwa so wie
toto_1.jpg
toto_2.jpg usw. so das man die option hat einen anderen namen den bildern zu geben.
gruß toni
__________________
|
|
11.09.2006 15:28 |
|
|
|
|
Zitat: Original von totototo
|
Zitat: Original von DonManfred
Na, ich werd kein Programm mehr für jemanden schreiben, der es noch nichtmal für nötig hält das dann auch zu testen... 2 Stunden Arbeit für den Mülleimer :-( |
|
|
nene so darfst du das nicht sehen
ich habe es auch ganz gut gebrauchen können getestet und für gut befunden
danke dir erstmal.
|
|
|
Bitte, bitte. Freut mich.
|
Zitat: Original von totototo
es wäre aber schön wenn man den bilder einen namen geben könnte, also in etwa so wie
toto_1.jpg
toto_2.jpg usw. so das man die option hat einen anderen namen den bildern zu geben.
|
|
|
also neben dem Nummernfeld noh ein weiteres was der Dateinamensanfang definierbar macht... sollte kein problem sein.
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
11.09.2006 16:33 |
|
|
|
|
Zitat: Original von knuddelchen27
sorry DonManfred bin jetzt erst dazugekommen zum testen
- aber es löppt
. was noch fein wäre wenn das programm automatisch die thumbs.db löscht (meinetwegen auch wahlweise) weil die sind immer so groß
und wenn sie wech wären würde ich mehr auf die DVD bekommen
|
|
|
1. Na also, geht doch!
2. Denke, das ist machbar.
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
11.09.2006 16:34 |
|
|
|
Neue Version:
- Thumbs.db kann gelöscht werden
- Anfang des Dateinamens bestimmbar
- Anzeige des "Zielnamens" als Beispiel
- Testmodus -> Kein automatisches umbenennen
__________________ Gruss Mannes
Wenn man sich selbst als "Noob" bezeichnet, sollte man die Finger davon lassen.
Wenn man gewillt ist daran etwas zu ändern, lernt man Grundlagen!
|
|
11.09.2006 19:04 |
|
|
|
Hallo DonManfred,
jep jetzt ist es perfekt
klein und schnukelig
gruß toni
__________________
|
|
12.09.2006 10:02 |
|
|
|
|
|
|