Repeat IE Function a number of times

[alaa2000]

well, i have this code that works perfectly as it should in the first time

ie page created >> all links in page opened >> select all >> copy >> paste in notepad >> save >> mouse click next page (within the same page so same address in address bar)

#include <IE.au3>
$oIE = _IECreate ("http://www.ldlp-dictionary.com/home/words/69")
$oLinks = _IELinkGetCollection ($oIE)
Local $i = 0
copySelected ()

Func copySelected ()
   $i = $i + 1
For $oLink In $oLinks
 If StringInStr($oLink.href, "www.ldlp-dictionary.com/dictionaries/word/")> 0 Then _IEAction($oLink, "click")
    _IELoadWait($oIE)
 Next
Sleep(1000)
Send("^a")
Sleep(1000)
Send("^c")
Sleep(1000)
WinActivate("[CLASS:Notepad]", "")
Sleep(1000)
Send("^v")
Sleep(1000)
Send("^s")
Sleep(1000)
MouseClick($MOUSE_CLICK_LEFT, 201, 469, 2)
_IELoadWait($oIE)
Sleep(1000)

if $i < 3 Then
   copySelected ()
EndIf
EndFunc

now the only problem that i need the function to be repeated for the existing page not create a new one so the function is not working properly after the first time

so i want the function to be repeated inside the current page over and over

how can i do it ?

[Subz]

Can you tell us what text you're trying to copy from the dictionary?  Because the link text looks the same as the expanded result?

[alaa2000]

2 hours ago, Subz said:

Can you tell us what text you're trying to copy from the dictionary?  Because the link text looks the same as the expanded result?

 

already done it thanks for replying, my updated code is in my new post with a memory leak i cant find

https://www.autoitscript.com/forum/topic/192347-where-is-the-memory-leak-in-my-code/

[Subz]

No worries, I actually had a play with your code and came up with the following but wasn't sure if that's what you wanted, currently it places the link text, the keyword and description into an array, you could write it to csv or text file afterwards.  It would take a while though to get through 1200 pages.

expandcollapse popup

#include <Array.au3>
#include <IE.au3>

Global $aContent[1][3]
$oIE = _IECreate ("http://www.ldlp-dictionary.com/home/words/69")
$oLinks = _IELinkGetCollection ($oIE)
$oInnerContent = _IEGetObjById($oIE, "inner_content")
$oSpans = _IETagNameGetCollection($oIE, "span")
    For $oSpan In $oSpans
        If $oSpan.ClassName = "pagination" Then $iCount = Number(StringReplace($oSpan.InnerText, "  Page  of ", ""))
    Next
    copySelected()
    For $i = 2 To $iCount
        $oIE = _IECreate ("http://www.ldlp-dictionary.com/home/words/69/" & $i & "/")
        copySelected()
    Next

Func copySelected ()
    Local $sLink, $sKeyword, $sDesc
    $oInnerContent = _IEGetObjById($oIE, "inner_content")
    $oDivs = _IETagNameGetCollection($oInnerContent, "div")
    For $oDiv In $oDivs
        If $oDiv.ClassName = "titles dict_desc" Then
            ReDim $aContent[UBound($aContent) + 1][3]
            $oLinks = _IETagNameGetCollection($oDiv, "a")
            For $oLink In $oLinks
                If $oLink.ClassName = "dict_title" Then
                    _IEAction($oLink, "click")
                    _IELoadWait($oIE)
                    Sleep(1000)
                    $aContent[UBound($aContent) - 1][0] = $oLink.InnerText
                EndIf
            Next
            $oInnerDivs = _IETagNameGetCollection($oDiv, "div")
            For $oInnerDiv In $oInnerDivs
                If $oInnerDiv.id = "keywordContainer" Then $aContent[UBound($aContent) - 1][1] = $oInnerDiv.InnerText
                If $oInnerDiv.ClassName = "definitionListEntry" Then $aContent[UBound($aContent) - 1][2] = $oInnerDiv.InnerText
            Next
        EndIf
    Next
    $aContent[0][0] = UBound($aContent) - 1
    _ArrayDisplay($aContent)
EndFunc

 

[Earthshine]

please don't keep opening new threads with the same issue.

but this looks like a better thing to do than call your copy function that repeatedly hits the _IEGetCollections

Edited February 8, 2018 by Earthshine