UNICODE文件本,怎么读取?
dim a as string
open "abc.txt " for input as #1
line input #1,a
print a
close #1
为什么我输出的是乱码?
我已经知道文件是UNICODE编码的了,我转换成ASCII编码以上代码输出就正常了
我试过Strconv(),输出还是错的
[解决办法]
fso也行，openfile 跟文件名,for reading,true, zzz
zzz 这个位置的参数，是读取unicode和ansi的区别，默认为ansi
详情察看msdn
[解决办法]
Dim fnum As Integer
fnum = FreeFile
Dim s As String
Open fileName For Binary As #fnum
s = Input(LOF(fnum), #fnum)
Close #fnum
[解决办法]
Dim fnum As Integer
fnum = FreeFile
Open "c:\1.txt " For Binary As #fnum
ReDim s(LOF(fnum) - 2) As Byte
Get #1, 3, s
Close #fnum
Print s
