Hallo AutoIter,
hier ist eine kleine UDF zum Ersetzen von mehreren verschiedenen Buchstaben mit mehreren verschiedenen Buchstaben/Strings in einem Durchgang.
Es ist eigentlich nur eine Alternative zu StringRegExpReplace, manche kommen damit aber vielleicht besser klar.
Bei Fehler, Bugs oder Sonstigem bitte schreiben.
NO1
Bei Fehler, Bugs oder Sonstigem bitte schreiben.
Jeep... schaue dir mal die Ergebnisse von meinem Script an und vergleiche sie mit deinem...
;-- TIME_STAMP 2017-04-02 17:48:20
Global $g_sNewString = _String_MultiReplace('Huhu Huhu duda', 'u|H|a| ', 'i|L|X')
ConsoleWrite('> $g_sNewString = "' & $g_sNewString & '"' & @CRLF & '! Es wurden ' & @extended & ' Zeichen ersetzt!' & @CRLF)
Global $g_aSearch = ['u', 'ck', 'wer', 'K', 'eni'], $g_aReplace = ['i', 'chen', 'was', 'M', 'elien']
ConsoleWrite('> $sNewString = "' & _String_MultiReplace('Kuckuck, wer da?', $g_aSearch, $g_aReplace) & '"' & @CRLF & '! Es wurden ' & @extended & ' Zeichen ersetzt!' & @CRLF)
Func _String_MultiReplace($sString, $vSearch, $vReplace, $sSearchSeparator = "|", $sReplaceSeparator = "|")
Local $aSearch[1], $aReplace[1], $iReplace = 0
If IsArray($vSearch) Then
$aSearch = $vSearch
Else
$aSearch = StringSplit($vSearch, $sSearchSeparator, 2)
If @error Then $aSearch[0] = $vSearch
EndIf
If IsArray($vReplace) Then
$aReplace = $vReplace
Else
$aReplace = StringSplit($vReplace, $sReplaceSeparator, 2)
If @error Then $aReplace[0] = $vReplace
EndIf
If UBound($aReplace) < UBound($aSearch) Then ReDim $aReplace[UBound($aSearch)]
ConsoleWrite(StringFormat('+ %-11s = "%s"\n', '$sString', $sString))
For $i = 0 To UBound($aSearch) -1 Step 1
$sString = StringReplace($sString, $aSearch[$i], $aReplace[$i])
$iReplace += @extended * StringLen($aSearch[$i])
ConsoleWrite(StringFormat('- %-11s = %-36s %s %-20s %-20s %-20s $iReplace = %5i\n', '$sString', '"'&$sString&'"', 'Replace ', '"' & $aSearch[$i] & '"', ' <-> ', '"' & $aReplace[$i] & '"', $iReplace))
Next
Return SetExtended($iReplace, $sString)
EndFuncDanke für dein Feedback.
Ich kann dir auch sagen, an was es liegt.
Mit meinem Skript kann nämlich nur ein Buchstabe durch ein Wort ersetzt werden, das hat für den Zweck, für den ich es geschrieben hab, nämlich auch gereicht.
Uiuiui, ich hab's viel zu umständlich gemacht, das muss ich nochmal updaten...
Lg NO1 
Oder willst du es noch kürzer? 
;-- TIME_STAMP 2017-04-05 01:16:45
Global $g_sNewString = _String_MultiReplace('Huhu Huhu duda', 'u|H|a| ', 'i|L|X')
ConsoleWrite('> $g_sNewString = "' & $g_sNewString & '"' & @CRLF & '! Es wurden ' & @extended & ' Zeichen ersetzt!' & @CRLF)
Global $g_aSearch = ['u', 'ck', 'wer', 'K', 'eni'], $g_aReplace = ['i', 'chen', 'was', 'M', 'elien']
ConsoleWrite('> $sNewString = "' & _String_MultiReplace('Kuckuck, wer da?', $g_aSearch, $g_aReplace) & '"' & @CRLF & '! Es wurden ' & @extended & ' Zeichen ersetzt!' & @CRLF)
Func _String_MultiReplace($sString, $vSearch, $vReplace, $sSearchSeparator = "|", $sReplaceSeparator = "|")
Local $aSearch = _CheckParams($vSearch, $sSearchSeparator), $aReplace = _CheckParams($vReplace, $sReplaceSeparator), $iReplace = 0
If UBound($aReplace) < UBound($aSearch) Then ReDim $aReplace[UBound($aSearch)]
ConsoleWrite(StringFormat('+ %-11s = "%s"\n', '$sString', $sString))
For $i = 0 To UBound($aSearch) -1 Step 1
$sString = StringReplace($sString, $aSearch[$i], $aReplace[$i])
$iReplace += @extended * StringLen($aSearch[$i])
ConsoleWrite(StringFormat('- %-11s = %-36s %s %-20s %-20s %-20s $iReplace = %5i\n', '$sString', '"'&$sString&'"', 'Replace ', '"' & $aSearch[$i] & '"', ' <-> ', '"' & $aReplace[$i] & '"', $iReplace))
Next
Return SetExtended($iReplace, $sString)
EndFunc
Func _CheckParams(ByRef $vParam, ByRef $sSeparator)
Local $aParam[1]
If IsArray($vParam) Then Return $vParam
$aParam = StringSplit($vParam, $sSeparator, 2)
If @error Then $aParam[0] = $vParam
Return $aParam
EndFunc