Серый форум — AHK: Поиск текста по сайту. Использование RegExReplace

Re: AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (Flasher) — Mon, 15 May 2017 15:15:34 +0000

VersionUpdate := RegExReplace(TextProfile, ".+\[VersionVKM](.+)\[VersionVKM].+", "$1")

Re: AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (sememix) — Mon, 15 May 2017 14:52:44 +0000

Моя страница в вк https://vk.com/sememix.
В постах есть текст [VersionVKM]123[VersionVKM], мне из него нужно получить, то самое 123, а текст в скобочках вписан для удобства определения.

Re: AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (stealzy) — Sun, 14 May 2017 18:07:46 +0000

VersionUpdate - это то, что я думаю, да?

VERSION_FromScript_REGEX := "Oi)(?:^|\R);\s*ver\w*\s*=?\s*(\d+(?:\.\d+)?)(?:$|\R)"
RegExMatch("; ver 1.01", VERSION_FromScript_REGEX, matchObj)
MsgBox % ver := matchObj.1

Re: AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (shahlik002) — Sun, 14 May 2017 17:32:21 +0000

Я новенький особо не разбираюсь , но вроде сохранять нужно это : тег([^тег]*)тег .
Так сказать текст между тегов не содержащий этих самых тегов , хотя откуда мне знать , я даже не знаю что такое тег.)))

Re: AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (shahlik002) — Sun, 14 May 2017 17:28:24 +0000

sememix
RegEx не правильно используешь , он тебе сохраняет в переменную все от первого до последнего тега.

AHK: Поиск текста по сайту. Использование RegExReplace

null@example.com (sememix) — Sun, 14 May 2017 17:19:50 +0000

На странице есть текст формата [тег]текст[тег]. Для поиска написал такое...


url = сайт
QueryResponseWebsite(url)
TextProfile := AnswerWebsite

VersionUpdate := RegExReplace(TextProfile, "[тег](.*)[тег]")

QueryResponseWebsite(url) ; На вход получает URL. Открывает ссылку URL и в переменную "AnswerWebsite" сохраняет ответ с сайта.
{
	global AnswerWebsite
	ComObjError(False) 
	HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1") 
	HTTP.SetTimeouts(6000,6000,6000,6000)
	HTTP.Open("GET",url) 
	HTTP.Send() 
	AnswerWebsite := HTTP.ResponseText
}

В итоге получаю не наш "текст", а весь код страницы. Что я делаю не так?