Recherche de phrase dans page web.

Le
vbnet3
Bonjour,
J’ai une page web contiens des liens (URL) et je suis en train de faire une application qui cherche si un lien se trouve dans le page web ou non. Mon question Comment faire la recherche sur une phrase dans une page web ou dans la code source de cette page (en utilisent le webrowser)..
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Christian Hugoud
Le #18264821
Bonjour,

Tu peux récupérer le source de la page web et utiliser la fonction InStr de
vb.

Christian

"vbnet3"
Bonjour,
J’ai une page web contiens des liens (URL) et je suis en train de faire
une
application qui cherche si un lien se trouve dans le page web ou non. Mon
question Comment faire la recherche sur une phrase dans une page web ou
dans la
code source de cette page (en utilisent le webrowser)..


vbnet3
Le #18264851
Christian Hugoud a écrit le 31/12/2008 à 20h26 :
Bonjour,

Tu peux récupérer le source de la page web et utiliser la
fonction InStr de
vb.

Christian

"vbnet3" a écrit dans le message
de news:

Bonjour,
J’ai une page web contiens des liens (URL) et je suis en train de faire
une
application qui cherche si un lien se trouve dans le page web ou non. Mon
question Comment faire la recherche sur une phrase dans une page web ou
dans la
code source de cette page (en utilisent le webrowser)..





Mais le problème comment récupère le code source d’une page web
Merci
bahn po
Le #18265191
vbnet3 a présenté l'énoncé suivant :
Bonjour,
J’ai une page web contiens des liens (URL) et je suis en train de faire une
application qui cherche si un lien se trouve dans le page web ou non. Mon
question Comment faire la recherche sur une phrase dans une page web ou dans
la code source de cette page (en utilisent le webrowser)..




Tu peux retrouver une réponse à cette question dans une discussion,
ci-dessous:


Sujet : recépéret les les nom de champs de txte d'une page web
Date : Wed, 17 Sep 2008 07:35:08 -0500
Auteur : virus Distribution : microsoft.public.fr.vb
Message ID : Date du post : Wed, 17 Sep 2008 07:35:07 -0500
References : news.orange.fr microsoft.public.fr.vb:68425


--------------------------------------------------------------------------------


Bonjour,
Est que possible de récupérer les nom de tous les champs de type texte
d’une
page web (je parle dans le code html bien sur) si possible SVP aider
moi comment
faire sa avec VBNET 9 ou VB6


***********************

En VB6, je le fais avec winsock, c'est une possibilité. Voici un
exemple, avec la page http://www.google.fr/intl/fr/ads/ qui se retrouve
enregistrée sur le disque dur. A toi de traiter le fichier de façon à
récupérer ce qui te semble nécessaire. Cela se fait avec des "instr"
pour trouver les balises de début et de fin afin d'élaguer les parties
inutiles.


Mettre deux boutons sur une feuille (bouton 2 = connect, 1 = charge la
page) et un contrôle winsock appelé winsock2

============================================= Option Explicit
Dim tableau
Dim strwebpage As String
Dim webdata

Private Sub Command1_Click()

' on charge la page

strwebpage = "GET http://www.google.fr/intl/fr/ads/" & vbCrLf
Winsock2.SendData strwebpage
'Winsock2.SendData "GET http://" & " HTTP/1.0" & vbCrLf
Winsock2.SendData "Accept: /" & vbCrLf
Winsock2.SendData "Accept: Accept: image/gif, image/x-xbitmap,
image/jpeg, image/pjpeg, /" & vbCrLf
Winsock2.SendData "Accept-Language: en-us" & vbCrLf
Winsock2.SendData "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5;
Windows 95)" & vbCrLf
Winsock2.SendData vbCrLf

End Sub

Private Sub Command2_Click()
' connexion au serveur

Winsock2.RemoteHost = "www.google.fr"
Winsock2.RemotePort = 80
Winsock2.Connect
End Sub


Private Sub winsock2_DataArrival(ByVal bytesTotal As Long)
' les données sont enregistrées dans un tableau

Winsock2.GetData webdata, vbString
tableau = tableau & webdata
Me.Caption = Len(tableau)
End Sub


Private Sub winsock2_close()
' on écrit dans un fichier

Open "c:test.html" For Output As #1
Print #1, tableau
Close

End Sub


========================================
Dans l'exemple ci-dessus on récupére la page au format html.

ça donne ça au format texte:

<html>
<head>
<title>Solutions de publicit&eacute; Google</title>
<style>
<!--
body,td,div,p,a,font,span{font-family:arial,sans-serif;}
//-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body bgcolor="#ffffff" text="#000000" link="#0000CC" vlink="#800080"
alink

(...)



A+


********************************


En VB6, avec le WebBrowser et la référence "Microsoft
HTMLObjetLibrary"

'*** Déclaration des variables locales
Dim objHtmlDocument As MSHTML.IHTMLDocument2
'Fait référence au document du WebBrowser
Dim objbaliseInput As MSHTML.IHTMLInputElement
'Élement Input
Dim objbalises As MSHTML.IHTMLElementCollection
'Collection d'élément (dont la nature sera définit plus tard...)


Set objHtmlDocument = WebBrowser.Document

Set objbalises = objHtmlDocument.All.tags("input")
For Each objbaliseInput In objbalises

If objbaliseInput.Type = "text" Then
MsgBox objbaliseInput.Name
End If

Next objbaliseInput


********************************
Jean-marc
Le #18265271
Hello,

Mais le problème comment récupère le code source d’une page web
Merci



tout simplement en consultant la FAQ VB :

http://faq.vb.free.fr/index.php?question9

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Publicité
Poster une réponse
Anonyme