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()
創作者介紹
創作者 M的部落格 的頭像
M

M的部落格

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

▲top

請先 登入 以發表留言。