Pb d'extraction dans une page html

Messages postés
34
Date d'inscription
samedi 9 février 2002
Statut
Membre
Dernière intervention
27 août 2007
-
Messages postés
861
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
29 novembre 2006
-
vala alors j'aimerais extraire tout ce ki es en caractere gras dans une page html...

vala la page ....

--- DEBUT DE LA PAGE ---

<HTML>

<center>
ADSL Info en ligne
</center>

Du 01.07.2002 au 31.07.2002 , vous avez passé VALA CE KE JE VEUX RECUPERER heures en ligne.
Vous avez transmis un volume de VALA CE KE JE VEUX RECUPERERByte en --- sessions.

--- FIN DE LA PAGE ---

1 réponse

Messages postés
861
Date d'inscription
mardi 26 mars 2002
Statut
Membre
Dernière intervention
29 novembre 2006
1
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 = 1flag1 0: flag2 0
Data = Web.Document.documentElement.outerHTML
s = InStr(st, Data, "", 1)
While s > 0 And dflag = 0
d = InStr(Len(" ") + s, Data, " ", 1)
g = Mid(Data, s, d - s + Len(""))
DoEvents
Text1.Text = Text1.Text + g + vbCrLf
st = d + 1
s = InStr(st, Data, "", 1)
Wend
End Sub

Private Sub Form_Load()
Web.Navigate "c:/windows/bureau/result.htm"
End Sub