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

Показать полную графическую версию : [решено] Заменить текст в строке внутри символов <>

FlatX007

03-09-2009, 21:16

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

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

03-09-2009, 22:01

На выходе нужно получить такой текст в сообщении : " Текст @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

03-09-2009, 22:14

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