Atomos83
Messages postés33Date d'inscriptionmercredi 23 février 2005StatutMembreDernière intervention10 novembre 2006
-
9 nov. 2006 à 20:42
leSaleGauSS
Messages postés148Date d'inscriptionsamedi 4 novembre 2006StatutMembreDernière intervention 4 décembre 2008
-
15 nov. 2006 à 03:02
Bonsoir, j'ai un petit problème avec les expressions régulière.
En faite, j'ai un fichier .txt qui contient le code source d'une page web, j'aimerais pouvoir récupérer le contenue d'une balise, par exemple, récupérer le contenue de la balise ou le href de la balise ...
TMONOD
Messages postés256Date d'inscriptionmardi 25 novembre 2003StatutMembreDernière intervention 6 novembre 20091 9 nov. 2006 à 20:53
Bonsoir,
Les expressions règulières ne sont pas le meilleur outil pour extraire le contenu d'une balise html.
Si ton code html est normalisé , tu peut le parser comme n'importe quel fichier xml, en créant, par exemple,une feuille XSL pour construire un document qui ne contient que les données que tu souhaites.
Si tu ne connais pas du tout le xml, trouves-toi un bon tutoriel, je pense qu'en quelques heures tu devrais pouvoir avancer de manière satisfaisante sur ton problème !
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 10 nov. 2006 à 01:39
salut,
mon fichier test.txt contient la source de google.fr
plus qu'à se faire une petite fonction LEFT maison....
Option Explicit
'
Private Sub Form_Load()
Dim FF%, sBuffer$
FF = FreeFile
Open "C:\test.txt" For Input As #FF
sBuffer = Input(LOF(FF), #FF)
Close #FF
Do
Call MyLeft(sBuffer, "<", True)
Debug.Print MyLeft(sBuffer, ">", True)
Loop Until LenB(sBuffer) = 0
End Sub
'
Private Function MyLeft(ByRef sStr As String, sSepar As String, Optional sDelete As Boolean = False)
As String
Dim lPos As Long
lPos = InStr(1, sStr, sSepar)
If lPos = 0 Then
MyLeft = vbNullString
Else
MyLeft = LeftB$(sStr, (lPos * 2) - 2)
If sDelete Then sStr = RightB$(sStr, LenB(sStr) - LenB(MyLeft) - LenB(sSepar))
End If
End Function
TMONOD
Messages postés256Date d'inscriptionmardi 25 novembre 2003StatutMembreDernière intervention 6 novembre 20091 14 nov. 2006 à 22:45
...Si si, en fait, je travailler sur un parseur de pages web non normalisées (cad 80% des pages html), du genre qui transforme les
EN
et met les bonnes entités là ou y faut...
Si j'aboutit, je vous "la" montre..