ListBox1信息保存到文本 编码有关问题 最后一步了-新手求帮助

ListBox1信息保存到文本 编码问题 最后一步了---新手求帮助
                Dim sw As System.IO.StreamWriter
                sw = New System.IO.StreamWriter("F:\记录2.txt", False) 'false  全新保存,true是指以追加的方式保存文件
                For i = 0 To ListBox1.Items.Count - 1
                    sw.WriteLine(ListBox1.Items(i))
                Next
                sw.Close()
文本保存后  编码变成是UTF-8 怎么办


        Label1.Text = Now.ToString("当前时间 HH:mm")
        Dim str As IO.StreamReader = New IO.StreamReader("F:\记录2.txt", System.Text.Encoding.Default)
        Dim ts As String() = str.ReadToEnd.Split(Chr(10)) '如果chr(10)不行可以换chr(13)
        ListBox1.Items.AddRange(ts)
        str.Close()
可我这文本只读取 ANSI            Unicode                  Unicode big endian          跟上面那个冲突了   上面代码怎么改?

------解决方案--------------------
sw = New System.IO.StreamWriter("F:\记录2.txt", False, System.Text.Encoding.Default) 'false  全新保存,true是指以追加的方式保存文件
------解决方案--------------------

引用:

Quote: 引用:

sw = New System.IO.StreamWriter("F:\记录2.txt", False, System.Text.Encoding.Default) 'false  全新保存,true是指以追加的方式保存文件

这个解决了,最后一个为了优化下问你下
4:13:34   ----   长安城外(49,76)
6:29:46   ----   昆仑山(82,35)
8:33:24   ----   大唐境外(144,59)
11:59:03   ----   大唐国境(87,44)
5:55:58   ----   长安城外(69,25)
8:45:27   ----   大唐境外(8,85)
怎么使ListBox1 里面这些内容按时间大小排列,要加什么代码?
求代码,谢谢你了

        Dim sm() As String = {"4:13:34   ----   长安城外(49,76)", "6:29:46   ----   昆仑山(82,35)", "8:33:24   ----   大唐境外(144,59)", "11:59:03   ----   大唐国境(87,44)", "5:55:58   ----   长安城外(69,25)", "8:45:27   ----   大唐境外(8,85)}"}
        Dim Tmp() As String = sm.Select(Function(x) Split(x, "----")(0)).ToArray()
        Dim m_Time() As DateTime = Tmp.Select(Function(x) DateAndTime.TimeValue(x)).ToArray
        Array.Sort(m_Time, sm)
        ListBox1.Items.Clear()
        ListBox1.Items.AddRange(sm)