cs_Billou
Messages postés34Date d'inscriptionsamedi 9 février 2002StatutMembreDernière intervention27 août 2007
-
24 juil. 2002 à 13:28
cs_sjon
Messages postés861Date d'inscriptionmardi 26 mars 2002StatutMembreDernière intervention29 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.
cs_sjon
Messages postés861Date d'inscriptionmardi 26 mars 2002StatutMembreDernière intervention29 novembre 20061 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