validation de texte et recherche de mot dans une chaine de caractère

Question

Bonjour, voici mon probl&#232;me
je dois saisir du texte dans un textbox, mais je dois v&#233;rifier que certain mot ne se trouve pas dans la chaine de caract&#232;re. Si les mot interdits sont dans le textbox, je dois avertir l'utilisateur que ces mot ne sont pas permis et il doit recommencer.
Pouvez-vous m'aider svp!!

Groovygirl

jpleroisse · Answer

Bonsoir,

Voici un exemple.



Private Sub Text1_Change()

If Text1.Text = "Mais" Then

    MsgBox "Ce mot est interdit ! recommencez.", vbCritical, "Mots interdits"

Text1.Text = ""

Text1.SetFocus

End If

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

cs_Jack · Answer

Salut
Non, il faut tester que le mot interdit ne soit pas dans la chaine.
Je suppose que dans la textebox on peut avoir plusieurs mots ET qu'il y a plusieurs mots interdits.
Donc, il faut compl&#233;ter tout &#231;a :
-1- Mettre les mots interdits dans un tableau
-2- Rechercher chacun des mots dans la TextBox
For r = 0 To UBound(Tableau)
   If UCase(TextBox.Text) Like ("*" &  UCase(Tableau(r)) & "*") Then
      ' MOt interdit trouv&#233; ... blablabla
      Exit For
   End If
Next r

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

NB : Il faudra penser &#224; chercher aussi les mots interdits en rempla&#231;ant les accents des mots par de simples lettres non accentu&#233;es pour que ce soit vramient efficace.

SkyRocKo · Answer

Salut Groovygirl, Je t'ai concocté un code qui fonctionne impec Tu n'as qu'à créer un TextBox nommé 'Text1" et copier-coller le code ci-dessous : '''DANS UNE FORM Const sKeyWords As String = "Hot;doG;snooPy;SkyRocKo" ' Liste des mots clé Const sSeparate = ";" Dim KeyWord(25) As String ' Le fameux tableau Dim bForbidden As Boolean ' Saisie correcte ?? Private Sub Text1_Change() Dim Count As Byte 'On met les mots clé dans un tableau Call StrDecompose(sKeyWords, KeyWord(), sSeparate, , , , Count) 'On vérifie si la saisie est correcte bForbidden = IsForbidden(Text1.Text, KeyWord(), Count) 'Ici tu places l'action à effectuer... If bForbidden Then MsgBox "Valeur interdite !", vbCritical, "ERROR !!!" End Sub ''''DANS UN MODULEPublic Function IsForbidden(ByVal sText As String, ByRef sValue() As String, ByVal Count, Optional ByVal StartIndex 0, Optional ByVal Compare As VbCompareMethod vbTextCompare) As Boolean Dim a For a = StartIndex To (Count - 1) If InStr(1, sText, sValue(a), Compare) > 0 Then IsForbidden = True Exit For End If Next a End Function Public Sub StrDecompose(ByVal strSource As String, ByRef strDest() As String, Optional ByVal strSeparate As String ";", Optional ByVal Compare As VbCompareMethod vbTextCompare, Optional ByVal Start = 1, Optional ByVal StartIndex = 0, Optional ByRef Count) Dim a, Pos strSource = Mid$(strSource, Start) 'Nombre d'itérations Count = Len(strSource) - Len(Replace$(strSource, strSeparate, "", , , Compare)) + IIf(Len(sKeyWords) >= 1, 1, 0) 'Continue? If Count <= 1 Then strDest(StartIndex) = strSource Exit Sub End If 'Remplie le tableau If Right$(strSource, Len(strSeparate)) <> strSeparate Then strSource = strSource & strSeparate For a = 1 To Len(strSource) Pos InStr(a, strSource, strSeparate): If Pos 0 Then Exit For strDest(StartIndex) = Mid$(strSource, a, Pos - a) StartIndex = StartIndex + 1 a = Pos Next End Sub Si tu as des questions, n'hésites pas SkyRocKo

Validation de texte et recherche de mot dans une chaine de caractère

4 réponses

Discussions similaires