[VB.NET] Problemi di encoding su lettura file di testo.

[fedrok]

Ciao!

Dovrei leggere un semplice file di testo.
Solo che è scritto con la codifica Western European.

Ho trovato su MSDN un esempio che legge un file codificato come ASCII, ma non capisco come modificarlo per leggere un formato Western European...

Riporto l'esempio:

Public Shared Function getTextFile(ByVal filePath As String) As String
getTextFile = ""

Dim fs As FileStream
fs = File.OpenRead(filePath)

Dim b(1024) As Byte
Dim temp As ASCIIEncoding = New ASCIIEncoding

Do While fs.Read(b, 0, b.Length) > 0
getTextFile = uty.concat(getTextFile, temp.GetString(b))
Loop
fs.Close()
End Function

Qualcuno mi da una mano?


Grazie.

[biste]

Io di solito faccio così:

 Dim sr As StreamReader = New StreamReader(path, System.Text.Encoding.Default)
 Dim result As String = sr.ReadToEnd()
 sr.Close()

HTH

[fedrok]

Propongo questa funzione general purpose che può tornare comoda a molti:

Public Shared Function getTextFile(ByVal filePath As String, Optional ByVal pFormatoEncoding As String = "UTF-8") As String
' pFormatoEncoding = { "UTF-8" , "Windows-1252" , ... }

Dim lStream As Stream
Dim encode As Encoding = System.Text.Encoding.GetEncoding(pFormatoEncoding)
lStream = File.OpenRead(filePath)

Dim readStream As New StreamReader(lStream, encode)
getTextFile = readStream.ReadToEnd
lStream.Close()
readStream.Close()
readStream = Nothing
lStream = Nothing

End Function