[решено] Заменить текст в строке внутри символов <>

[FlatX007]

Кароче запутался я ...





Код:

Код: Выделить всё

Dim $MsgBox[1]
$MsgBox[0] = "< Текст >  "
Dim $vTextReplace[3]
    $vTextReplace[1] = @ScriptDir
    $vTextReplace[2] = "Отмена"
$vTxt = StringRegExp($MsgBox[0], "(?i)", 3)
For $i = 1  To UBound($vTxt) - 1
    $text = StringRegExpReplace($vTxt[$i], '(.*?)', $vTextReplace[$i])
Next
MsgBox(32, "", $text)

На выходе нужно получить такой текст в сообщении : " Текст @ScriptDir Отмена "



Как сделать то ?

[beve]

Цитата FlatX007:



На выходе нужно получить такой текст в сообщении : " Текст @ScriptDir Отмена "

[решено] Заменить текст в строке внутри символов <>

Или я чего то не понял, или у тебя очень уж мудренный код...

Код:

Код: Выделить всё

Dim $MsgBox[1]
$MsgBox[0] = "< Текст >  "
Dim $vTextReplace[3]
    $vTextReplace[1] = "@ScriptDir"
    $vTextReplace[2] = "Отмена"
    $text = StringRegExpReplace($MsgBox[0], '< (.*?) >.*', '\1')
MsgBox(32, "", $text&' '&$vTextReplace[1]&' '&$vTextReplace[2])

[FlatX007]

ну да перемудрил малец ... пасиба.