Probleme de vbCrLf

Version imprimable

Probleme de vbCrLf

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:

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

30/06/2009, 15h30
Ogotcha
Essai de "trimer" ta chaîne :

Code:

TonString.Trim

Ou essai un petit replace :
Code:

1 2 TonTexte.replace(vbCrlf, "")

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

Code:

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:

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

30/06/2009, 15h47
Ogotcha

Essai avec le Replace

Code:

TonTexte.replace(vbCrlf, "")
30/06/2009, 16h01
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?:?
30/06/2009, 16h12
Quatre_Couleurs
Citation:
Envoyé par tibobo_77

Bonjour,

Code:

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?
30/06/2009, 16h55
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.
01/07/2009, 00h44
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.