probleme de vbCrLf

[invitebac23ddd]

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:

        'création d'une chaine de caractere 
        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
-----

[cristolab]

Salut,

Il reste un vbCrLf entre "Temperature :" et la valeur de la température que tu as récupéré ????
A part le vbCrlf que tu mets en toute fin de concaténation (et même pour la derniere ligne !) je vois pas trop comment c'est possible...

bon courage

[invitebac23ddd]

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

si tu pare de ca, c'est juste un affichage pour me rendre compte de ce qu'il se passait a la récupération.
Donc aucun pb avec cette partie.
Donc reformulation

CInt(resumepaliers.Item(2 * i + 1))

ca ca marche!

CInt(resumepaliers.Item(2 * i + 2))

ca ca marche pas!

Alors que les 2 sont des chiffres.
A l'affichage,

resumepaliers.Item(2 * i + 2))

me donne un saut de ligne en plus du chiffre

[invite770d9cfe]

Essaye vbNewLine au lieu de vbCrLf. vbNewLine ne tient pas compte de la plateforme de développement. Maintenant, il faut vérifier s'il n'y a pas par hasard deux vbCrLf à la suite dans la chaîne. Une petite routine de ce type te permettra de le savoir tout de suite :

  For I = 1 To Len(recuperation) - 3
    If Mid(recuperation, I, 4) = Chr(13) & Chr(10) & Chr(13) & Chr(10) Then
      MsgBox I
    End If
  Next I
  End

[A voir en vidéo sur Futura]

[invitebac23ddd]

Vb newline marche bien.
Non pas de doublon de saut de ligne.
Merci

[invite770d9cfe]

De rien.
Conclusion : il vaut mieux éviter, quand on le peut, les constantes du Bill.
chr(13) & chr(10) c'est beaucoup plus solide.