Dateiname extrahieren?

[Birdman]

Hallo zusammen,

könnte mir jemand einen Tipp geben, wie ich in einem VB-Skript den Dateinamen extrahieren kann? FF_GetImageName gibt ja den Dateinamen inkl. Pfad und Endung zurück, also z. B. "C:\Pfad\Datei.jpg", ich möchte also nur den String "Datei" zum weiterarbeiten. Für Jskript habe ich einige Beispiele gesehen, da ich es aber in ein bestehendes VB-Skript einbauen möchte, bräuchte ich nen Hinweis hierfür.

Danke schon mal!

 

[JKS]

AW: Dateiname extrahieren?

Das FileSystemObject ist in VB- genauso wie in JScript vorhanden...

 

[Birdman]

AW: Dateiname extrahieren?

Danke! Das war der entscheidende Hinweis!

 

[Mecki14]

AW: Dateiname extrahieren?

Es geht natürlich auch ohne FileSystemObject

Pos = InStrRev(FF_GetImageName(-1),"\")
msgbox mid(FF_GetImageName(-1),Pos+1)​

Oder man wendet die Split-Funktion an.

 

[Niels1938]

AW: Dateiname extrahieren?

Es geht natürlich ...

zB nach eine Treffen wo Bilder mit mehrere Kameraen aufgenommen wurde,
möchte ich gern einer Sammlung von umbenannte jpg Bilder - sortiert nach Aufnahmezeit - machen,
aber auch gern die alte originelle Dateiname erst irgenwo automatisch aufbewahren.

Basiert auf den Beitrag von Harald in #3 oben,
habe ich eine Stapelverarbeitung als ein Satz von drei Dateien gemacht :

- Datei SaveDateiNameInExif.fbi - muss kopiert werden zu Verzeichnis \Batch\
- Boostskript DateiNameInExif.js - muss kopiert werden zu Verzeichnis \BatchScript\Boost\
- Skript DateiNameInExif2.vbs - muss kopiert werden zu Verzeichnis \Script\

Für jedes markiertes jpg Bild
- wird die markierte Bild ungeändert verbleiben
- wird ein neues Bild mit Dateiname wie die Bild mit ein zugefügtes Buchstabe "k" gemacht
-- in die "k" Bild steht jetzt in Exif "Software" in erster Zeile die jetzige origenale Dateiname
--- gefolgt von eventuel schon befindliches Software-Einträge

Benutzung :

- Öffne Verzeichnis in FixFoto und wähle gewünschte Bilder
- Drucke Taste F12 - Stapelverarbeitung
- Klicke "Laden" , klicke "SaveDateiNameInExif.fbi" , klicke "Ausführen"

Herunterladen von diese Dateien :
http://niels1938.zeigt-bilder.de/fixfoto/SaveDateiNameInExif-v100.zip

 

[Mecki14]

AW: Dateiname extrahieren?

... aber auch gern die alte originelle Dateiname erst irgendwo automatisch aufbewahren

Hallo Niels,
das Problem hatte ich auch schon. Ich habe mir dafür ein Skript geschrieben, dass den Originalnamen als Kommentar in die Exif-Daten (vorhandene Kommentare bleiben erhalten) bzw. als Objectname in die IPTC-Daten einträgt. Außerdem erlaubt das Skript Einträge für Fotograf und Copyright und dreht das Bild auf Wunsch nach Lagesensoreintrag.
Alle frisch geladenen Bilder werden bei mir erst einmal mit diesem Skript bearbeitet.

Exif / IPTC-Einträge

 

[Niels1938]

AW: Dateiname extrahieren?

Es geht natürlich auch ohne FileSystemObject

Pos = InStrRev(FF_GetImageName(-1),"\")
msgbox mid(FF_GetImageName(-1),Pos+1)​

Leider findet dieses das erste Bild in Verzeichnis und nicht das aktuelle Bild,
ich benutze deshalb in mein Skript (oben in #5) jetzt :

Pos = InStrRev(FF_GetParam(),"\")
obild6=mid(FF_GetParam(),Pos+1)

obild6 ist direkt das aktuelle DateiName.


Grüsse,