SUPPRESSION DE CARACTÈRES DANS UN STRING
Seth77
Messages postés
572
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
4 mai 2020
-
22 sept. 2005 à 20:59
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 8 juin 2006 à 11:57
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 8 juin 2006 à 11:57
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/33908-suppression-de-caracteres-dans-un-string
https://codes-sources.commentcamarche.net/source/33908-suppression-de-caracteres-dans-un-string
8 juin 2006 à 11:57
une solution possible :
Private Const ES_UPPERCASE As Long = &H8&
Private Const GWL_STYLE As Long = -16
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub Form_Load()
SetWindowLong Text1.hwnd, GWL_STYLE, ES_UPPERCASE Or (GetWindowLong(Text1.hwnd, GWL_STYLE))
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStrB("1234567890ABCDEFabcdef" & Chr$(8) & Chr$(24) & Chr$(22) & Chr$(3), Chr$(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub
attention, tu peux ici coller des valeurs interdites...
8 juin 2006 à 11:55
il faut traiter la valeur ascii dans la fonction keypress .... il faut, je crois, mettre ascii = 0 pour les caracteres qui ne sont pas permis !
8 juin 2006 à 11:53
8 juin 2006 à 11:42
je débute et je voudrais savoir comment faire pour écrire seulement "1234567890ABCDEF" et que les autres caractères ne s'écrivent pas m^me si on appuie dessus...
merci
23 févr. 2006 à 23:47
Function Strip(ByVal strA As String, ByVal ParamArray varZoek() As String)
' Merci Jean Elens
Dim intTel As Integer
Dim strNew As String
Dim varteken As Object
Dim strTekst As String
strTekst = strA
For Each varteken In varZoek
strNew = ""
'For intTel = 1 To Len(strTekst)
' If Mid(strTekst, intTel, 1) <> varteken Then
' strNew = strNew & Mid(strTekst, intTel, 1)
' End If
'Next
strNew = Replace(strTekst, varteken, "")
strTekst = strNew
MessageBox.Show(strNew, "Strip", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Next
Strip = strNew
End Function
23 févr. 2006 à 10:21
tu ne va pas me faire croire qu'il n'existe pas de fonction Replace !!!
23 févr. 2006 à 09:45
Je l'ai adapté pour VisualBasic 2005 Express edition, cela donne:
Function Strip(ByVal strA As String, ByVal ParamArray varZoek() As String)
Dim intTel As Integer
Dim strNew As String
Dim varteken As Object
Dim strTekst As String
strTekst = strA
For Each varteken In varZoek
strNew = ""
For intTel = 1 To Len(strTekst)
If Mid(strTekst, intTel, 1) <> varteken Then
strNew = strNew & Mid(strTekst, intTel, 1)
End If
Next
strTekst = strNew
MessageBox.Show(strNew, "Strip", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Next
Strip = strNew
End Function
24 sept. 2005 à 20:53
24 sept. 2005 à 16:54
En effet, la fonction "replace" de VB6 améliore le code. Donc ceux qui ont VB6 pourront facilement l'améliorer. (voir code de draluorg)
Pour les noms de variables, je les ai utilisées dans ma langue (néerlandais) mais j'ai un VB anglais, et de temps en temps, je mets un mot en EN. Voilà l'explication.
23 sept. 2005 à 15:39
A part ce petit problème d'esthétique, rien à redire...
23 sept. 2005 à 13:46
23 sept. 2005 à 13:44
23 sept. 2005 à 13:41
23 sept. 2005 à 13:38
a = "salut"
do until instr(1,a,"l") = 0
StrDel a, "l"
loop
23 sept. 2005 à 13:18
ou alors j'ai rien compris lol ;)
@+
23 sept. 2005 à 13:13
(dont les utilisateurs de VB5 ne disposent pas)
23 sept. 2005 à 01:17
toto = "azè-e(r(tè-y"
MsgBox Strip(toto, "(", "è", "-") ' donne "azerty"
Function Strip(strA As String, ParamArray varZoek()) As String
Dim i As Long
For i = 0 To UBound(varZoek)
strA = Replace(strA, varZoek(i), vbNullString)
Next i
Strip = strA
End Function
non ?
22 sept. 2005 à 23:18
> msgbox Replace("salut", "t", "")
****************************************
et une ptite fonction vite fé
Function StrDel(Str As String, DelChar) As String
For a = 1 To Len(Str)
If Mid(Str, a, 1) = DelChar Then
StrDel = Mid(Str, 1, a - 1) & Mid(Str, a + 1)
End If
Next a
End Function
22 sept. 2005 à 22:58
22 sept. 2005 à 20:59
pas mal, mais il y avait plus simple ... en utilisant la fonction Replace !