Soyez le premier à donner votre avis sur cette source.
Vue 3 511 fois - Téléchargée 228 fois
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
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 ...
Puis comme le dit SHIVA, Replace n'existe pas en VB5 et ce bout de code peux substituer a la fonction replace....
ça fait un prog + compliqué mais je te suggères de faire le découpage et le remplacement ds la même boucle
@ +
i = Instr(1, txt, mot)
Alors y'a plus simple que ton code assez compliqué à mes yeux ...
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 !
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.