close

Imports System.IO

Imports System.Text

 

'檔案Anis轉成Unicode格式

Dim reader1 As New StreamReader("D:\TEST.DAT", Encoding.GetEncoding(0))

Dim writer1 As New StreamWriter("D:\TEST_Un.TXT", True, Encoding.Unicode)

 

writer1.Write(reader1.ReadToEnd)

writer1.Flush()

writer1.Close()

reader1.Close()
arrow
arrow
    全站熱搜

    M 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄