1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Pb d'extraction dans une page html

cs_Billou Messages postés 34 Date d'inscription samedi 9 février 2002 Statut Membre Dernière intervention 27 août 2007 - 24 juil. 2002 à 13:28
cs_sjon Messages postés 861 Date d'inscription mardi 26 mars 2002 Statut Membre Dernière intervention 29 novembre 2006 - 25 juil. 2002 à 04:37
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 ---
A voir également:

1 réponse

Réponse 1 / 1
cs_sjon Messages postés 861 Date d'inscription mardi 26 mars 2002 Statut Membre Dernière intervention 29 novembre 2006 1
25 juil. 2002 à 04:37
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
0
Rejoignez-nous