以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]急求txt文件批量导入方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105352)
--  作者：shuaige
--  发布时间：2017/8/17 15:17:00
--  [求助]急求txt文件批量导入方法
我有100000个txt文件想导入Foxtable生成 表格。文件名字一列  内容一列。。
注释：txt文件有文件名字。打开文件里面有内容
本人小白一只，求大神列出详细步骤。
希望能尽快回复，非常谢谢！
--  作者：有点甜
--  发布时间：2017/8/17 15:45:00
--  

Dim dlg As new OpenFileDialog
dlg.Filter = "txt文件|*.txt"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.FileNames
        Dim txt As String = FileSys.ReadAllText(file, encoding.default)
        Dim ndr As DataRow = DataTables("表a").addnew
        ndr("第一列") = FileSys.GetName(file)
        ndr("第二列") = txt
    Next
End If
--  作者：shuaige
--  发布时间：2017/8/17 15:52:00
--  
呃，这个代码是要复制到哪个里面的？
--  作者：shuaige
--  发布时间：2017/8/17 16:11:00
--  
麻烦你，O(∩_∩)O谢谢
--  作者：有点甜
--  发布时间：2017/8/17 16:14:00
--  
以下是引用shuaige在2017/8/17 15:52:00的发言：
呃，这个代码是要复制到哪个里面的？

 

单独做个按钮执行。
--  作者：shuaige
--  发布时间：2017/8/17 16:22:00
--  
按钮怎么做？
--  作者：有点甜
--  发布时间：2017/8/17 16:45:00
--  
以下是引用shuaige在2017/8/17 16:22:00的发言：
按钮怎么做？

 

http://www.foxtable.com/webhelp/scr/0213.htm

 

http://www.foxtable.com/webhelp/scr/0698.htm

 
--  作者：shuaige
--  发布时间：2017/8/17 20:59:00
--  
多谢啦