|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Поиск в строке |
|
[решено] Поиск в строке
|
Новый участник Сообщения: 6 |
Профиль | Отправить PM | Цитировать Привет . Помогите с кодом.
Нужно чтобы он из исходного кода страницы выхватывал строки типа "<img src="http://--------.ru/-----/----/--------_1.jpg" и Записывал в файл уже ссылки уже вот так "http://--------.ru/-----/----/--------_1.jpg" Помогите пожалуйста ... #include <INet.au3> #include <file.au3> _FileCreate("0.txt") $Url = (_INetGetSource('ссылка ')) $array = StringRegExp( $Url , '<не получается с шаблоном>', 2) for $i = 0 to UBound($array) - 1 Next $file = FileOpen("0.txt", 1) If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf FileWrite($file ,$i) FileClose($file) |
|
Отправлено: 16:05, 11-03-2009 |
Старожил Сообщения: 460
|
Профиль | Отправить PM | Цитировать #include <IE.au3> $oIE = _IECreate('http://www.yandex.ru/') _IELoadWait($oIE) $oImgs = _IEImgGetCollection ($oIE) $iNumImg = @extended MsgBox(0, "Img Info", "There are " & $iNumImg & " images on the page") If $iNumImg > 0 Then $file = FileOpen("0.txt", 1) If $file = -1 Then MsgBox(64, 'Ошибка', 'При открытие файла возникла ошибка') For $oImg In $oImgs MsgBox(0, "Img Info", "src=" & $oImg.src) FileWriteLine($file, $oImg.src & @CRLF) Next FileClose($file) EndIf |
------- Отправлено: 17:11, 11-03-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 307
|
Профиль | Отправить PM | Цитировать Цитата ancoder:
#include <INet.au3> #include <array.au3> ;ссилку взял первую попавшуюся $sUrl = _INetGetSource('http://dogdraw.narod.ru/links.html') $sArray = StringRegExp( $sUrl , '.*<img src="(http://.*?.jpg).*',3,1) $sSsilki=_ArrayToString($sArray, @CRLF, 0, UBound($sArray) - 1) $sFile="0.txt" $fOpen=FileOpen($sFile,1) FileWrite($fOpen,$sSsilki) FileClose($sFile) |
|
------- Отправлено: 18:41, 11-03-2009 | #3 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Спасибо огромное !!!
|
Отправлено: 18:54, 11-03-2009 | #4 |
Старожил Сообщения: 460
|
Профиль | Отправить PM | Цитировать смотри выше - пример от beve
|
|
------- Отправлено: 18:58, 11-03-2009 | #5 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - [решено] кодировка в командной строке | Percival | Microsoft Windows 7 | 95 | 24-11-2022 05:33 | |
Разное - [решено] Не работают команды в командной строке. | hameleon-print | Microsoft Windows 2000/XP | 9 | 16-04-2016 13:38 | |
Интерфейс - [решено] переходы в адрессной строке | DarkDream604 | Microsoft Windows 7 | 2 | 27-08-2009 22:18 | |
[решено] Замена символа в строке, по номеру [PERL] | WestBronx | Вебмастеру | 1 | 22-03-2008 14:31 | |
Неудаляемый поиск в адресной строке | Turman | Microsoft Windows 95/98/Me (архив) | 7 | 03-12-2003 09:15 |
|