读出的文件内容竟然是乱码?????
Try
Dim fileinfo As New FileInfo(Application.StartupPath & "\sys.ini")
Dim sw As StreamWriter = fileinfo.CreateText
Dim i As Integer
For i = 0 To lbxLy.Items.Count - 1
sw.WriteLine(lbxLy.Items.Item(i))
Next
sw.Flush()
sw.Close()
MsgBox("已经将信息成功保存!", , "提示")
Catch ex As Exception
MsgBox(ex.Message, , "提示")
End Try
我将它存入文件中,用下面的方法读取:
Dim fileinfo As New FileInfo(Application.StartupPath & "\sys.ini")
Dim fs As FileStream
fs = fileinfo.Open(FileMode.Open)
Dim sr As New StreamReader(fs, System.Text.Encoding.Default)
If fs.Length > 0 Then
Do
lbxLy.Items.Add(sr.ReadLine)
Loop While sr.Peek <> -1
End If
sr.Close()
fs.Close()
可是添加到listbox的是乱码,文件中不是乱码.怎么回事啊 ,请指教.