Discussion :

[Miistik]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tedo01]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Miistik]

Bonjour,

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

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

Merci.

[ProgElecT]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Miistik]

Bonjour,

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

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

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