[Сеть, интернет] Поиск подстроки

[Notum]

День добрый.

Я присваиваю к строке последовательно строки из html-странички следующим образом:

$String = _INetGetSource("ссылка на сайт")

Когда появляется строка

'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',

необходимо присвоить в какую нибудь переменную всё, что находиться между

Title=

и

=1',

Заранее спасибо.

 

[madmasles]

Notum
Попробуйте так:

$sString = "'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',"
$sPattern = "(?s).*?Title=(.*?)=1,?.*"

MsgBox(0, "", StringRegExpReplace($sString, $sPattern, "\1"))

Или так:

$sString = "'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',"
$sPattern = "(?s).*?Title=(.*?)=1,?.*"
$aString = StringRegExp($sString, $sPattern, 3)
If IsArray($aString) Then
	MsgBox(0, "", $aString[0])
Else
	MsgBox(0, "", "NO")
EndIf

 

[kaster]

$s = "'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',"
$pat = ".+Title=(.+)=1.+"
$s = StringRegExpReplace($s, $pat, '\1')
MsgBox(0, '', $s)

 

[Notum]

К сожалению, не совсем то! Я забыл сказать, что содержание строки

'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',

может быть любым, а не только то, что я привёл в пример. То есть... До

Title=

может быть всё, что угодно...

 

[Suppir]

$line = "'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',"

$mat = StringRegExp($line, "Title=(.+?)=1", 1)
if @error = 0 Then ConsoleWrite($mat[0])

Добавлено:

Сообщение автоматически объединено: 19 Май 2010

Непонятно зачем вы используете функцию замены, когда для этих целей есть функция поиска

 

[Notum]

$line = "'flashvars','areaPath=images%2Fdata%2Farea_links%2F&areaImage=alt_branendal_port.jpg&areaTitle=%D0%9F%D0%BE%D1%80%D1%82+%D0%91%D1%80%D0%B0%D0%BD%D0%B5%D0%BD%D0%B4%D0%B0%D0%BB%D1%8F&online=1',"

$mat = StringRegExp($line, "Title=(.+?)=1", 1)
if @error = 0 Then ConsoleWrite($mat[0])

Добавлено:

Сообщение автоматически объединено: 19 Май 2010

Непонятно зачем вы используете функцию замены, когда для этих целей есть функция поиска

Огромное спасибо, ваш метод мне помог!