Bonjour
J'utilise ce code pour compter les articles nouveaux sur un site a partir du code source qui est contenu "contenu".
L'adresse est du type www.domaine.com/news.php?id=123456&blabla=eee
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Set oRegExp = CreateObject("VbScript.RegExp") oRegExp.Global = True oRegExp.Pattern = "news.php" & "[^"" ><'\n\r]+" '''' nombre de news Dim nbrnews As Integer nbrnews = 0 For Each oMatch In oRegExp.Execute(contenu) If arret = True Then Exit Function nbrnews = nbrnews + 1 Next oMatch Form1.Label12.Caption = nbrnews & "news"
Le code marche bien sauf qu'il y a parfois des bug lorsque id n'existe pas il le compte, par exemple lorsque id=&blabla=eee ca me compte comme une news.
Vous savez comment faire pour ne pas compter les news qui n'existe pas.
Merci de votre aide.
Partager