Что нового

[Автоматизация] Найти среди текста ссылок, конкретный текст.

Ander

Новичок
Сообщения
4
Репутация
0
Доброго времени суток. Прошу помощи у знатоков)
Задача: На конкретной уже открытой странице нужно найти текст ссылки вида RUM************, и передать в адресную строку с url www.test.ru/RUM*************
делаю вот так:
Код:
#include <IE.au3>
WinWaitActive ("Yandex - Internet Explorer")
$oIE = _IEAttach("Yandex - Internet Explorer","embedded")
$oLinks = _IELinkGetCollection ($oIE)
For $oLink In $oLinks
	If StringInStr($oLink.innerText, "int") <> 0
		Then MsgBox(0, "Link Info", $oLink.innerText)
	EndIf
Next


уперся, даже просто в окно не показывает :stars:
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Ander

Код:
If StringInStr($oLink.innerText, "int") <> 0
     Then MsgBox(0, "Link Info", $oLink.innerText)
EndIf

Это новый синтаксис записи условия If?

найти текст ссылки вида RUM************
Код:
StringInStr($oLink.innerText, "int")

То есть текст RUM************, эквивалентен тексту int?

"Yandex - Internet Explorer"
IMHO: Окно с таким заголовком вряд ли будет.
 
Автор
A

Ander

Новичок
Сообщения
4
Репутация
0
Код:
If StringInStr($oLink.innerText, "int") <> 0
     Then MsgBox(0, "Link Info", $oLink.innerText)
EndIf

Это новый синтаксис записи условия If?

тут только что Then выше надо)

найти текст ссылки вида RUM************
Код:
StringInStr($oLink.innerText, "int")

То есть текст RUM************, эквивалентен тексту int?

Да, это я просто на yandex.com тестирую, там есть текст ссылки "internet"

"Yandex - Internet Explorer"
IMHO: Окно с таким заголовком вряд ли будет.
[/quote]


Есть такое окно, это yandex.com в IE, взятое autoit window info.


А вообще задачу решил, кому интересно, вот так:


Код:
#include <IE.au3>
WinWaitActive ("Активации | Главная - Internet Explorer")
$oIE = _IEAttach("Активации | Главная - Internet Explorer","embedded")
$oLinks = _IELinkGetCollection ($oIE)
$Kart = ''
For $oLink In $oLinks
	If StringInStr($oLink.innerText, "RUM") <> 0 Then
		  $Kart = $oLink.innerText
	$sScr = 'window.location.href="http://proekt/strans/?name=' & $Kart & '"'
		$oIE.document.parentWindow.execScript($sScr, 'javascript')
	EndIf
Next



Добавлено:
Сообщение автоматически объединено:

Единственный момент, это почему после преобразования в .exe не работает...? :stars:
 
Верх