Problemer med læsning af ÆØÅ filer fra VB.NET

Tags:    visual-basic

Jeg har en fil der indeholder følgende:

Det er en test af æøå og ÆØÅ nemlig

Når jeg forsøger at læse filen fra VB.NET læser den følgende:

"Det er en test af og nemlig"

Hvad gør jeg galt ? Her er min kode:

Dim myWriter As StreamWriter
Dim myReader As StreamReader
Dim InString As String
Dim infile As File
Dim outfile As File

myReader = infile.OpenText("c:\\names.OLD")
myWriter = outfile.CreateText("c:\\names.txt")

InString = myReader.ReadLine 'Det er her at jeg ikke får noget æøå!!
While Not InString Is Nothing
myWriter.WriteLine(InString)

InString = myReader.ReadLine

End While
myWriter.Close()
myReader.Close()




3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma
Sorter efter stemmer Sorter efter dato
Hvorfor er der overhovedet nogen, der hopper på alt det der ".NET" gas? Er der ikke nogen der kan se, at det er MS/AOL, der spiller smart? Hvorfor lader MS dig downloade .NET som trial? Fordi det er godt og populært? Nul, putte.


*sign* ... tumperne danser omkring. Er du ogs aktiv på computerworlds debat forum ? .. du vil ihverfald finde dig godt til rette der :)

Men for at komme til dit spørgsmål, har jeg en idé. Tror du ikke, det har noget med Unicode at gøre??? Unicode er det der system, der bruger 2 bytes for hvert tegn.


Orv. Helt tumpe er du ik'? .. det nemlig det som er problemmet.

Nicolas:
Prøv med:
Public Function SimpleReadFile(ByVal filename As String) As String
Dim result As String = ""
Dim Buffer(100) As Byte
Try
Dim oFile As New FileStream(filename, FileMode.Open, FileAccess.Read)
Dim oReader As New BinaryReader(oFile)
result = System.Text.Encoding.Default.GetString(oReader.ReadBytes(oReader.BaseStream.Length), 0, oReader.BaseStream.Length)
oReader.Close()
oReader = Nothing
oFile.Close()
oFile = Nothing
Catch e As Exception
Console.WriteLine("mUtil.SimpleReadFile: " & filename & vbCrLf & e.ToString)
result = ""
End Try
Return result
End Function


som du kan se, er denne funktion ikke meget mere anderledes end det du allerede har gjort.






Jeg har en fil der indeholder følgende:

Det er en test af æøå og ÆØÅ nemlig

Når jeg forsøger at læse filen fra VB.NET læser den følgende:

"Det er en test af og nemlig"

Hvad gør jeg galt ? Her er min kode:

Dim myWriter As StreamWriter
Dim myReader As StreamReader
Dim InString As String
Dim infile As File
Dim outfile As File

myReader = infile.OpenText("c:\\names.OLD")
myWriter = outfile.CreateText("c:\\names.txt")

InString = myReader.ReadLine 'Det er her at jeg ikke får noget æøå!!
While Not InString Is Nothing
myWriter.WriteLine(InString)

InString = myReader.ReadLine

End While
myWriter.Close()
myReader.Close()


Det er totalt for klamt så lidt point du giver ;)

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site



Hvorfor er der overhovedet nogen, der hopper på alt det der ".NET" gas? Er der ikke nogen der kan se, at det er MS/AOL, der spiller smart? Hvorfor lader MS dig downloade .NET som trial? Fordi det er godt og populært? Nul, putte.

Men for at komme til dit spørgsmål, har jeg en idé. Tror du ikke, det har noget med Unicode at gøre??? Unicode er det der system, der bruger 2 bytes for hvert tegn.

Bare en idé; jeg er ikke rigtig "into" alt det der .NET hype, for jeg synes det er lidt unødvendigt og usikkert.

Software is here and now but rock and roll is forever.



t