Discussion :

[bugsisgood]

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 ....

Didier.

[ProgElecT]

Bienvenue sur DVP

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

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

Didier.

il ne te manquerai pas cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox.MultiLine = True

[ucfoutu]

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.

[bugsisgood]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 mais je ne vois vraiment pas où je me plante ...
Ca ne marche pas. Galèrer pour si peu, c'est idiot !....

[DAUDET78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Delbeke]

Si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox1 = TextBox1 & VbCrLf & Sep(X)

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

[ProgElecT]

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

Didier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim N, X As Integer

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim N As Integer, X As Integer

permet de limiter l'utilisation mémoire.

[bugsisgood]

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

[ThierryAIM]

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

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 !

[DAUDET78]

Pour vérifier le contenu de VbCrLf,

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

j'ai exécuté ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

( 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 ......