RegExp

Marsh Posté le 25-03-2004 à 12:21:21

youp,

j'ai une ligne :

<div class="appliesto" id="appliesto" name="appliesto"><h3>The information in this article applies to:</h3><ul><li>Microsoft Outlook Express 6.0 SP1, when used with:<ul> the operating system: Microsoft Windows XP SP1</ul><ul> the operating system: Microsoft Windows Millennium Edition</ul><ul> the operating system: Microsoft Windows 2000 SP2</ul><ul> the operating system: Microsoft Windows 98 Second Edition</ul><ul> the operating system: Microsoft Windows NT 4.0 SP6a</ul></li><li>Microsoft Outlook Express 6.0, when used with:<ul> the operating system: Microsoft Windows XP</ul></li><li>Microsoft Outlook Express 5.5 for Windows 98 Second Edition</li><li>Microsoft Outlook Express 5.5 for Windows Millennium Edition</li><li>Microsoft Outlook Express 5.5 for Windows 2000</li><li>Microsoft Outlook Express 5.5 for Windows NT 4.0</li></ul></div>

dont je voudrais extraire les paires <li></li>

le problème, c'est qu'il me donne chaque fois toute la ligne comprise entre le premier <li> et le dernier </li>

mon code en VB:

Code :

Private Sub Command1_Click()
Dim i As Integer
Dim moiur As String
moiur = "<div class=""appliesto"" id=""appliesto"" name=""appliesto""><h3>The information in this article applies to:</h3><ul><li>Microsoft Outlook Express 6.0 SP1, when used with:<ul> the operating system: Microsoft Windows XP SP1</ul><ul> the operating system: Microsoft Windows Millennium Edition</ul><ul> the operating system: Microsoft Windows 2000 SP2</ul><ul> the operating system: Microsoft Windows 98 Second Edition</ul><ul> the operating system: Microsoft Windows NT 4.0 SP6a</ul></li><li>Microsoft Outlook Express 6.0, when used with:<ul> the operating system: Microsoft Windows XP</ul></li><li>Microsoft Outlook Express 5.5 for Windows 98 Second Edition</li><li>Microsoft Outlook Express 5.5 for Windows Millennium Edition</li><li>Microsoft Outlook Express 5.5 for Windows 2000</li><li>Microsoft Outlook Express 5.5 for Windows NT 4.0</li></ul></div>"
Set ObjRegex = New RegExp
ObjRegex.Global = True
ObjRegex.IgnoreCase = True
ObjRegex.Pattern = "(<li>.*</li> )"
Set ColMatches = ObjRegex.Execute(moiur)
If ColMatches.Count > 0 Then
For i = 0 To ColMatches.Count - 1
DoEvents
txtResultat.Text = txtResultat.Text & vbCrLf & ColMatches(i).Value
Next
End If
End Sub

je me dis que ca doit être le pattern qui est pas bon, mais je ne sais pas comment arranger ca

une idée ?

merci

---------------
oui oui

Reply

Marsh Posté le 25-03-2004 à 12:21:21

Reply

Marsh Posté le 25-03-2004 à 12:40:57

peut-être (<li>.*?</li> )

Reply

Marsh Posté le 25-03-2004 à 12:42:55

oui ca marche, merci

tu sais m'expliquer pourquoi ?

---------------
oui oui

Reply

Marsh Posté le 25-03-2004 à 12:45:20

en fait dans la page, j'ai y a pleins de <div> et j'emploie une regexp pour isoler la div que je veux pour ensuite extraire les <li></li>

y aurait pas moyen de tout faire en une fois : trouver la bonne <div> puis extraire les <li><li> ?

---------------
oui oui

Reply

Marsh Posté le 25-03-2004 à 12:46:20

le signe * est gourmand, c'est à dire qu'il va essayer de prendre le maximum de caractères. Mettre un ? après permet de le mettre au régime et cela va donc récupérer le minimum de caractères. (? tout seul a un sens différent sinon)

Reply

Marsh Posté le 25-03-2004 à 12:54:12

yop merci

---------------
oui oui

Reply

Marsh Posté le 25-03-2004 à 12:54:22

Pour ton autre question, je vois pas

Reply

RegExp

Sujets relatifs:

Leave a Replay