"Niels Krogh" <nikro@REMOVEbigfoot.com> skrev i en meddelelse
news:90qjr1$5on$1@news.inet.tele.dk...
> Hej Jens,
>
> Nedenstående stump kode trigges Webbrowseren (WB) er færdig ned at hente
> siden. Der gemmes både HTML- koden og selve teksten.
Jamen.... naturligvis! Jeg kunne ikke finde dokumentation af properties for
..document-objektet nogen steder, men jeg havde nok en mistanke om, at det
var dér hunden lå begravet.
Man takker ydmygst
mvh
Jens Vestergaard
www.railsoft.dk
>
> mvh
> Niels
>
>
> Private Sub WB_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
> Dim sHTML As String, sText As String
> Dim fHandle As Integer
>
> sHTML = WB.Document.Body.InnerHTML
> sText = WB.Document.Body.InnerText
>
> fHandle = FreeFile
>
> Open App.Path & "\MyHTML.html" For Output As #fHandle
> Print #fHandle, , sHTML
> Close #fHandle
>
> Open App.Path & "\MyTEXT.txt" For Output As #fHandle
> Print #fHandle, , sText
> Close #fHandle
>
> End Sub
>
>
>
> "Jens Vestergaard" <j@railsoft.dk> skrev i en meddelelse
> news:90qd7n$4mi$1@news.inet.tele.dk...
> > Hejsa!
> >
> > Hvordan laver jeg med VB6's browser control en funktion, der svarer til
at
> > åbne Kilde i IE?
> >
> > Jeg vil altså læse hele HTML-koden i det indlæste dokument - ikke kun
den
> > læsbare tekst, som jeg godt kan få fat i...
> >
> > Og et tillægsspørgsmå: Hvordan får jeg ExecWB til at gemme det indlæste
> > dokument uden at prompte for navn og placering. Jeg har prøvet med
> >
> > Browser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, App.Path &
> > "\ssssss.htm", Null
> >
> > ...og for den sags skyld også
> >
> > Browser.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DONTPROMPTUSER, App.Path &
> > "\ssssss.htm", Null
> >
> > ...og jeg har forsøgt både True og False som sidste argument, men uden
> held.
> >
> > mvh
> > Jens Vestergaard
> >
www.railsoft.dk
> >
> >
> >
>
>
>
>