Discussion :

[kikouu]

Bonjour à tous,

voila j'ai fais un ti prog pour voir dans un WebBrowser une page web.

Alors ce que je voudrais faire c'est pouvoir mettre le contenue de cette page (juste qlq ligne) dans un textbox par exemple...

Qlq peut il m'aider??

Merci à vous...

[sovo]

tu peux ouvrir le fichier (vu que c'est un fichier texte), chercher le mot ou phrase que tu cherches, et ensuite le copier dans ton textbox.

[kikouu]

tu peux ouvrir le fichier (vu que c'est un fichier texte), chercher le mot ou phrase que tu cherches, et ensuite le copier dans ton textbox.

Comment cela?? j'ai pas compris ?

j'ai ma page web dans un WebBrowser comme ceci :

WebBrowser1.Navigate "http://www.****.com"

et le contenue de cette page je voudrais le mettre dans un textbox...

[sovo]

essaye de faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
'Pour lire le fichier afficher par le WebBrowser
Dim Fich as string
Dim FF as integer
 
FF=freefile
fich=WebBrowser1.InternalURL
 
open  fich for Input as #FF
   'ici tu mets le code pour la recherche et la copis
Close #FF

[kikouu]

il faut que j'ajoute un control, car il me sort une erreur sur la ligne :
Fich = WebBrowser1.InternalURL

il me dit que "WebBrowser1" n'a pas la propriété "InternalURL"

[SfJ5Rpw8]

Essai ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBox1 = WebBrowser1.Document.documentElement.innerHTML

tu peu aussi parcourir les "élements" de ton document, de la même maniére que sur un objet internet explorer : voir par exemple
Récupérer des données sur une page HTML

[kikouu]

Essai ..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TextBox1 = WebBrowser1.Document.documentElement.innerHTML

tu peu aussi parcourir les "élements" de ton document, de la même maniére que sur un objet internet explorer : voir par exemple
Récupérer des données sur une page HTML

même erreur...

WebBrowser1.Document n'a pas cette propriété :"documentElement.innerHTML"

[sovo]

oups desole. c'est plutot LocalURL

[kikouu]

oups desole. c'est plutot LocalURL

Marche pas non plus, ya des erreurs dans le code... Prob de fichier...

[SilkyRoad]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  WebBrowser1.navigate "http://www.maPageHtml.com"
  Do
  DoEvents
  Loop While WebBrowser1.Busy 'attend le fin de chargement de la page
 
  'Cible = WebBrowser1.document.body.innerHTML 'affichage source page
  'ou
  Cible = WebBrowser1.document.body.innerText 'affichage  contenu page

bon apres midi
michel

[kikouu]

SVP qlq peut me dire prq je n'arrive pas à avoir une propriété de WebBrowser1.Document ????

faut il que j'ajoute un composant ou dll????

[kikouu]

bonjour

tu peux tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  WebBrowser1.navigate "http://www.maPageHtml.com"
  Do
  DoEvents
  Loop While WebBrowser1.Busy 'attend le fin de chargement de la page
 
  'Cible = WebBrowser1.document.body.innerHTML 'affichage source page
  'ou
  Cible = WebBrowser1.document.body.innerText 'affichage  contenu page

bon apres midi
michel

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

c'était ca ce qu'il fallait!!!