Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для beve

Старожил


Сообщения: 307
Благодарности: 137

Профиль | Отправить PM | Цитировать


Цитата:
Подскажите пожалуйста.
Не могу понять как скопировать в буфер обмена текст из веб страницы
Вот примерно так:
Код: Выделить весь код
#include <INet.au3>
;получение html кода из инет-страницы
$sFile=_INetGetSource("тут ссылка")

$pattern="(?s).*<td class=.?movie_box_right.? width=.?95%.?> (.*?)<div class=.?screenshot_box.+>.*?"
;поиск нужного куска html кода
$sRezultat=StringregExpReplace($sFile,$pattern, "\1")
;отсеивание ненужного мусора.
$sRezultat2=StringregExpReplace($sRezultat,"(<span>)|(</span>)|(<br/>)|(</a>)|(<a.*?>)", " ")
$sF=fileopen("1.txt",2) 
fileWrite($sF,$sRezultat2) ;запись нужного куска в текстовый файл 1.txt
MsgBox(0, "Body Text", $sRezultat2) ;нужно только в целях проверки результата
Только тут не в буфер а в файл...Но если будет работать, то не трудно вместо сохранения в файл написать копировать в буфер.

-------
Не в кількості знань полягає освіта, а в повному розумінні і вмілому використанні того, що знаєш.


Последний раз редактировалось beve, 02-03-2009 в 18:54.

Это сообщение посчитали полезным следующие участники:

Отправлено: 02:48, 02-03-2009 | #5