CrLf dans un textbox

Bonjour,

Dans un projet d'interface de communication, les chaînes de caractères reçues sont transférées dans un TextBox Multilignes; ces chaînes contiennent des caractères de contrôle CrLf , mais ceux-ci ne déclencent pas de saut de ligne dans mon TextBox.

Je me retrouve donc avec les chaines de caractères en "bout à bout" y compris la visualisation (sous forme de petits carrés) des caractères de contrôle.

Comment faire pour afficher mes chaînes de caractères bien séparées par des saut de ligne dans le TextBox ?
Y a-t-il une astuce , ou bien ai-je oublié quelque chose ?...

Merci de la part d'un débutant ....:calim2:

Didier.

Bienvenue sur DVP

Citation:

---

Envoyé par bugsisgood

Bonjour,
.................
ou bien ai-je oublié quelque chose ?...

Merci de la part d'un débutant ....:calim2:

Didier.

---

:mouarf: il ne te manquerai pas cela

Code:

---

TextBox.MultiLine = True

---

Bonsoir,

et ... (on ne voit pas ton code... pratique, hein ...) j'espère que tu as bien exprimé le saut de ligne par la constante vbcrlf et non crlf...(qui retournerait une chaine vide !... au fait : as-tu bien déclaré Option Explicit, qui dénoncerait ton crlf si même pas déclaré et initialisé ?...)

Ceci étrant dit : le fait que tu mentionnes des "petits carrés" donne à penser que Progelect a vu juste et que tu n'as pas défini à True la propriété MultiLine.

Bonjour à nouveau,

Si si, la propriété Multiligne est bien à TRUE !

Je vais m'expliquer un peu mieux peut-être :

Lorsque la machine distante m'envoie ses chaînes de caractères, ( je travaille avec un winsock ), à l'intérieur de ces chaînes se trouvent par moment des caractères de contrôles chr(10) et chr(13) ...donc CrLf ... en plein milieu d'un paquet.
Mon code peut les détecter et les extraire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim donnees As String Dim N, X As Integer Dim Sep() As String   ' Reception des données Winsock1.GetData donnees, vbString   ' Extraction des caractères de contrôle CR et LF If InStr(donnees, Chr(10) & Chr(13)) <> 0 Then Sep() = Split(Trim(donnees), Chr(10) & Chr(13)) N = UBound(Sep()) For X = 0 To N TextBox1 = TextBox1 + Sep(X) ' Next End If

---

Me restent donc les chaînes "utiles" que je veux mettre dans le TextBox les unes sous les autres , ligne après ligne !

exemple : Je reçois "AM=2.0 AF=012345[][]AM=2.1 AF=BONJOUR"
( avec [][] symbolisant les caractères de contrôle ...)

après extraction du CrLf j'obtiens :
Chaîne1 --> "AM=2.0 AF=012345"
Chaîne2 --> "AM=2.1 AF=BONJOUR"

Ensuite
j'ai essayé TextBox1.text= Chaîne1 & VbCrLf & Chaîne2
Résultat dans le TextBox1 : AM=2.0 AF=012345[][]AM=2.1 AF=BONJOUR

j'ai essayé TextBox1.text= Chaîne1 + Chaîne2
Résultat dans le TextBox1 : AM=2.0 AF=012345AM=2.1 AF=BONJOUR

Cela doit être trop simple :lol: mais je ne vois vraiment pas où je me plante ...
Ca ne marche pas. Galèrer pour si peu, c'est idiot !....

Il faut que multiline soit true (déjà dit) et le textbox n'accepte que la séquence de contrôle "retour charriot" suivi de "Linefeed"

Code:

---

1 2 3 4 5

S$ = Chr$(13) + Chr$(10) 'OK 'S$ = Chr$(10) + Chr$(13) 'niet 'S$ = Chr$(13) 'niet 'S$ = Chr$(10) 'niet Text1.Text = "1111111" + S$ + "222222" + S$ + "33333333"

---

Ca, ça marche (j'ai testé).
Si tu ne peux garantir cette séquence sur tes arrivées de texte :
- Tu vires tous les LF
- Tu remplaces tous les CR par CR+LF

Si tu fais

Code:

---

TextBox1 = TextBox1 & VbCrLf & Sep(X)

---

Et que tu mets la Propriété MultiLines du TextBox1 à True, çà devrait le faire

Citation:

---

Envoyé par bugsisgood

Merci de la part d'un débutant ....:calim2:

Didier.

---

Code:

---

Dim N, X As Integer

---

Avec VB6, N est considéré comme Variant (16 octets), X comme un Integer(2 octets).

Code:

---

Dim N As Integer, X As Integer

---

permet de limiter l'utilisation mémoire.

Eh bien merci à tous.

Après avoir essayé l'exemple de DAUDET78 , eh bien curieusement mon code s'est mis à fonctionner ...(?)
La seule chose que j'y ai changé, c'est d'écrie Chr$(13)+chr$(10) à la place de VbCrLf !
(Je ne vois pas trop la différence....)

Mes lignes utiles se retrouvent bien les unes sous les autres dans le TextBox !

Cela semblait si évident !!??..
Merci encore de vous etre mobilisés !
@+

Didier

Citation:

---

Envoyé par bugsisgood

Après avoir essayé l'exemple de DAUDET78 , eh bien curieusement mon code s'est mis à fonctionner ...(?)

---

qui n'est pas le meilleur exemple qui soit :aie:

Citation:

---

Envoyé par bugsisgood

La seule chose que j'y ai changé, c'est d'écrie Chr$(13)+chr$(10) à la place de VbCrLf !
(Je ne vois pas trop la différence....)

---

si tu utilisais le & comme opérateur de concaténation de chaine et non pas + , tu aurais surement moins de problème ! :mouarf:

Pour vérifier le contenu de VbCrLf,

Citation:

---

Envoyé par MSDN

vbCrLf Chr(13) + Chr(10) Combinaison des caractères de retour chariot et de saut de ligne

---

j'ai exécuté ça :

Code:

---

1 2 3 4 5

Debug.Print "("; For I% = 1 To Len(VbCrLf) Debug.Print Asc(Mid$(VbCrLf, I%, 1)); Next I% Debug.Print ")"

---

et j'obtiens comme résultat dans la fenêtre d'exécution :

Code:

---

( 13 10 )

---

qui est donc rigoureusement identique à mon Chr$(13)+chr$(10) (d'ailleurs mon programme marche avec VbCrLf)

Tu as fait une autre modification certainement ......