Supprimer un mot dans un texte

Télécharger le projet
Commenter

Description

Voici un bout de code qui permet de supprimer un mot dans un texte ...
J'ai fait ce code en reponse a une question sur le forum ....

Source / Exemple : 


Private Sub Command1_Click()
res = vbNullString
txt = LCase(Text1.Text)
mot = LCase(Text2.Text)
Dim MyTab() As String
MyTab = Split(txt, " ")

For i = 0 To UBound(MyTab)
If MyTab(i) = mot Then
 For a = 0 To i - 1
 res = res & MyTab(a) & " "
 Next a
 
 For x = i + 1 To UBound(MyTab)
 res = res & MyTab(x) & " "
 Next x
 
End If
Next i

Text3.Text = res
If res = vbNullString Then MsgBox "Cette phrase ne contient pas ce mot !", vbCritical, "Mot introuvable"

End Sub

Conclusion :


Toutes remarques sera la bienvenue:]
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DeAtHCrAsH)