Io ti suggerirei di comprimere un po' il codice, così:
Cmq, cosa intendi per binario?codice: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

Rispondi quotando