zefri
Messages postés33Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention11 décembre 2002
-
1 juin 2002 à 18:29
cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 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.
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és2670Date d'inscriptionvendredi 25 janvier 2002StatutMembreDerniè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és24Date d'inscriptionmercredi 5 septembre 2001StatutMembreDerniè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és367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 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és2670Date d'inscriptionvendredi 25 janvier 2002StatutMembreDerniè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 !
cs_SHIVA
Messages postés97Date d'inscriptionvendredi 28 décembre 2001StatutMembreDernière intervention 1 décembre 2003 1 juin 2002 à 23:01
en vb5 la commande replace n'existe pas
cs_muad-dib
Messages postés103Date d'inscriptionlundi 9 avril 2001StatutMembreDernière intervention16 juillet 2008 1 juin 2002 à 20:56
et encore un truc complètement inutile et mal codé ..
zefri
Messages postés33Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention11 décembre 2002 1 juin 2002 à 18:29
Test :
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.
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 !