SUPPRIMER UN MOT DANS UN TEXTE
zefri
Messages postés
33
Date d'inscription
samedi 1 juin 2002
Statut
Membre
Dernière intervention
11 décembre 2002
-
1 juin 2002 à 18:29
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
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3507-supprimer-un-mot-dans-un-texte
https://codes-sources.commentcamarche.net/source/3507-supprimer-un-mot-dans-un-texte
23 juin 2002 à 19:13
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 ...
4 juin 2002 à 14:56
Puis comme le dit SHIVA, Replace n'existe pas en VB5 et ce bout de code peux substituer a la fonction replace....
3 juin 2002 à 21:21
ça fait un prog + compliqué mais je te suggères de faire le découpage et le remplacement ds la même boucle
@ +
2 juin 2002 à 00:49
i = Instr(1, txt, mot)
Alors y'a plus simple que ton code assez compliqué à mes yeux ...
1 juin 2002 à 23:34
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 !
1 juin 2002 à 23:01
1 juin 2002 à 20:56
1 juin 2002 à 18:29
Text1.text "Tout, tout, absolument tout.", Text1.text"tout".
Résultat : "Cette phrase ne contient pas ce mot".
En effet, MyTab(i) sera égal à "tout," qui n'est pas la même chose que "tout".
Une autre remarque c'est que le texte au final se retrouve tout en minuscules.
C'est donc écrire beaucoup de code pour pas grand chose, si tu connais la fonction Replace, elle fait le boulot toute seule.
Text3.Text = Replace( LCase(Text1.Text), LCase(Text2.Text), "")
Ca donne un code un peu plus simple !