[RegExp] StringReplace. Замена строк содержащих пробелы.

$Message = "Я ямя я"

$Message = StringReplace($Message, "я ", "ты ")
$Message = StringReplace($Message, " я", " ты")
$Message = StringReplace($Message, " я ", " ты ")

MsgBox(64,"",$Message)

#Include <Array.au3>

$Message = "Я ямя я"

$aMessage = StringSplit($Message, " ",2)
For $i = 0 To UBound($aMessage)-1
	If $aMessage[$i] = "я" Then $aMessage[$i] = "ты"
Next
$resMessage = _ArrayToString($aMessage," ")

MsgBox(64,"",$resMessage)

$Message = "Я ямя я"

$Message = StringRegExpReplace($Message, "(^| )[яЯ]( |$)", "$1ты$2")
MsgBox(64, "", $Message)

$Message = "Я ямя я, сяма он я"

$Pattern = "([^а-ёЁ-Я]|\s)я|Я([^а-ёЁ-Я]|\z)"

$Result = StringRegExpReplace($Message, $Pattern, "${1}ты${2}")

MsgBox(64,"",$Result)

$Pattern = "([^а-ёЁ-Я]|\s)[яЯ]([^а-ёЁ-Я]|\z)"

$Pattern ="(^|[^а-ёЁ-Я])[яЯ]([^а-ёЁ-Я]|$)"