Der Text liegt in Form einer Tabelle vor...

Könnte man das ganze nicht auch mit C++ machen?
Davon hab ich auch ein bisschen Ahnung

Hi,

ich mach sowas immer mit Perl-Skript. ( Nee, ist nicht
nach einem der wichtigsten Poster hier benannt worden
, oder doch ? )
Das kann man schnell mal anpassen und ist sehr mächtig
besonders beim Suchen & Ersetzen.

Sowas kann man damit ratzfatz programmieren und zus.
z.B. in einem Durchgang beim Umbenennen direkt eine
Html-Galerie-Seite aus den Dateinamen erstellen.
Siehe angehängtes Beispiel ( ist aber ohne
Html-Erzeugung ->nochmal melden für Codebeispiel ).

Perl muss man natürlich vorher installieren, aber das
gibts wohl so im Netz zum runterladen:
http://www.perl.org

Bestimmt gibt es im Netz auch schon fertige Tools für
solche Standard-Operationen. Wäre einen Google-Versuch
wert.


Gruss,
Stefan

Uups. Der Server scheint hochbrisante Text-Dateien
nicht ausgeben zu wollen.

Hier der inzwischen etwas verbesserte Datei-Inhalt von
picren.pl also nochmal als
direkt als Text:

-------------------------------------
use File::Find;

find sub
{
$name = $File::Find::name;
if( -d $name )
{
#$fulln = $fulln . $name . '/'; # keine Unterverzeichnisse umbenennen
}
else
{
if( $name =~ /(.*)\/(.*)/ ) # xx/xx Filenamen in Name.Ext aufteilen
{
$aktdir = $1 . '/';
if( $aktdir eq "./" ) { $aktdir = ''; } # dat kann man auch weglassen
$name = $2; # dateiname ohne pfad
}
push(@files,$name);
}
}, @ARGV;

for( $i=0; $i<@files; $i++)
{
#$numb =chr( int(rand 10) + 0 + ord '0' ) . chr( int(rand 10) + 0 + ord '0' ); # gets '0'-'9'
# obige zeile alternativ zur erstellung fortlaufender Dateinamen einsetzen

if( $files[$i]=~ /\.JPG/i) # ist ein jpg ?
{
$new = $files[$i];
$new =~ s/februar04 /karn04/; # ersetze >februar04 < durch >karn04<, bei Dir nicht nötig !
$new = lc($new); # alles kleinschreiben

# für deinen Fall :
$new = "ausflug04_" . $new; # dateinamen neu zusammenbasteln
rename( $files[$i], $new ); # diese zeile zum Test vielleicht erst mal auskommentieren um zu sehen
# was er machen würde
print "$files[$i] : $new \n"; # ausgeben rename von x nach y
}
}
$z = <stdin>; # warte auf ne taste



---------------
evtl stimmen die Zeilenumbrüche nicht

Danke!

Ich probiers gleich Mal aus