Dateien in Latin2 auslesen

12/02/2008 - 22:35 von niklaswilcke | Report spam
Hallo,
ich habe folgenden Code mit VB 20008 Express geschrieben, um Dateien
aus dem Internet zu lesen. Das Problem ist, dass sie in Latin2 kodiert
sind und ich sie so nicht herunterladen kann.

While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Debug.WriteLine(WebBrowser1.ReadyState)
Application.DoEvents()
End While

Dim seitenStream As Stream = WebBrowser1.DocumentStream
Dim sr As StreamReader = New StreamReader(seitenStream)
Dim sw As StreamWriter = New StreamWriter("D:\VBTest\" & i & ".txt")

Do While (sr.Peek() <> -1)
sw.WriteLine(sr.ReadLine())
End While

Ich kann jetzt dem StreamReader als zweiten Paramter über
System.Text.Encoding.ASCII
zB den ASCII Kodierung angeben aber wie kann ich Latin2 als Encoding
angeben?
Die IDE gibt mir dazu keine Möglichkeit. Um Hilfe wàre ich sehr
dankbar.
 

Lesen sie die antworten

#1 Armin Zingler
12/02/2008 - 23:03 | Warnen spam
schrieb
Ich kann jetzt dem StreamReader als zweiten Paramter über
System.Text.Encoding.ASCII
zB den ASCII Kodierung angeben aber wie kann ich Latin2 als Encoding
angeben?
Die IDE gibt mir dazu keine Möglichkeit. Um Hilfe wàre ich sehr
dankbar.

_______

Erzeuge ein eigenes Encoding-Objekt:

Dim en = System.Text.Encoding.GetEncoding("Latin2")


Ob der Rest des Codes so optimal ist, lasse ich andere bewerten. :-)


Armin

Ähnliche fragen