PureBasic

Je remets les expressions régulière sur le tapis mais j'ai du mal avec la syntaxe..

J'aimerai que mon prog trouve le mot "chien" dans dans la phrase MotDico$ (et donc le mot iench)

Code : Tout sélectionner

mot1$="chien"
MotDico$="iench"+Chr(10)+"chat"+Chr(10)+"poule"+Chr(10)+"truie"

  If CreateRegularExpression(0, "["+mot1$+"]")
    Dim Result$(0)
    NbFound = ExtractRegularExpression(0, MotDico$, Result$())
    For k = 0 To NbFound-1
      Debug Result$(k)
    Next
  Else
    Debug RegularExpressionError()
  EndIf

En gros j'ai des doutes concernant la syntaxe de CreateRegularExpression(0, "["+mot1$+"]")

Code : Tout sélectionner

mot1$="chien"
MotDico$=Chr(10)+"iench"+Chr(10)+"chat"+Chr(10)+"poule"+Chr(10)+"truie"+Chr(10)+"tiench"+Chr(10)+"chien"+Chr(10)+"cheen"+Chr(10)

If CreateRegularExpression(0, "["+Chr(10)+"]["+mot1$+"]{"+Str(Len(mot1$))+","+Str(Len(mot1$))+"}["+Chr(10)+"]")
	Dim Result$(0)
	NbFound = ExtractRegularExpression(0, MotDico$, Result$())
	For k = 0 To NbFound-1
		Debug Result$(k)
	Next
Else
	Debug RegularExpressionError()
EndIf

PureBasic

Exemples d'utilisation des expressions régulières