Umlaute in Filenamen ersetzen.

Aktuelle Version: 12.21 (22.06.2020)
Alles zum Thema Directory Opus
Antworten
Subway
Beiträge: 31
Registriert: 5. Jan 2006 10:12
Betriebssystem: Win 7 x64 Pro

Umlaute in Filenamen ersetzen.

Beitrag von Subway »

Hallo,

hat zufällig jemand von euch ein Rename-Script (RegEx??) mit dem ich mit einem Klick alle Umlaute (also äöüß) in selektierten Filenamen durch Entsprechungen (also, ae oe ue ss) ersetzen kann?

Wäre nett, wenn das jemand hat und mir zur Verfügung stellen könnte. Ansonsten muss ich mich wohl selbst daran machen :wink:

Danke schon mal im Vorraus.
Benutzeravatar
tomtom
Beiträge: 338
Registriert: 2. Jun 2004 07:26
Betriebssystem: Win 7 Home 32bit

Re: Umlaute in Filenamen ersetzen.

Beitrag von tomtom »

Hallo,
das Script sollte funktionieren.

Gruß
tomtom

Code: Alles auswählen

@script vbscript
option explicit

' ********************************************************
'  TitleCase by Steve Banham (tanis@dopus.com) 07-Apr-2007
'  Modified by Leo Davidson (www.pretentiousname.com)
'  modifiziert von Ralf Stuckenschnieder
' ********************************************************
'                    General Options
' ********************************************************
dim fUmlaute
fUmlaute = True
' ******************************************************

Function Rename_GetNewName ( strFileName, strFullPath, _
		fIsFolder, strOldName, ByRef strNewName )

	' Write the name of the script to the Output window
	Dopus.OutputString "Umlaute umwandeln"

	if fUmlaute = True then
		strNewName = Replace(strNewName, "ä", "ae")
	end if
	
	if fUmlaute = True then
		strNewName = Replace(strNewName, "ü","ue")
	end if
	
	if fUmlaute = True then
		strNewName = Replace(strNewName, "ö","oe")
	end if
	
	if fUmlaute = True then
		strNewName = Replace(strNewName, "ß","ss")
	end if
								
End Function
Subway
Beiträge: 31
Registriert: 5. Jan 2006 10:12
Betriebssystem: Win 7 x64 Pro

Re: Umlaute in Filenamen ersetzen.

Beitrag von Subway »

Merci, Merci, Merci!!!

Funktioniert genau so, wie ich es wollte.

Danke & Frohes Fest!
Antworten