How to get text of website include image link?

[langthang084]

I use _IEBodyReadText but it remove all Image Link!!!!!!

[mLipok]

Check the first example for:

_IEImgGetCollection(..)

EDIT: of course check it in HelpFile or just click the above mentioned function

EDIT2: I think second example would be better for your needs.

Edited February 8, 2016 by mLipok

[AutoBert]

Yes, _IEBodyReadText reads only text. When you need the html of body use _IEBodyReadHTML

#include <IE.au3>

Local $oIE = _IECreate("https://www.autoitscript.com/forum/forum/2-autoit-general-help-and-support/",0,0)
Local $sHTML = _IEBodyReadHTML($oIE)
Local $sfile="Test.htm"
$hfile=FileOpen($sfile,2)
FileWrite($hfile,$sHTML)
FileClose($hfile)
_IEQuit($oIE)
;ShellExecute($sfile)

When you need only the infos to images follow the advice from mLipok.

[langthang084]

After all, Now I must know about HTML Tag

[AutoBert]

Just use _IEDocReadHTML instead of _IEBodyReadHTML and you will get it.

[kylomas]

langthang084,

If you don't want to dick with parsing the HTML then do it like this...

#include <ie.au3>

Local $sURL = 'your.url'
Local $sOutFile = @ScriptDir & '\web text and image names.txt'

Local $oie = _IECreate($sURL, 0, 0)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'IECreate failed')

Local $sText = _IEBodyReadText($oie)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'Get text failed')

$sText &= @CRLF & '-------------------- Images ------------------------' & @CRLF

Local $oIMGs = _IEImgGetCollection($oie)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'Get image collection failed')

For $oIMG In $oIMGs
    $sText &= $oIMG.src & @CRLF
Next

$sText = StringRegExpReplace($sText, '\R+', @CRLF) ;    get rid of blank lines

Local $hfl = FileOpen($sOutFile, $FO_OVERWRITE)
FileWrite($sOutFile, $sText)

_IEQuit($oie)

ShellExecute($sOutFile)

kylomas

[langthang084]

6 hours ago, kylomas said:

langthang084,

If you don't want to dick with parsing the HTML then do it like this...

#include <ie.au3>

Local $sURL = 'your.url'
Local $sOutFile = @ScriptDir & '\web text and image names.txt'

Local $oie = _IECreate($sURL, 0, 0)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'IECreate failed')

Local $sText = _IEBodyReadText($oie)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'Get text failed')

$sText &= @CRLF & '-------------------- Images ------------------------' & @CRLF

Local $oIMGs = _IEImgGetCollection($oie)
If @error Then Exit MsgBox(17, '*** ERROR ***', 'Get image collection failed')

For $oIMG In $oIMGs
    $sText &= $oIMG.src & @CRLF
Next

$sText = StringRegExpReplace($sText, '\R+', @CRLF) ;    get rid of blank lines

Local $hfl = FileOpen($sOutFile, $FO_OVERWRITE)
FileWrite($sOutFile, $sText)

_IEQuit($oie)

ShellExecute($sOutFile)

kylomas

Thanks for your code. But I want to get text and link alternately. 

@AutoBert: thanks for your suggestion

[kylomas]

By alternately you mean you want to get it where it appears in the HTML?

[langthang084]

Yeah. Thats it

[mLipok]

You should enumerate all tags.

In a Loop:  Grab Text from each Tag, but when you comes to IMG you should grab src instead text.