1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Imports System.IO
Imports System.Globalization
Imports System.Text
Module Module1
Sub Main()
' First, we need to get the code page for the Swedish culture
Dim culture As CultureInfo = New CultureInfo("sv-SE")
Dim codePage As Integer = culture.TextInfo.ANSICodePage
' Now we need to make an encoding based on this Swedish code page
Dim swedenEncoding As Encoding = Encoding.GetEncoding(codePage)
' Now, we'll open the first file and save it as UTF-8 to demonstrate it works
Dim fileContents As String
Using reader As New StreamReader("pelda.txt", swedenEncoding)
fileContents = reader.ReadToEnd()
End Using
Using writer As New StreamWriter("pelda_new.txt", False, Encoding.UTF8)
writer.Write(fileContents)
End Using
End Sub
End Module |
Partager