Ich schreibe solche Funktionen meistens auf diese Weise:
Spoiler anzeigen
Func LoadInternationalStrings()
Local $strOSLang = ""
If StringRight(@OSLang, 2) = "07" Then
$strOSLang = "GER"
Global _
$str_0001 = "Durchsuchen...", _
$str_0002 = "Anzahl der am Anfang abzuschneidenden Zeichen", _
$str_0003 = "Anzahl der am Ende abzuschneidenden Zeichen", _
$str_0004 = "Suchen nach", _
$str_0005 = "Ersetzen durch", _
$str_0006 = "Dateierweiterungen mit einbeziehen", _
$str_0007 = "Ordner nach dem umbenennen anzeigen", _
$str_0008 = "Starte umbenennen", _
$str_0009 = "Wählen sie einen Ordner aus, dessen Dateien sie umbenennen möchten.", _
$str_0010 = "Benenne ", _
$str_0011 = " um", _
$str_0012 = "Sammle Dateien", _
$str_0013 = "Ein Fehler ist aufgetreten.", _
$str_0014 = "Das sammeln der Daten ist fehlgeschlagen.", _
$str_0015 = "Benenne Unterordner um"
Else
$strOSLang = "ENG"
Global _
$str_0001 = "Browse...", _
$str_0002 = "Count of start digits to trim", _
$str_0003 = "Count of end digits to trim", _
$str_0004 = "Find what", _
$str_0005 = "Replace with", _
$str_0006 = "Consider file extentions", _
$str_0007 = "Open directory after renaming", _
$str_0008 = "Start renaming", _
$str_0009 = "Choose a direcory which contains the files that you want to rename.", _
$str_0010 = "Renaming ", _
$str_0011 = "", _
$str_0012 = "Collecting files", _
$str_0013 = "An error has occurred.", _
$str_0014 = "Collecting files failed", _
$str_0015 = "Rename sub-directories"
EndIf
EndFunc ;==>LoadInternationalStrings