读书人

UNICODE文件本,如何读取

发布时间: 2012-01-24 23:11:54 作者: rapoo

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

读书人网 >VB

热点推荐