Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut,
Non pas avec replace mais on purrait imaginer un autre code pour faire ca :
Private Sub Form_Load() Dim strIn As String, strOut As String Dim sChar As String * 1 strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn) sChar = Mid$(strIn, i, 1) If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut = strOut & sChar Next MsgBox strOut
End Sub Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt & ";", vbTextCompare) <> 0) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
lou a écrit :
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click() ' remplacer le point par rien: Libelle = Replace(Libelle, ".", "") ' remplacer le & par rien: Libelle = Replace(Libelle, "&", "") ' remplacer le , par rien: Libelle = Replace(Libelle, ",", "") ' remplacer le ' par rien: Libelle = Replace(Libelle, "'", "") ' remplacer le Les par rien: Libelle = Replace(Libelle, "Les", "") ' remplacer le ? par rien: Libelle = Replace(Libelle, "?", "") ' remplacer le : par rien: Libelle = Replace(Libelle, ":", "") ' remplacer le / par rien: Libelle = Replace(Libelle, "/", "") ' remplacer le * par rien: Libelle = Replace(Libelle, "*", "") ''''''''''''enleve espaces du Libelle'''''''''''' Libelle = Replace([Libelle], " ", "")
Non pas avec replace mais on purrait imaginer un autre code pour faire ca :
Private Sub Form_Load()
Dim strIn As String, strOut As String
Dim sChar As String * 1
strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn)
sChar = Mid$(strIn, i, 1)
If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut = strOut
& sChar
Next
MsgBox strOut
End Sub
Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean
EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt & ";",
vbTextCompare) <> 0)
End Function
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
lou <colluluigi@skynet.be> a écrit :
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click()
' remplacer le point par rien:
Libelle = Replace(Libelle, ".", "")
' remplacer le & par rien:
Libelle = Replace(Libelle, "&", "")
' remplacer le , par rien:
Libelle = Replace(Libelle, ",", "")
' remplacer le ' par rien:
Libelle = Replace(Libelle, "'", "")
' remplacer le Les par rien:
Libelle = Replace(Libelle, "Les", "")
' remplacer le ? par rien:
Libelle = Replace(Libelle, "?", "")
' remplacer le : par rien:
Libelle = Replace(Libelle, ":", "")
' remplacer le / par rien:
Libelle = Replace(Libelle, "/", "")
' remplacer le * par rien:
Libelle = Replace(Libelle, "*", "")
''''''''''''enleve espaces du Libelle''''''''''''
Libelle = Replace([Libelle], " ", "")
Non pas avec replace mais on purrait imaginer un autre code pour faire ca :
Private Sub Form_Load() Dim strIn As String, strOut As String Dim sChar As String * 1 strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn) sChar = Mid$(strIn, i, 1) If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut = strOut & sChar Next MsgBox strOut
End Sub Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt & ";", vbTextCompare) <> 0) End Function
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
lou a écrit :
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click() ' remplacer le point par rien: Libelle = Replace(Libelle, ".", "") ' remplacer le & par rien: Libelle = Replace(Libelle, "&", "") ' remplacer le , par rien: Libelle = Replace(Libelle, ",", "") ' remplacer le ' par rien: Libelle = Replace(Libelle, "'", "") ' remplacer le Les par rien: Libelle = Replace(Libelle, "Les", "") ' remplacer le ? par rien: Libelle = Replace(Libelle, "?", "") ' remplacer le : par rien: Libelle = Replace(Libelle, ":", "") ' remplacer le / par rien: Libelle = Replace(Libelle, "/", "") ' remplacer le * par rien: Libelle = Replace(Libelle, "*", "") ''''''''''''enleve espaces du Libelle'''''''''''' Libelle = Replace([Libelle], " ", "")
Dans la procédure Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" _ & sElt & ";", vbTextCompare) <> 0) End Function
On peut virer le <>0 Parce que 0 = False et <> 0 = true
Non pas avec replace mais on purrait imaginer un autre code pour faire ca :
Private Sub Form_Load() Dim strIn As String, strOut As String Dim sChar As String * 1 strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn) sChar = Mid$(strIn, i, 1) If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut > strOut & sChar Next MsgBox strOut
End Sub Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt & ";", vbTextCompare) <> 0) End Function
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click() ' remplacer le point par rien: Libelle = Replace(Libelle, ".", "") ' remplacer le & par rien: Libelle = Replace(Libelle, "&", "") ' remplacer le , par rien: Libelle = Replace(Libelle, ",", "") ' remplacer le ' par rien: Libelle = Replace(Libelle, "'", "") ' remplacer le Les par rien: Libelle = Replace(Libelle, "Les", "") ' remplacer le ? par rien: Libelle = Replace(Libelle, "?", "") ' remplacer le : par rien: Libelle = Replace(Libelle, ":", "") ' remplacer le / par rien: Libelle = Replace(Libelle, "/", "") ' remplacer le * par rien: Libelle = Replace(Libelle, "*", "") ''''''''''''enleve espaces du Libelle'''''''''''' Libelle = Replace([Libelle], " ", "")
Dans la procédure
Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean
EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" _
& sElt & ";", vbTextCompare) <> 0)
End Function
On peut virer le <>0
Parce que 0 = False
et <> 0 = true
"ng" <ng@babeuk.net> a écrit dans le message de
news:OOZu2M4AEHA.2476@TK2MSFTNGP12.phx.gbl
Salut,
Non pas avec replace mais on purrait imaginer un autre code pour
faire ca :
Private Sub Form_Load()
Dim strIn As String, strOut As String
Dim sChar As String * 1
strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn)
sChar = Mid$(strIn, i, 1)
If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut > strOut & sChar
Next
MsgBox strOut
End Sub
Public Function EstDansLaListe(sElt As String, sListe As String) As
Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt &
";", vbTextCompare) <> 0)
End Function
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click()
' remplacer le point par rien:
Libelle = Replace(Libelle, ".", "")
' remplacer le & par rien:
Libelle = Replace(Libelle, "&", "")
' remplacer le , par rien:
Libelle = Replace(Libelle, ",", "")
' remplacer le ' par rien:
Libelle = Replace(Libelle, "'", "")
' remplacer le Les par rien:
Libelle = Replace(Libelle, "Les", "")
' remplacer le ? par rien:
Libelle = Replace(Libelle, "?", "")
' remplacer le : par rien:
Libelle = Replace(Libelle, ":", "")
' remplacer le / par rien:
Libelle = Replace(Libelle, "/", "")
' remplacer le * par rien:
Libelle = Replace(Libelle, "*", "")
''''''''''''enleve espaces du Libelle''''''''''''
Libelle = Replace([Libelle], " ", "")
Dans la procédure Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" _ & sElt & ";", vbTextCompare) <> 0) End Function
On peut virer le <>0 Parce que 0 = False et <> 0 = true
Non pas avec replace mais on purrait imaginer un autre code pour faire ca :
Private Sub Form_Load() Dim strIn As String, strOut As String Dim sChar As String * 1 strIn = "Ceci, est ; un test ?? ;-)"
For i = 1 To Len(strIn) sChar = Mid$(strIn, i, 1) If Not EstDansLaListe(sChar, ".;&;,;';?;:;/; ;*;") Then strOut > strOut & sChar Next MsgBox strOut
End Sub Public Function EstDansLaListe(sElt As String, sListe As String) As Boolean EstDansLaListe = (InStr(1, ";" & sListe & ";", ";" & sElt & ";", vbTextCompare) <> 0) End Function
bonjour
sur clic j'execute cette action
Private Sub Commande70_Click() ' remplacer le point par rien: Libelle = Replace(Libelle, ".", "") ' remplacer le & par rien: Libelle = Replace(Libelle, "&", "") ' remplacer le , par rien: Libelle = Replace(Libelle, ",", "") ' remplacer le ' par rien: Libelle = Replace(Libelle, "'", "") ' remplacer le Les par rien: Libelle = Replace(Libelle, "Les", "") ' remplacer le ? par rien: Libelle = Replace(Libelle, "?", "") ' remplacer le : par rien: Libelle = Replace(Libelle, ":", "") ' remplacer le / par rien: Libelle = Replace(Libelle, "/", "") ' remplacer le * par rien: Libelle = Replace(Libelle, "*", "") ''''''''''''enleve espaces du Libelle'''''''''''' Libelle = Replace([Libelle], " ", "")
On peut mettre autant de replace en ligne que l'on veut
-- Pozdrawiam Adam Pietrasiewicz
ng
Salut,
A priori si, mais je te déconseille l'emploi de cette méthode car dans ton cas tu as beaucoup de replace, et ça peut devenir tres vite dtifficile à relire :/
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
lou a écrit :
bonjour et MERCI j'ai essayé il ne veux pas plus de deux ????
Libelle = Replace(Replace(Libelle,".",""),"&","")
"Adam Pietrasiewicz" a écrit dans le message de news:
W sobotê 06-marca-2004 o godzinie 14:50:37 lou napisa³/a
On peut mettre autant de replace en ligne que l'on veut
-- Pozdrawiam Adam Pietrasiewicz
Salut,
A priori si, mais je te déconseille l'emploi de cette méthode car dans ton
cas tu as beaucoup de replace, et ça peut devenir tres vite dtifficile à
relire :/
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
lou <colluluigi@skynet.be> a écrit :
bonjour et MERCI
j'ai essayé il ne veux pas plus de deux ????
Libelle = Replace(Replace(Libelle,".",""),"&","")
"Adam Pietrasiewicz" <adpiet@polbox.com> a écrit dans le message de
news:YNCGBC06032004150410.nqcvrg@cbyobk.pbz...
W sobotê 06-marca-2004 o godzinie 14:50:37 lou napisa³/a
A priori si, mais je te déconseille l'emploi de cette méthode car dans ton cas tu as beaucoup de replace, et ça peut devenir tres vite dtifficile à relire :/
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
lou a écrit :
bonjour et MERCI j'ai essayé il ne veux pas plus de deux ????
Libelle = Replace(Replace(Libelle,".",""),"&","")
"Adam Pietrasiewicz" a écrit dans le message de news:
W sobotê 06-marca-2004 o godzinie 14:50:37 lou napisa³/a
On peut mettre autant de replace en ligne que l'on veut
-- Pozdrawiam Adam Pietrasiewicz
François Picalausa
Bonjour/soir,
Dans mon post, je te montrais un exemple avec 3: Libelle = Replace(Replace(Replace(Libelle, ".", ""), "?", ""), ",", "") On peut en mettre (presque) autant qu'on veut (dans la limite de la longueur de la ligne)
On peut mettre autant de replace en ligne que l'on veut
-- Pozdrawiam Adam Pietrasiewicz
Bonjour/soir,
Dans mon post, je te montrais un exemple avec 3:
Libelle = Replace(Replace(Replace(Libelle, ".", ""), "?", ""), ",", "")
On peut en mettre (presque) autant qu'on veut
(dans la limite de la longueur de la ligne)
Dans mon post, je te montrais un exemple avec 3: Libelle = Replace(Replace(Replace(Libelle, ".", ""), "?", ""), ",", "") On peut en mettre (presque) autant qu'on veut (dans la limite de la longueur de la ligne)
