Что нового

ввод последовательных значений из IE в массив

Alexaut

Новичок
Сообщения
23
Репутация
1
Пробую вытаскивать адреса иконок со странички - вроде, получается, - ArrayDisplay отобранные иконки ПОСЛЕДОВАТЕЛЬНО показывает.

Код:
#include "IE.au3"
#include "Array.au3"

$sUrl = "http://www.photosight.ru/users/208022/"

$oIE = _IECreate($sUrl)
$oMetas = _IETagNameGetCollection ($oIE, "img")
For $oMeta In $oMetas
    If $oMeta.src <> "0" then
		If StringRight($oMeta.src,3) = "jpg" or StringRight($oMeta.src,4) = "jpeg" Then
           
$avArray = _ArrayCreate($oMeta.src)
			
			_ArrayDisplay( $avArray, "Адрес иконки" )
			
      EndIf  
    EndIf
Next


- А как создать массив включающий всю СОВОКУПНОСТЬ отобранных иконок?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Код:
#include "IE.au3"
#include "Array.au3"

$sUrl = "http://www.photosight.ru/users/208022/"

$oIE = _IECreate($sUrl)
$sHTML = _IEDocReadHTML($oIE)
$sPattern = '(?i)src=["''](http.*?\.jp[ge]+)'
$aA = StringRegExp($sHTML, $sPattern, 3)
_ArrayDisplay($aA)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 320
Alexaut,
Можно и так попробовать.
Код:
#include <IE.au3>
#include <Array.au3>

$sUrl = 'http://www.photosight.ru/users/208022/'
$iCount = 0
$oIE = _IECreate($sUrl)
$oMetas = _IETagNameGetCollection($oIE, 'img')
Dim $aIMG[@extended + 1][2]
For $oMeta In $oMetas
	If StringRegExp($oMeta.src, '\.jp[eg]{1,2}$') Then
		$iCount += 1
		$aIMG[$iCount][0] = $oMeta.src
		$aIMG[$iCount][1] = $oMeta.alt
	EndIf
Next
If $iCount Then
	ReDim $aIMG[$iCount + 1][2]
	$aIMG[0][0] = $iCount
	_ArrayDisplay($aIMG)
Else
	MsgBox(16, 'Error', 'Error')
EndIf


{CodeWarn}
 
Автор
A

Alexaut

Новичок
Сообщения
23
Репутация
1
axlwor
madmasles

Оба варианта работают. - СПАСИБО!
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Автор
A

Alexaut

Новичок
Сообщения
23
Репутация
1
Kaster

Вы про код AutoIt? - не знал, что сообщение можно корректировать. - Поменял :smile:
 
Верх