Remplacer les vbcrlf par un | comment faire

Signaler
Messages postés
54
Date d'inscription
mardi 31 juillet 2001
Statut
Membre
Dernière intervention
5 juin 2011
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
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

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

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
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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)