Sujet Précédent Sujet Suivant

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 ?????????
A voir également:

2 réponses

Réponse 1 / 2
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
Réponse 2 / 2
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
Rejoignez-nous