Ciao a tutti, ho un piccolo problema.
Devo leggere un file txt che in seguito viene suddiviso e importato in un database, il problema si presenta quando nella riga ci sono lettere accentate (àòùèéì), praticamente li elimina facendo sì che la lunghezza della riga non sia più uguale alle altre. Ho provato anche a dare una codifica allo streamreader ma niente... sempre lo stesso.
la parte in neretto è quella con la dichiarazione dello stream e l'assegnazione della codifica.codice:Private Function ReadtxtRic(ByVal filename As String) As Boolean Dim temp As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding Dim sr As StreamReader = New StreamReader(filename, temp) Dim row As String Do Until sr.Peek = -1 row = sr.ReadLine If row.Length <> 153 Then MessageBox.Show("Il file selezionato è errato", "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error) Return False Exit Function End If row = row.Replace("?"c, " "c) Loop Return True End Function
ho provato la unicode e mi mette dei punti interrogativi al posto dei caratteri accentati mentre con quella ascii (standard) li elimina accorciandomi la riga. Come posso fare in modo che vengano lette normalmente??? grazie.

Rispondi quotando