problemer med ansi
Hej.Kæmpe problem med ÆØÅ
Jeg er igang med af lave et program der læser fra to text filer. og derefter laver en ny textfil med indholdet.
Det går også meget godt.
Men lige så snart der er ÆØÅ med i den første TXT fil kommer det ikke med over i den nye. Hvis jeg selv laver en textbox og skriver æøå så har jeg jeg fået den til det. så der ser ud til af æøå forsvinder når den importer teksten.
her er min kode.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader
Dim txt As String
Dim addtext As String
Dim import As String
txt= CType(configurationAppSettings.GetValue("txt fil", GetType(System.String)), String)
addtext = CType(configurationAppSettings.GetValue("addtext", GetType(System.String)), String)
import = CType(configurationAppSettings.GetValue("import fil", GetType(System.String)), String)
Dim sw As StreamWriter = New StreamWriter(import, False, System.Text.Encoding.Default)
Dim myStreamReader As StreamReader = New StreamReader(txt, System.Text.Encoding.Default)
myStreamReader = File.OpenText(addtext)
Me.TextBox1.Text = myStreamReader.ReadToEnd()
myStreamReader = File.OpenText(txt)
Me.TextBox2.Text = myStreamReader.ReadToEnd()
sw.Write(TextBox1.Text & Environment.NewLine & TextBox2.Text)
sw.Close()