Sael og Blesud
'Dans une form tu place un control WebBrowser que tu nommes Web
'Ainsi qu'un TextBox ayant la valeur True a la propriété Multilines
'et aussi un CommandButton
'Voilà ton code :
Private Sub Command1_Click()
Dim Data() As Byte, i As Integer, st As Long, s, d, g
Text1.Text = ""
st = 1
flag1 = 0: flag2 = 0
Data = Web.Document.documentElement.outerHTML
s = InStr(st, Data, "<b>", 1)
While s > 0 And dflag = 0
d = InStr(Len("<b>") + s, Data, "</b>", 1)
g = Mid(Data, s, d - s + Len("</b>"))
DoEvents
Text1.Text = Text1.Text + g + vbCrLf
st = d + 1
s = InStr(st, Data, "<b>", 1)
Wend
End Sub
Private Sub Form_Load()
Web.Navigate "c:/windows/bureau/result.htm"
End Sub
-------------------------------
Réponse au message :
-------------------------------
vala alors j'aimerais extraire tout ce ki es en caractere gras dans une page html...
vala la page ....
--- DEBUT DE LA PAGE ---
<HTML>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000C0" VLINK="#FF0000" ALINK="#00C000">
<center><IMG SRC="/accadm/img/infoclock.gif" ALT="Online Info">
<H2>ADSL Info en ligne</H2></center>
<font size=-1>
Du 01.07.2002 au 31.07.2002 , vous avez passé <b>VALA CE KE JE VEUX RECUPERER</b> heures en ligne.
Vous avez transmis un volume de <b>VALA CE KE JE VEUX RECUPERER</b>Byte en --- sessions.
<br><br>
--- FIN DE LA PAGE ---