[Creat0R]

Не знаю на сколько будет полезно, но вот прототип функции _StringRegExpReplaceCallBack(), на идею натолкнул запрос в баг-трекере офф. форума:

Код:

$sString = "This is a Test, a _StringRegExpReplaceCallBack test"
$sRetVar = _StringRegExpReplaceCallBack($sString, "(?i)\bt[^ ]+", "_UpperMatches")

MsgBox(64, "Results", StringFormat("Было:\n%s\n\nСтало:\n%s\n\n\n" & _
        "Все слова начинающиеся с буквы <T> преобразованы в верхний регистр при помощи a.k.a Callback функции (_UpperMatches()) :)", $sString, $sRetVar))

Func _StringRegExpReplaceCallBack($sTest, $sPattern, $sFunction)
    Local $aMatches = StringRegExp($sTest, $sPattern, 3)
    Local $sReplace

    For $i = 0 To UBound($aMatches)-1
        $sReplace = Call($sFunction, $aMatches[$i])
        If @error Then Return SetError(1, 0, $sTest)

        $sTest = StringReplace($sTest, $aMatches[$i], $sReplace, 1, 1)
    Next

    Return $sTest
EndFunc

Func _UpperMatches($sMatch)
    Return StringUpper($sMatch)
EndFunc