ENLEVER UN LOGO TEXTE D'UN FICHIER VIDEO OU IMAGE OU FLASH ET D'AUTRE

Commentaire de econs le 07/08/2006 13:22:54 administrateur CS

Salut,

"Par pitié se programme n’est pas contraire a la charte vbfrance.com"
La pitié n'a rien à faire ici. C'est conforme, ou çà ne l'est pas.


-----------------------------------------------
Passons en revue le code :


Private Sub Command2_Click()
a = InputBox("Entrez la phrase ou le mot a supprimer", "Supprimer")
z = text1.Find(a, , , 4)
Text2 = a
Text2.SetFocus

If z <> -1 Then
For i = 1 To Text2.SelLength
Text3 = " "
text1.SelText = Text3
Next i
End If
DoEvents

End Sub


Dans le texte que tu as placé dans Text1 (a priori, le contenu de ton fichier .swf), tu pars à la recherche du mot entré dans l'inputBox (variable a).
Ce mot, tu le mets dans Text2 (inutile de passer par un TextBox, mais pourquoi pas ?).
Ensuite, tu sélectionnes une portion de ce mot à la souris ( ??? sinon pourquoi utiliser selLength ??? ) et s'il y a 23 lettres sélectionnées dans Text2 (par exemple), alors tu mets " " 23 fois dans Text3. Mais comme il n'y a pas de concaténation, au final, Text3 = " ". Donc, la boucle ne sert à rien. En plus, dans cette boucle, tu remplaces l'élément sélectionné dans Text1 (Ah merde .. fallait sélectionner quelque chose dans Text1 (selText) !!) par " ", le tout 23 fois. Autant dire que seule la première fonctionnera.

Le DoEvents en fin de Sub ne sert à rien. C'est utile pour récupérer la main pendant de longues boucles.


Ton code pourrait donc se résumer en peu de choses :

Private Sub Command2_Click()
a = InputBox("Entrez la phrase ou le mot a supprimer", "Supprimer")
Text1.Text = Replace(Text1.Text,a," ")
End Sub

Pour des soucis d'esthétique, dans le Command3_Click, le cmd.ShowOpen devrait être remplacé par cmd.ShowSave
C'est un enregistrement que tu fais, pas une ouverture de fichier.