Remplacer les vbcrlf par un | comment faire

Zmasteur
Messages postés
54
Date d'inscription
mardi 31 juillet 2001
Statut
Membre
Dernière intervention
5 juin 2011
- 8 août 2002 à 07:19
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
- 8 août 2002 à 11:54
je voudrais savoir comment ramplacer tout les vbcrlf d'un textbox en "|".
jai essayer cet méthod et sans suces:

Public Function Cryptemsg(text As String) As String
Dim i As Integer
Dim X, xx, xxx
For i = 1 To Len(text)
X = Mid$(text, i, 1)
If X = vbcrlf Then
xx = xx & "|"
Else
xx = xx & X
End If
Cryptemsg = xx
Next i
End Function

comment faire ?????????

2 réponses

cs_FatBoy
Messages postés
42
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
12 novembre 2005

8 août 2002 à 10:20
A la place de vbcrtlf essaye
X=chr(13) & chr(10)
ou
asc(X)=13

à la place du pipe mets le caractère acsii. Peut être que vb ne le reconnait pas comme une caractère.
FatBoy
0
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
8 août 2002 à 11:54
Public Function Cryptemsg(text As String) As String
Dim i As Integer
Dim X, xx
For i = 1 To Len(text)
X = Mid$(text, i, 1)
If X = Chr(13) Then
xx = xx & "|"
i = i + 1 ' (**)
Else
xx = xx & X
End If
Next i
Cryptemsg = xx
End Function

(**) parce-que VbCrLF = 2 caractères
'VbCrLF = chr(13) & chr(10)
On remplace chr(13) par "|" et on saute chr(10)
0