您的位置：程序门 -> vb ->

问一个关于乱码的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

问一个关于乱码的问题 [已结贴,结贴人:vbnetcainiao]

发表于：2007-10-26 12:38:09 楼主

dim cs = split（"字符串id是中文的阿", "id", -1, 1)
dim cs1 = trim（cs（0))
msgbox（cs1)
得出的是字符串，正常。但是按下面的如果读取文本的话就变成口口了，文本内容还是"字符串id是中文的阿"
dim path = my.computer.filesystem.readalltext（"c:\test.txt")
dim cs = split（path,"id", -1, 1)
dim cs1 = trim（cs（0))
msgbox（cs1)

请问怎么写，谢谢了。

发表于：2007-10-26 13:06:561楼得分:0

字体？？

发表于：2007-10-26 13:18:482楼得分:0

msgbox path 是否正确？

发表于：2007-10-26 13:20:323楼得分:0

我也不知道啊，用记事本打开是fixedsys 常规小五 chinese_gb2312

发表于：2007-10-26 13:25:134楼得分:0

回2楼msgbox path 出来的是口.口口口id口口口口口ji口

发表于：2007-10-26 14:28:245楼得分:5

确定是字符编码的问题
如果通过程序，写入再读出则没有问题。。。

my.computer.filesystem.writealltext（"c:\test.txt","字符串id是中文的阿", true)
dim path = my.computer.filesystem.readalltext（"c:\test.txt")
dim cs = split（path, "id", -1, 1)
dim cs1 = trim（cs（0))
msgbox（cs1)
没想好怎么解决

发表于：2007-10-26 14:43:146楼得分:5

与 c:\test.txt 的编码格式有关，请用记事本打开后另存为 ansi 格式的。

发表于：2007-10-26 14:50:447楼得分:0

另存为utf8格式的。

发表于：2007-10-26 16:50:438楼得分:0

谢谢大家，按5楼的方法来做没出错了。

发表于：2007-10-30 14:00:539楼得分:0

哈哈研究了一下，这样写就不会出错了

dim textfile = my.computer.filesystem.readalltext（"c:\test.txt" , system.text.encoding.default)
也就是读取文本文件的编码格式，如果不加上后面的识别，vb默认为utf8格式。

其他资讯