Si Regex ne trouve rien ..

Bonjour,

Un petit souci ...

Je scanne un fichier ligne par ligne et je teste avec une Regex.
Si je trouve, je fais une action.
J'aimerai pouvoir dire "si rien de trouvé dans toutes les lignes"
Mes lignes sont parcourues par :

Code:

---

1 2 3 4 5 6 7 8 9

For i = 0 To UBound(arrLines) Set occurrence = a.Execute(arrLines(i)) If (occurrence.count<>0) Then action Else If (rien de trouvé dans toutes les lignes) Then action End If Next

---

Bonjour,
Pour faire ça il faut faire la boucle sur tout le fichier et se rappeler par un flag si on a trouvé quelque chose ou pas (variable flagTrouve), puis après la boucle tester la variable :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

flagTrouve = False   For i = 0 To UBound(arrLines) Set occurrence = a.Execute(arrLines(i)) If (occurrence.count<>0) Then action flagTrouve = True Next   If not bolTrouve Then action End If

---

Bonjour,

Je teste cela.
Comment n'ai-je pas pensé à cela ...

J'ai testé un compteur mais je me suis embrouillé.

Merci.

Salut

Question efficacité, pourquoi ne pas tester le contenu entier du fichier avant que de vérifier chaque ligne ?

Code:

---

1 2 3 4 5

If a.Test(ContenuDuFichier) = False Then 'action pas d'occurrence Else 'action recherche ligne par ligne End If

---

Bonjour,

Sur le principe, c'est une excellente idée. :applo:

A voir si cela s'intègre dans mon code.

EDIT : Excellent !
Ce forum ne cessera pas de m'impressionner :king: