- Offizieller Beitrag
Hi,
gab es sicher so schön öfter, aber vielleicht kann es ja jemand gebrauchen.
Spoiler anzeigen
Global $test = 'Ich weiß, daß ist nur ein ÜÖÄ ||| üöä Test ü, ö, ä, ÄÖÜ :-(!'
ConsoleWrite(_changeString($test, 'Ü|Ö|Ä|ü|ö|ä|ß|(| ', 'Ue|Oe|Ae|ue|oe|ae|ss|)|_') & @CRLF)
ConsoleWrite(_changeString($test, 'Ü|CH', 'Ue|CH!') & @CRLF)
ConsoleWrite(_changeString($test, 'ch@|', 'ch@€', 0, 1, '@') & @CRLF)
;===============================================================================
; Function Name: _changeString
; Description:: Replace multiple Strings like StringReplace
; Parameter(s): Like StringReplace. $searchstring and $replacestring with |
; Requirement(s): ---
; Return Value(s): new string
; -1 = no | found
; -2 = string count do not match
; -3 = case should be 0,1,2
; Author(s): Thorsten Meger (Xenobiologist)
;===============================================================================
Func _changeString($string, $searchstring, $replacestring, $count = 0, $case = 0, $delim = '|')
If Not StringInStr($searchstring, $delim) Or Not StringInStr($replacestring, $delim) Then Return -1
Local $searchstring_A = StringSplit($searchstring, $delim), $replacestring_A = StringSplit($replacestring, $delim)
If UBound($searchstring_A) <> UBound($replacestring_A) Then Return -2
If $case < 0 Or $case > 2 Then Return -3
For $i = 1 To UBound($searchstring_A) - 1
$string = StringReplace($string, String($searchstring_A[$i]), String($replacestring_A[$i]), $count, $case)
Next
Return $string
EndFunc ;==>_changeString
Mega