以文本方式查看主题 - 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=91087) |
-- 作者:xietan417 -- 发布时间:2016/9/29 9:48:00 -- 关于TXT导入问题 为什么这段代码不能导入中文的字段? 比如“扫描位置”如果是中文的话,导进FT后,就是空值或者乱码,如果是英文的话就没有问题! Dim dlg As new OpenFileDialog dlg.Filter = "文本文件|*.txt" Tables("资产盘点").StopRedraw If dlg.ShowDialog = DialogResult.OK Then Dim strs As String = FileSys.ReadAllText(dlg.FileName) strs = strs.Replace(vblf,"") Dim rs() As String = strs.Split(vbcr) For i As Integer = 0 To rs.Length - 1 Dim cs() As String = rs(i).Split(",") Dim dr As DataRow = DataTables("资产盘点").Addnew() dr("扫描位置") = cs(0) dr("资产编号") = cs(1) dr("数量") = cs(2) dr("扫描时间") = cs(3) dr("AddName") = cs(4) Next End If Tables("资产盘点").ResumeRedraw
|
-- 作者:有点蓝 -- 发布时间:2016/9/29 9:58:00 -- 试试其它编码打开文件:http://www.foxtable.com/webhelp/scr/0344.htm |
-- 作者:xietan417 -- 发布时间:2016/9/29 10:24:00 -- 谢啦!解决了! |