vb中把一个txt文件从ANSI编码转成unicode编码

发布网友发布时间：2024-10-04 05:51

共2个回答

热心网友时间：2024-11-01 18:42

Dim fso As Object
Const forreading = 1
Private Sub command1_lick()
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.opentextfile("F:\1.txt", forreading, False, -1)
ff = f.readall
f.Close
Open "F:\2.txt" For Output As #1
Print #1, ff
Close #1
End Sub

热心网友时间：2024-11-01 18:43

Const ForReading = 1
Const ForWritting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f1 = FSO.OpenTextFile("F:\ANSI.txt", ForReading, False)
Set f2 = FSO.OpenTextFile("F:\Unicode.txt", ForWritting, True, -1)
f2.Write f1.ReadAll
f1.Close
f2.Close

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com