[VB.NET]: Lettura di un file e ritorno a capo

[daspide]

ciao a tutti,
ho scritto questo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PacchettoDati As StreamReader = File.OpenText("D:\ss_orig\ooo.da")
        Dim lendata As String
        Dim lendatabit As Integer
        Do Until PacchettoDati.Peek = -1
            lendata = PacchettoDati.ReadLine
            TextBox1.Text = TextBox1.Text & lendata
            lendatabit = lendata.Length
            TextBox2.Text = TextBox2.Text & " | " & lendatabit
        Loop

        PacchettoDati.Close()

    End Sub

il problema e che nonostante le TextBox1 e TextBox2, abbiano le prop. Wordwap a True e Multiline a True non va a capo!!!!

ho provato anche così:

TextBox2.Text = TextBox2.Text & chr(13) & lendatabit

ma non funziona?!?!?

potete dare un occhio!?!?!?!
grazie
ciao

[daspide]

ok, ho risolto
ma non se è il metodo migliore

TextBox2.Text = TextBox2.Text & Chr(13) & Chr(10) & lendatabit

adesso ho un problema diverso:

come trasformo la stringa in binario?

ciao
grazie

[Il Totem]

Io ti suggerirei di comprimere un po' il codice, così:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PacchettoDati As New StreamReader("D:\ss_orig\ooo.da")
        Dim lendata As String
        Dim lendatabit As Integer
        Do Until PacchettoDati.Peek = -1
            lendata = PacchettoDati.ReadLine
            lendatabit = lendata.Length
            TextBox2.Text += lendata + vbCrLf + lendatabit
        Loop
        PacchettoDati.Close()
End Sub

Cmq, cosa intendi per binario?

[cassano]

oppure usa emnironment.newline.

[daspide]

oppure usa emnironment.newline.

come funziona?

[daspide]

grazie per i suggerimenti ho risolto con la

"Il Totem"
...compressione del codice...

adesso avrei un altro problema
posso ordinare il file xchè legga dall'ultima riga?

ciao grazie