$s = "Das ist ""ein"" Test!"
$s_ = 'Das ist ''ein'' Test!'
$s__ = 'Das ist "ein" Test!'
$s___ = "Das ist 'ein' Test!"

MsgBox(0,0, _ClearString($s) & @CRLF & _
			_ClearString($s_) & @CRLF & _
			_ClearString($s__) & @CRLF & _
			_ClearString($s___))

Func _ClearString($strWert)
	Local $strChars = "-.,:;#+ß'*?=)(/&%$§!~\}][{`´_" & '"'
	For $i = 1 To StringLen($strChars)
		$strWert = StringReplace($strWert, StringMid($strChars, $i, 1), "")
	Next
	Return $strWert
EndFunc

#cs Output
Das ist ein Test!
Das ist ein Test!
Das ist ein Test!
Das ist ein Test!
#ce