Серый форум — AHK: Преобразование переменной

Re: AHK: Преобразование переменной

2016-04-12T19:15:25Z

На всякий:
Если у переменной нет значения, оставить этот текст как есть.


Text = `%A_Temp`%\`n`%Var`%\
MsgBox % VarReplace(Text)

Text = `%A_Temp`%\`n`%A_ScriptDir`%\
MsgBox % VarReplace(Text)

VarReplace(Text, p := 1) {
	While p := RegExMatch(Text, "%(\w+)%(.*)", m, p)
		Text := SubStr(Text, 1, p - 1) . (%m1% = "" ? "%" m1 "%" : %m1%) . m2
		, p += StrLen(%m1% = "" ? "%" m1 "%" : %m1%)
	Return Text
}

Re: AHK: Преобразование переменной

2016-04-12T18:52:50Z

serzh82saratov, то что доктор прописал! Спасибо.

Re: AHK: Преобразование переменной

2016-04-12T17:52:01Z

Думаю ТС про то, что строка состоит из подстрок вида "%built-in variable%" и текста, и ему надо в конечной строке заменить их на значения.

Хотя может есть более очевидный способ:


Text = `%A_Temp`%\`n`%A_ScriptDir`%\`n(`%A_ScriptHWND`%)  
MsgBox % VarReplace(Text)

VarReplace(Text, p := 1) {
	While p := RegExMatch(Text, "%(\w+)%(.*)", m, p += StrLen(%m1%)) 
		Text := SubStr(Text, 1, p - 1) . %m1% . m2   
	Return Text
}

Re: AHK: Преобразование переменной

2016-04-12T12:44:31Z

Правильно так:

ans := Http.responseText

AHK: Преобразование переменной

2016-04-12T12:24:18Z

Возник такой вопрос, к примеру есть код:


url := тут ссылка на php обработчик.
HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
HTTP.Open("GET", url, true)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/7.0)")
HTTP.Send()
HTTP.WaitForResponse() 
ans = % Http.responseText

Проблема вот в чем, Http.responseText возвращает путь до файла с иконкой в формате:


%A_Temp%\test.png

И возвращает именно буквально, то есть через ":=", а такое код не воспринимает, ему нужен именно путь.
В первый раз, получилось обойти это как сейчас в скрипте:


ans = % Http.responseText

Но вот незадача, сработало это и потом я думал что проблема решена, а через пару дней, решил сесть дописывать код, но этот метод уже не работает, выручайте.