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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将数据表导出为txt文本

共有3643人关注过本帖树形打印复制链接主题：将数据表导出为txt文本

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

将数据表导出为txt文本 发帖心情

Post By：2021/7/9 11:41:00 [显示全部帖子]

将数据表导出为txt文本

狐表代码：

Dim cmd As new S QLCommand

cmd.Connectio nName = "kj222"

cmd.Comma ndText = "LINK"

cmd.StoredPr ocedure = True '表示CommandText内容不是标准的SQL语句,而是存储过程名

cmd.Parameters.Add("@MKCODE ","10010")

cmd.Parameters.Add("@ADDRESS ","D:\persionLoaction\Data")

cmd.Parameters.Add("@flag ","1")

Dim dt As DataTable = cmd.ExecuteReader

怎么没有将指定的文件保存到指定的目录下呢？

存储过程语句：

此主题相关图片如下：1.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:link.zip

[此贴子已经被作者于2021/7/9 11:42:28编辑过]

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）表格导出txt参考Dim s As StringFor ... 发帖心情

Post By：2021/7/9 14:51:00 [显示全部帖子]

再麻烦老师一下如果只导出指定的第一列第二列第三列的值怎么操作呢？

cnsjroom

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

加好友

发短信

等级：七尾狐帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00

回复：（有点蓝）Dim Cols1() As String&nb... 发帖心情

Post By：2021/7/9 15:15:00 [显示全部帖子]

当前代码如下：生成的效果不大理想麻烦老师继续指导下谢谢！

Dim Cols1() As String = {"vc_Code","vc_Name","AreaID"}

Dim s As String

s=Date.now() & vbcrlf

For i As Integer = 0 To Cols1.Length -1

s = s & vbtab

s = s & Cols1(i)

s = s.TrimStart(vbtab)

FileSys.WriteAllText("D:\问题\表A.txt",s & vbcrlf,False)

For Each dr As DataRow In DataTables("m_Localizer").DataRows

s = ""

For i As Integer = 0 To Cols1.Length -1

If s > "" Then s = s & vbtab

If dr.IsNull(Cols1(i)) = False Then

s = s & dr(Cols1(i)) & ","

End If

s = s.TrimStart(vbtab)

FileSys.WriteAllText("D:\问题\表A.txt", s & vbcrlf , True, Encoding.Default)

生成文本如下：

此主题相关图片如下：1.png

效果不理想：

想实现如下效果：

此主题相关图片如下：2.png

下一主题 >> << 上一主题

主题：将数据表导出为txt文本