-
AutoIt
(
http://forum.oszone.net/forumdisplay.php?f=103)
Заменить текст в строке внутри символов <>
Кароче запутался я ...
Код:
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 Отмена "
Как сделать то ? :( |
Цитата:
Цитата 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])
|
:tongue: ну да перемудрил малец ... пасиба.
|
Время: 14:35.
© OSzone.net 2001-
