Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Recherche de phrase dans page web.

Recherche de phrase dans page web.

4 réponses
Avatar
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)..
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Christian Hugoud
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)..


Avatar
vbnet3
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
Avatar
bahn po
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


********************************
Avatar
Jean-marc
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_' ;