Скрипт копирования инфы со страниц.

snoitaleR сказал(а):

На всякий случай мой код:

Код:

; НАЧАЛО

; Библиотеки

 #include <array.au3>
 #include <file.au3>

 $TURL="http://vb.cybergame.su/members/list/" ; шаблон

 $aTEXT=_GetText($TURL)
 _FileWriteFromArray("index1.txt",$aTEXT,1)

 MsgBox(0,"","Скачивание завершено")

 Func _GetText($URL)

  $LIST=""

  Local $hDownload=InetGet($URL,'url.tmp',1,1)
  Do
   Sleep(100)
  Until InetGetInfo($hDownload,2)
  InetClose($hDownload)

  $TEXT=FileRead('url.tmp')

  $sPattern="(?si)<a.+?(?:<font.+?|member.php.+?)>([^<]+?)<"

  Return StringRegExp($TEXT,$sPattern,3)
 
 EndFunc

; КОНЕЦ

Нажмите, чтобы раскрыть...

этот тоже работает, но он не воспринимает второй вариант на подобном(ссылку я тебе на него скидывал)форуме.

Нажмите, чтобы раскрыть...

<A href="http://vb.cybergame.su/members/mozg-16440.html"><FONT #768F9F>! &gt;&lt; MoZG &gt;&lt; !</FONT></A>
<a href="member.php?u= 3131 ">name</а>

Если местонахождение имен на других сайтах отличается достаточно добавить ориентир в скобку (?: ...|...)

Нажмите, чтобы раскрыть...