leggere file di testo (mi omette il primo carattere)

[Kahm]

salve a tutti
dovrei leggere un file di testo tramite un ciclo, ma non so per quale motivo quando leggo ogni riga mi omette il primo carattere!
qeusto è il codcie hce uso

 Dim sr As New StreamReader(sFile)
        While (sr.Read())
            RIga = sr.ReadLine()
            Campi = Split(RIga, ";")

          continua:
        End While

quando nel file c'è critto questo: "45;36" la variabile Riga mi restituisce "5;36"!!

come è possibile?
da cosa diepnde?
ho provato anche a cambiare le scritte sul file di testo, eppure l'errore si ripresenta!

grazie

[pietro09]

Il codice che hai scritto è sbagliato tanto che non di può compilare (option Strict=on, come deve essere)
Prima di tutto bisogna fare:

Do While (sr.Read() <> -1)
	fileText &= sr.ReadLine & ControlChars.CrLf
Loop

in questo modo, sr.Read() legge un carattere e sposta il puntatore del file al carattere successivo: ecco perchè readLine perde il primo carattere.
Per ovviare bisogna evidentemente correggere:

        'legge un file di testo una riga per volta (stream)

        'apro il file per lettura
        Dim sr As New StreamReader(Server.MapPath("files.aspx.vb"))

		'leggo l'intero file una riga per volta
        Dim fileText$ = ""
        Do While Not sr.Peek = -1
            fileText &= sr.ReadLine & ControlChars.CrLf
        Loop

        'chiudo il file
        sr.Close()

        'visualizzo il file
        Me.Label1.Text = "<pre>" & Server.HtmlEncode(fileText) & "</pre>"