Discussion :

[tibobo_77]

Bonjour,

Je suis un débutant dans ce langage, 4h derriere moi seulement...
Je programme une petite application. Dans cette derniere je doit récupérer un texte. Je le fait grace a une txtbox et un openfiledialogue.
Ensuite je veux récupérer les lignes du texte dans une collection, je passe par un tableau et un split:

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
16
17
18
19
        Dim recuperation As String
        'on balance le texte dans le string
        recuperation = TxtSauvegarde.Text
        'on créé un tableau
        'on le dimensionne au texte que l'on récupere
        'on met dedant les ligne (le texte étant coupé par le saut de ligne)
        Dim tableaurecup() As String = recuperation.Split(vbCrLf)
        'on fait une boucle pour assigné les valeurs du tableau a la collection
        For i = 0 To tableaurecup.Length - 2 Step 1
            'je fait ca car la collection est plus simple a la manipulation 
            '(add/remove...) et a l'expention (taille tableau fixe
            resumepaliers.Add(tableaurecup.GetValue(i).ToString)
        Next i
 
        'visualisation du résultat dans une txtboxe
        RTB1.Clear()
        For i = 0 To resumepaliers.Count / 2 - 1 Step 1
            RTB1.Text = RTB1.Text & "Durée: " & CInt(resumepaliers.Item(2 * i + 1)) & "     Température: " & resumepaliers.Item(2 * i + 2) & vbCrLf
        Next i

Et le probleme c'est que tous les vbCrLf n'ont pas disparu :
apres températureil reste un saut de ligne!!!

Sinon le découpage se passe bien.

Cette erreur est problématique car j'ai besoin de convertir certains objet de la collection en integer.

Merci d'avance

[Ogotcha]

Essai de "trimer" ta chaîne :

Code :

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

TonString.Trim

Ou essai un petit replace :

Code :

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

1
2
 
TonTexte.replace(vbCrlf, "")

[tibobo_77]

Toujours pas de résultat...
qe je le mette ici:

Code :

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

1
2
3
4
5
6
       For i = 0 To tableaurecup.Length - 2 Step 1
            'je fait ca car la collection est plus simple a la manipulation 
            '(add/remove...) et a l'expention (taille tableau fixe
            resumepaliers.Add(tableaurecup.GetValue(i).ToString)
            resumepaliers(i + 1).ToString().Trim()
        Next i

ou:

Code :

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

1
2
3
For i = 0 To resumepaliers.Count / 2 - 1 Step 1
            RTB1.Text = RTB1.Text & "Durée: " & CInt(resumepaliers.Item(2 * i + 1)) & "     Température: " & CInt(resumepaliers.Item(2 * i + 2).ToString.Trim) & vbCrLf
        Next i

J'ai essayer les 2 aux 2 endroits..
Le Cint plante car il ne reconnait pas le vbCrLf comme entier je suppose...

[Ogotcha]

Essai avec le Replace

Code :

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

TonTexte.replace(vbCrlf, "")

[tibobo_77]

dsl, je me suis mal exprimé ds mon dernier post.
J'ai deja essayer les 2 exemple que tu m'a donné et cela ne change striquement rien au probleme... je ne comprend pas trop ce qu'il se passe...
C'est p-e mon code de récupération du texte qui est faux?

[Quatre_Couleurs]

Bonjour,

Code :

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

1
2
        
            RTB1.Text = RTB1.Text & "Durée: " & CInt(resumepaliers.Item(2 * i + 1)) & "     Température: " & resumepaliers.Item(2 * i + 2) & vbCrLf

Et le probleme c'est que tous les vbCrLf n'ont pas disparu :
apres températureil reste un saut de ligne!!!

Pourquoi ne pas simplement supprimer celui que tu rajoutes?

[tibobo_77]

Celui rajouté est juste pour laffichage, la lisibilité.
Meme si je l'enleve, il me reste tjs un saut de ligne par case de tableau ou de collection.

[Danyel]

Il faut savoir que le saut de ligne, selon le format et comment il est ecrit, peut etre different du vbcrlf !!!
Il est souvent avec le cr et lf (chr$13 et chr$10), mais aussi juste le 13 ou meme juste le 10.
Je te conseille de faire une comparaison sur les 2 chr$ (independamment) et voir un peu ce qu'il se passe avec ton fichier.