以文本方式查看主题

-  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
--  
谢啦!解决了!