Writing files

[LAMBERT99 0]

This is my second script slightly modified from the examples ....

it works but it does not write the result in my script directory . (testt.txt)

#include <IE.au3>

Local $file = FileOpen(@ScriptDir &"testt.txt", 1)
; Check if file opened for writing OK
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf

Local $oIE = _IECreate("http://cnn.com")

Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
;MsgBox(0, "Link Info", $oLink.href)
FileWrite(@ScriptDir &$file, $oLink.href & @CRLF)
Next
FileClose($file)

where i am doing misttake ???

[Jos 2,165]

Shouldn't that be : @ScriptDir&"testt.txt" ?

Edited April 7, 2012 by Jos

[LAMBERT99 0]

Sorry ! the problem was not the script !

i saved the script somewhere else ..... the problem of a NEWBIE ...

I have one question .... what about saving a web page with other name ??

is " _IEBodyWriteHTML " that works ??? having trouble with that ...... thanks !

[kylomas 415]

Lambert99,

See inetget or inetread to save WEB pages

kylomas

[LAMBERT99 0]

Trying to save webpages by the following code ....... no sucess ! ??????

#include <Inet.au3>
#include <IE.au3>
Local $oIE = _INetGetSource('http://www.cnn.com')
Local $sHTML = _IEDocReadHTML($oIE)
MsgBox(0, "Document Source", $sHTML)

[kylomas 415]

Lambert99,

This is one way to do it. See the parms for a complete explanation.

$url = 'http://www.cnn.com'
$out_file = "c:tmpmy_out_file.txt"
getter($url,$out_file)
Func getter($in, $out)
 Local $s = InetGetSize($in, 1)
 Local $g = InetGet($in, $out, 1,1)
 Do
 Until InetGetInfo($g, 2)
 if InetGetInfo($g, 4) > 0 then MsgBox(0,'*** Error downloading ',$in)
 InetClose($g)
EndFunc   ;==>getter

kylomas

[somdcomputerguy 103]

Trying to save webpages by the following code ....... no sucess ! ??????

#include <Inet.au3>
#include <IE.au3>
Local $oIE = _INetGetSource('http://www.cnn.com')
Local $sHTML = _IEDocReadHTML($oIE)
MsgBox(0, "Document Source", $sHTML)

Try this:

#include <Inet.au3>
Local $oIE = _INetGetSource('http://www.cnn.com')
MsgBox(0, "Document Source", $oIE)