Discussion :

[snorky94]

Bonjour,

Question bête, actuellement je fais un script qui recherche un mot dans un fichier avec la fonction "If instr".

Dans mon fichier il y a :

TOTO
TOTO1
TOTO2
TOTO3
TOTO4
TOTO5

Cependant si je cherche "TOTO" il va me sortir toute la liste, ce qui est logique.

Comment faire pour qu'il me sorte uniquement TOTO au sens strict de ma recherche ?

En d'autres termes faire un "MATCH" et non un "LIKE".

Avec un expression régulière ?

Faut il calculer la longueur ?

Vos idées sont les bienvenues, merci.

[Miistik]

Bonjour,


Je pense qu'une expression régulière fera l'affaire.

Une question : Si TOTO est toujours suivie d'un chiffre ou autre accollé, une simple comparaison avec une variable égale à "TOTO", fonctionnerait dans le cas strict. Non ?

EDIT : Avec une regex se serait :

Code :

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

1
2
3
Set objRegex = new RegExp
objRegex.Pattern = "^TOTO$"
objRegex.IgnoreCase = False

Mais je pense qu'une regex est plus utile pour matcher des cas changeants. Là c'est fixe.

[snorky94]

Hello,

Merci pour ta réponse Miistik, je vais tester avec une regexp.

En fait dans c'est une liste de noms de serveurs donc les noms sont variables.

TOTO
MICKEY01
TOTO1
BAMBI1
TOTO2
MICKEY04
TOTO3
TOTO4
MICKEY06
BAMBI3
TOTO5

Je vais utiliser une expression régulière pour "matcher" exactement avec ma recherche merci

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Extract "c:\test.txt"
 
Function Extract(InputFile) 
     Set fso = CreateObject("Scripting.FileSystemObject")   
     Set f = Fso.OpenTextFile(InputFile,1) 
     ReadFile = f.ReadAll 
     Set Reg = New RegExp 
     Reg.Global = True 
     Reg.IgnoreCase = True  
     Reg.Pattern = "\bTOTO\b"  
     For Each Match in Reg.Execute(ReadFile) 
         MsgBox Match.Value
     Next  
 End Function

[snorky94]

hey hey merci à vous !

Sauf que le seul problème est que le nom des serveurs n'est jamais le meme en fait :

Donc :

Code :

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

Reg.Pattern = "\bTOTO\b"

Ne va pas fonctionner.

Voila ma boucle de base, elle fonctionne mais c'est largement optimisable :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
				Set ObjFSO = CreateObject("Scripting.FileSystemObject")
 
				Set FichierParcourir = objFSO.OpenTextFile(ExportCAS, ForReading, True)
 
				Do While FichierParcourir.AtEndOfStream <> True
 
					Ligne = FichierParcourir.ReadLine
 
					MonTableau = Split(Ligne, ";")
 
					Serveur = MonTableau(0)
 
						If instr(Serveur,strMachine) Then
							ExistanceRecherche = true
							'objDialogWindow.document.Body.InnerHTML =  "Recherche :  " & Serveur ' & " OK <br>"	
							results.value = results.value & Serveur & vbCRLF		
						End If
				Loop

De plus si mon serveur s'appel TOTO, il va me sortir TOTO,TOTO1,TOTO2, ...

Donc est ce qu'on peut mettre une variable dans une regexp

Code :

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

Reg.Pattern = "\b"&Recherhe&"\b"

Merci à vous.

[hackoofr]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Extract "c:\test.txt","TOTO"
 
Function Extract(InputFile,Recherhe) 
     Set fso = CreateObject("Scripting.FileSystemObject")   
     Set f = Fso.OpenTextFile(InputFile,1) 
     ReadFile = f.ReadAll 
     Set Reg = New RegExp 
     Reg.Global = True 
     Reg.IgnoreCase = True  
     Reg.Pattern = "\b"&Recherhe&"\b"  
     For Each Match in Reg.Execute(ReadFile)
         Extract = Match.Value
         MsgBox Extract
     Next  
 End Function