| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- TXT文件解析汉字的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79772) |
| -- 作者：黑苹果 -- 发布时间：2016/1/8 15:59:00 -- TXT文件解析汉字的问题 Dim strs As String = FileSys.ReadAllText("" & ProjectPath & "test.txt") strs = strs.Replace(vblf,"") Dim rs() As String = strs.Split(vbcr) For i As Integer = 0 To rs.Length - 1 msgbox(rs(i)) Next 这样解析方本文件如果文件都是英文则没问题，如果是汉字就显示乱码了，如何强制汉字编码格式
|
| -- 作者：大红袍 -- 发布时间：2016/1/8 16:01:00 -- Dim strs As String = FileSys.ReadAllText("" & ProjectPath & "test.txt", Encoding.Default) |
| -- 作者：大红袍 -- 发布时间：2016/1/8 16:01:00 -- http://www.foxtable.com/help/topics/0344.htm
|