recherche dans un texte

Version imprimable

03/01/2014, 17h38
hamza.rezgui

recherche dans un texte

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.
03/01/2014, 17h48
hackoofr

:salut:
Postez votre code et :tagcode:
:merci:
03/01/2014, 17h56
hamza.rezgui
Code:

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
03/01/2014, 17h59
hackoofr

Citation:

DesignStep.StepExpectedResult

Représente quoi exactement est-ce-que vous travaillez en Vbscript :koi:
03/01/2014, 18h03
hamza.rezgui

Citation:

Envoyé par hackoofr

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

je travail dans le développement d'un module pour HP ALM Quality Center 11 en utilisant l'APi OTA en Vbscript
03/01/2014, 18h09
hamza.rezgui

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

En VBScript, on peut faire ceci :

Code:

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

:merci: 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:

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

:bravo: