Discussion :

[hamza.rezgui]

Bonjour,

Comment chercher dans texte les mots qui contiennent « $ » ?
Exemple: « toto$ » ;« to$to »;« $toto »

En faite j'ai essayé la fonction InStr ,mais elle permet de faire une recherche seulement de la chaine « $ » et s'il y d'autres caractères dans la chaine la recherche ne donne rien.

merci d'avance.

[hackoofr]

Postez votre code et

[hamza.rezgui]

Code :

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

1
2
 
 InStr(DesignStep.StepExpectedResult, "«$»")

Ce code permet de chercher uniquement « $ » et moi mon but est de chercher tout les mots qui commence par « et se termine par » et qui contiennent $

merci d'avance

[hackoofr]

DesignStep.StepExpectedResult

Représente quoi exactement est-ce-que vous travaillez en Vbscript

[hamza.rezgui]

Représente quoi exactement est-ce-que vous travaillez en Vbscript

je travail dans le développement d'un module pour HP ALM Quality Center 11 en utilisant l'APi OTA en Vbscript

[hamza.rezgui]

DesignStep.StepExpectedResult retourne le texte où je fait la recherche

[l_autodidacte]

En VBScript, on peut faire ceci :

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
Function Recherche(strIn,strFind)
	Mot = ""
	intPos = InStr(strIn, strFind) 'Dans ce cas précis, strFind représente le caractère $
	newPos = intPos + 1
	If intPos > 0 Then
	  Do
	    newPos = newPos - 1  ' On parcourt la chaîne en sens inverse à partir du caractère $ jusqu'à trouver un espace
	    Mot = Mid(strIn, newPos, 1) & Mot
	  Loop Until Mid(strIn,newPos,1) = " "
	  newPos = intPos 
	  Do
	    newPos = newPos + 1  ' On parcourt la chaîne en sens direct à partir du caractère suivant le $ jusqu'à trouver un espace
	    Mot = Mot & Mid(strIn, newPos, 1)
	  Loop Until Mid(strIn,newPos,1) = " "
	End If 
	  Recherche  = Mot
End Function
MsgBox Recherche("Je cherche le mot contenant le car$actère DOLLAR", "$")

Il suffit de l'adapter dans ton environnement

[hamza.rezgui]

pour votre aide ,j'ai enfin utilisé les expressions régulière de vbs ,cette fonction retourne les mots qui sont de ce format «x$x»

http://tahe.developpez.com/web/vbscript/?page=page_4

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
 
Function extractString(txt)
  extractString=""
  Dim Model
  Dim Correspondances, i
  Set Model=New RegExp
  'Extract «x$x» & «xLOR_MESx»
  Model.Pattern="«[^«»]*\$[^«»]*»"
  Model.Global=True
  Set Correspondances=Model.Execute(txt)
  'MsgBox Correspondances.Count
  If Correspondances.Count<>0 Then
    For i=0 To Correspondances.Count-1
        extractString=extractString&Correspondances(i).value
    Next
  End If