[RegExp] Регулярка для удаления лишних символов

StringRegExpReplace($sText, '[^\w,\x2D,А-Я,а-я,/_,/''/"]', ' ')

StringRegExpReplace($sText, '[^\w,#,ё,\(,\),\.,\x2D,А-Я,а-я,/_,/''/"]', ' ')

$sText = "#cs"  & @CRLF & _ 
"?••• Spez•••? - dДавай танцуй (Alors on Dance Cover)d"  & @CRLF & _ 
"???•?Pra(KillaGramm)?•??? - Без вины виноватый"  & @CRLF & _ 
"Noize MC¦ - - Помни я тебя люблю¦"  & @CRLF & _ 
"¦ Noize MC feat. Anacondaz - ********"  & @CRLF & _ 
"?[ Apocalyptica - Quutamo ]?"  & @CRLF & _ 
"?•?•AMATORY the Sky is Red - Пырышки-пупырышки?•?•"  & @CRLF & _ 
"Teodor DJ's - 08. Stylemasters - Hustlah"  & @CRLF & _ 
"#().-_'"""  & @CRLF & _ 
"#ce"

;$sPatern = "[^а-ёЁ-Я\w()'""#-]"
;$sPatern = "[^а-ёЁ-Я\w()'""#\r\n-]" ; переносы строк были зыбыты
$sPatern = "[^А-яЁё\w()'""#\r\n-]"
$sResult = StringRegExpReplace( $sText, $sPatern, ' ' )
MsgBox(4096, ' Test Result', $sResult)

$text = ""
For $i = 33 to 255
    $text = $text & Chr($i)
Next
$text=StringRegExpReplace($text, '[^А-яЁё]', '') ; самый правильный вариант
; $text=StringRegExpReplace($text, '[^Ё-ё]', '')
; $text=StringRegExpReplace($text, '[^а-ёЁ-Я]', '')
MsgBox(0, "Алфавит из букв", $text)

$Text = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'& _ 
	'QWERTYUIOP[]\ASDFGHJKL;''ZXCVBNM,./qwertyuiop[]\asdfghjkl;''zxcvbnm,./' & _ 
	'1234567890-=!@#$%^&*()_+!"№;%:?*()_+'
$text=StringRegExpReplace($text, '[^а-ёЁ-Я]', '')
MsgBox(0, "Алфавит из букв", $text)