Pb d'extraction dans une page html

Question

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:

Pb d'extraction dans une page html
Extraction de contenu de pages html - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
Appeler un fichier javascript dans une page html - Conseils pratiques - Javascript
Créer une page html avec python - Forum - Python
Python : Créer une page html (avec interface graphique) - CodeS SourceS - Guide
Trouver mot de passe page html - Forum - Javascript / DHTML

1 réponse

Posez votre question

cs_sjon · Answer 1 · 2002-07-25T04:37:12+0200

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

Votre réponse