Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Converting html --> text document
Message
 
À
12/10/2002 12:52:48
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00710635
Message ID:
00710720
Vues:
22
Nancy
Solved my question. but do you know where I could get info re body vs.
documentElement. Leep running into things like this re
internet explorer.
Thanks
Steve

mcall = "http://www.klse.com.my/website/marketinfo/marketinfo.htm"

release o, odoc, otext
*LOCAL oie as internetexplorer.application
oIE = createobject( "internetexplorer.application" )
oIE.Visible = .t.
oIE.Navigate( mcall )
do wait_for_page
oDoc = oIE.Document
*lcText = oDoc.documentElement.innerText
oText = oDoc.body.innerText **<<-- body vs documentElement

StrToFile(oText, "test.txt")
modi comm "test.txt"

*****************************************************8
proc wait_for_page

stime = time()
do while oie.Busy
wait wind "Please wait... Internet Explorer is busy " + time() time 1
enddo
do while lower(oie.Document.ReadyState) <> "complete"
wait wind "Please wait...while page downloads " time 1
enddo
endproc
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform