Détecter un caractère "spécial" (<=)
Fermé
mdubout
Messages postés
2
Date d'inscription
vendredi 11 août 2006
Statut
Membre
Dernière intervention
11 août 2006
-
11 août 2006 à 10:25
mdubout Messages postés 2 Date d'inscription vendredi 11 août 2006 Statut Membre Dernière intervention 11 août 2006 - 11 août 2006 à 19:18
mdubout Messages postés 2 Date d'inscription vendredi 11 août 2006 Statut Membre Dernière intervention 11 août 2006 - 11 août 2006 à 19:18
A voir également:
- Détecter un caractère "spécial" (<=)
- Caractere special - Guide
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Comment détecter un traceur sur téléphone - Accueil - Confidentialité
- Caractere speciaux mac - Guide
1 réponse
Essaies ça !
'besoin :
' 6 champs text nommés de text1, text2, text3, ... à text6
' 2 boutons
Private Sub Command1_Click() ' on consigne dans un fichier txt via la fonction vireLesCaracteresSpeciaux("xxx")
' consignation des champs text1, text2 et text3
f% = FreeFile
fic$ = "c:\temp\testcp.txt"
Open fic For Output As #f
Print #f, vireLesCaracteresSpeciaux(Text1.Text)
Print #f, vireLesCaracteresSpeciaux(Text2.Text)
Print #f, vireLesCaracteresSpeciaux(Text3.Text)
Close
End Sub
Private Sub Command2_Click() ' lecture du fichier et récupération dans les 3 autres champs text (4, 5 et 6)
f% = FreeFile
fic$ = "c:\temp\testcp.txt"
Dim buffer() As String
ReDim buffer(0 To 0)
Open fic For Input As #f
Do While Not EOF(1)
ReDim Preserve buffer(LBound(buffer) To UBound(buffer) + 1)
Line Input #f, buffer(UBound(buffer))
Loop
Close
Text4 = buffer(1)
Text5 = buffer(2)
Text6 = buffer(3)
End Sub
Function vireLesCaracteresSpeciaux(parm As String) As String
'init
Dim cp(2)
cp(0) = ">"
cp(1) = "<"
cp(2) = "="
vireLesCaracteresSpeciaux = ""
For i = 1 To Len(parm) ' boucle sur la longueur du parametre d'entree
For j = LBound(cp) To UBound(cp) ' boucle sur le tableau des caractères spéciaux à virer
parm = Replace(parm, cp(j), "") ' on remplace les caracteres spéciaux par des blancs
Next j
Next i
parm = Replace(parm, " ", " ") ' au acs où il resterait deux blancs collés on les remplace par un seul
vireLesCaracteresSpeciaux = Trim(parm)
End Function
Cdt
'besoin :
' 6 champs text nommés de text1, text2, text3, ... à text6
' 2 boutons
Private Sub Command1_Click() ' on consigne dans un fichier txt via la fonction vireLesCaracteresSpeciaux("xxx")
' consignation des champs text1, text2 et text3
f% = FreeFile
fic$ = "c:\temp\testcp.txt"
Open fic For Output As #f
Print #f, vireLesCaracteresSpeciaux(Text1.Text)
Print #f, vireLesCaracteresSpeciaux(Text2.Text)
Print #f, vireLesCaracteresSpeciaux(Text3.Text)
Close
End Sub
Private Sub Command2_Click() ' lecture du fichier et récupération dans les 3 autres champs text (4, 5 et 6)
f% = FreeFile
fic$ = "c:\temp\testcp.txt"
Dim buffer() As String
ReDim buffer(0 To 0)
Open fic For Input As #f
Do While Not EOF(1)
ReDim Preserve buffer(LBound(buffer) To UBound(buffer) + 1)
Line Input #f, buffer(UBound(buffer))
Loop
Close
Text4 = buffer(1)
Text5 = buffer(2)
Text6 = buffer(3)
End Sub
Function vireLesCaracteresSpeciaux(parm As String) As String
'init
Dim cp(2)
cp(0) = ">"
cp(1) = "<"
cp(2) = "="
vireLesCaracteresSpeciaux = ""
For i = 1 To Len(parm) ' boucle sur la longueur du parametre d'entree
For j = LBound(cp) To UBound(cp) ' boucle sur le tableau des caractères spéciaux à virer
parm = Replace(parm, cp(j), "") ' on remplace les caracteres spéciaux par des blancs
Next j
Next i
parm = Replace(parm, " ", " ") ' au acs où il resterait deux blancs collés on les remplace par un seul
vireLesCaracteresSpeciaux = Trim(parm)
End Function
Cdt
11 août 2006 à 19:18
mais je voudrais préciser ce que j'ai mal formuler dans ma question initiale :
je ne souhaite pas supprimer les caractère spéciaux
Je veux les détecter pour les remplacer par 1 ou 2 carctère ascii avant de les coller dans mon fichier (.txt) afin de faire la manip inverse quand le fichier (.txt) aura été traité
merci