1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Texte
  5. Supprimer un mot dans un texte

Supprimer un mot dans un texte

Soyez le premier à donner votre avis sur cette source.

Vue 3 826 fois - Téléchargée 239 fois

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

Ajouter un commentaire Commentaires
cs_Zeroc00l
Messages postés
367
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010
23 juin 2002 à 19:13
pk ne pas mettre :

Dim Existait As Boolan
Dim TXT As string
Dim Mot As String
Dim Temp

TXT = Lcase(text1.text)
Mot = Lcase(text2.text) & " "

While InStr(1, TXT, Mot)
Existait = True
Temp = InStr(1, TXT, Mot)
TXT = Left(TXT, Temp) & Right(TXT, Len(TXT)-Len(Mot)-Temp)
Wend

if not(Existait) then Msgbox "Cette phrase ne contient pas ce mot !", vbCritical, "Mot introuvable"

C'est plus rapide et plus simple à mes yeux ... Mais enfin j'ai pas testé ce code ...
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
4 juin 2002 à 14:56
Ralalalala ... j'ai jamais dis que je codais pour du VB5 ... J'ai dis que si j'avais fait ce bout de code c'etait suite a la demande d'un gars ayant vb6 qui ma demandé comment recuperer les mots d'une phrase en sachant que l'espace etait utilisé comme separateur ... Et ensuite il m'a demandé comment suprimer ce mot une fois qu'on l'avait trouvé ....
Puis comme le dit SHIVA, Replace n'existe pas en VB5 et ce bout de code peux substituer a la fonction replace....
cs_revivall
Messages postés
24
Date d'inscription
mercredi 5 septembre 2001
Statut
Membre
Dernière intervention
7 août 2003
3 juin 2002 à 21:21
je voudrais pas te critiquer mais si tu fais des progs pour VB5 fais le en entier car Split() n'existe pas sur VB5 si je me trompes pas !
ça fait un prog + compliqué mais je te suggères de faire le découpage et le remplacement ds la même boucle
@ +
cs_Zeroc00l
Messages postés
367
Date d'inscription
lundi 1 avril 2002
Statut
Membre
Dernière intervention
11 février 2010
2 juin 2002 à 00:49
Si dans VB5 t'as la fonction :
i = Instr(1, txt, mot)
Alors y'a plus simple que ton code assez compliqué à mes yeux ...
DeAtHCrAsH
Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
1 juin 2002 à 23:34
merci SHIVA....
En plus de cela ce code a été fait pour une personne qui ma demandé une maniere pour supprimer un mot dans une phrase en utilisant l'espace comme separateur ...

Sinon a part ca je repete qu'il serai gentil de respecter les codeurs ainsi que leur code ...

Bonne prog @LL
A++

DeAtH_-_CrAsH

P.S Tout le monde n'a pas vb5 et les codes de ce genre sont la pour but instructif ...
Je ne fais pas des programmes pour me la peter comme certains ....
Je code pour mon plaisirs et j'emmerde toute les grandes gueules qui ne sont la que pour critiquer les sources des gens par jalousie !
Afficher les 8 commentaires
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)