Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]读取txt文件出现乱码


  共有2234人关注过本帖树形打印复制链接

主题：[求助]读取txt文件出现乱码
帅哥哟，离线，有人找我吗？
klkingkkk
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：448 威望：0 精华：0 注册：2019/6/22 13:50:00 		[求助]读取txt文件出现乱码  发帖心情 Post By：2019/6/22 15:10:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)           
    MessageBox.Show(strs)
End If

这样读取出来后就是乱码,应该怎么解决啊!!!谢谢大神!!!!!!!
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/22 15:21:00 [只看该作者]

设置编码：http://www.foxtable.com/webhelp/topics/0344.htm

FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)  
 回到顶部
帅哥哟，离线，有人找我吗？
klkingkkk
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：448 威望：0 精华：0 注册：2019/6/22 13:50:00 		  发帖心情 Post By：2019/6/22 15:47:00 [只看该作者]

谢谢!!刚刚弄好了 现在就是怎么把读取到的字符串写到控件里面啊!!再麻烦一下..  谢谢!!!!!!


Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
       Dim strs As String = FileSys.ReadAllText(dlg.FileName,Encoding.Default)
       Dim trs=strs.IndexOf("号牌号码")+5
           
            strs = strs.SubString(trs,7)

End If
[此贴子已经被作者于2019/6/22 15:47:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107873 积分：548728 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/6/22 15:51:00 [只看该作者]

比如：e.from.controls("textbox1").text = strs.SubString(trs,7)

 回到顶部
帅哥哟，离线，有人找我吗？
klkingkkk
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：44 积分：448 威望：0 精华：0 注册：2019/6/22 13:50:00 		  发帖心情 Post By：2019/6/22 16:01:00 [只看该作者]

谢谢!!!!弄好了 感谢!!!
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询