VB文本文件读入中文成了乱码,求助!
来源:百度知道 编辑:UC知道 时间:2024/06/28 05:42:32
我想写一个程序把一个文件夹内的所有TXT文件中的类似“http://ftp.xhu.edu.cn/日韩歌手/安室奈美惠/PLAY/安室奈美
恵 - PLAY/04 It's all about you.mp3”的数据找出来并写入VB.txt中。格式为:“mkList("http://...","歌手名-歌曲
名");”
但是出了一个问题。读入的数据是乱码。也就是“qq”这个数据是乱码,请问如何解决啊。
这是我的源码:
Private Sub Command1_Click()
Path = Text1
A = Text2
b = Text3
For i = A To b
file = Path & i & ".txt"
Open file For Input As #1 'app.Path &
'qq = Input(LOF(1), 1)
qq = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
l = Len(qq)
For j = 1 To l
x = Mid(qq, j, 4)
If LCase(x) = ".mp3" Then
js = 0
For k = j - 4 To j - 100 Step -1 '
恵 - PLAY/04 It's all about you.mp3”的数据找出来并写入VB.txt中。格式为:“mkList("http://...","歌手名-歌曲
名");”
但是出了一个问题。读入的数据是乱码。也就是“qq”这个数据是乱码,请问如何解决啊。
这是我的源码:
Private Sub Command1_Click()
Path = Text1
A = Text2
b = Text3
For i = A To b
file = Path & i & ".txt"
Open file For Input As #1 'app.Path &
'qq = Input(LOF(1), 1)
qq = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
l = Len(qq)
For j = 1 To l
x = Mid(qq, j, 4)
If LCase(x) = ".mp3" Then
js = 0
For k = j - 4 To j - 100 Step -1 '
qq = Input(LOF(1), 1) qq = StrConv(InputB(LOF(1), 1), vbUnicode) 没有什么特殊情况用上面那个几个,StrConv用于多字节字符转换。一般来说vb会自动处理中文等unicode字符的
VB天生就是UNICODE的命,除非兼容ANSI,不要使用LENB等后边带B的命令命令