导出 txt - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出 txt

共有2195人关注过本帖树形打印复制链接主题：导出 txt

wangjh8888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：502 积分：4924 威望：0 精华：0 注册：2016/7/11 10:12:00

导出 txt 发帖心情

Post By：2018/4/12 16:18:00 [只看该作者]

老师：好

利用下面代码，

Dim ex As New Exporter

ex.SourceTableName = "选手temp" '指定导出表

ex.FilePath = ProjectPath & "Datas\" '指定目标文件路径

ex.Fields = "号码,姓名,性别"

ex.Format = "Delimited" '导出格式为符号分割的文本文件

ex.NewTableName = "选手temp" '指定文件名,注意无须扩展名

ex.Export() '开始导出

要导出txt文件，tab分隔，如何改呀

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2018/4/12 17:02:00 [只看该作者]

我建议你这样导出：

Dim sb As New StringBuilder

For Each r As Row In Tables("表A").Rows

sb.AppendLine(r("第一列") & vbtab & r("第二列") & vbtab & r("第三列"))

FileSys.WriteAllText("c:\temp\data.txt",sb.Tostring,False)

wangjh8888

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：502 积分：4924 威望：0 精华：0 注册：2016/7/11 10:12:00

Post By：2018/4/12 19:32:00 [只看该作者]

好好主意

主题：导出 txt