#include <GUIConstantsEx.au3>
$sFileName=' G1/2 | М1:2 <Астр> "черный" 2*2=?'
$sFileName=StringReplace ( $sFileName, "*", ChrW(0x02DF))
$sFileName=StringReplace ( $sFileName, "|", ChrW(0x01C0))
$sFileName=StringReplace ( $sFileName, '"', "''")
;\ этому символу в Unocode замены не нашлось "это святое" ;-)
$sFileName=StringReplace ( $sFileName, ":", ChrW(0x02D0))
$sFileName=StringReplace ( $sFileName, "<", ChrW(0x2039))
$sFileName=StringReplace ( $sFileName, ">", ChrW(0x203A))
$sFileName=StringReplace ( $sFileName, "?", ChrW(0x0294))
$sFileName=StringReplace ( $sFileName, "/", " "&ChrW(0x2044))
$hGUI = GUICreate("UniCODE->FileName", 300, 18)
$hInpFileName=GUICtrlCreateInput($sFileName,0,0,300,18)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd