Bonjour

J'utilise ce code pour compter les articles nouveaux sur un site a partir du code source qui est contenu "contenu".

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"
L'adresse est du type www.domaine.com/news.php?id=123456&blabla=eee

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.