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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]文本导出乱码问题

共有3107人关注过本帖树形打印复制链接主题：[求助]文本导出乱码问题

99473593

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

加好友

发短信

等级：小狐帖子：384 积分：4174 威望：0 精华：0 注册：2011/12/31 14:28:00

[求助]文本导出乱码问题 发帖心情

Post By：2014/10/10 15:44:00 [显示全部帖子]

请帮我看下这段导出文本文件代码，导出后打开文件时乱码

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
    dlg.Filter= "文本文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "商品数据包制作" '指定导出表
'    ex.Format = "Delimited" '导出格式为txt格式
    ex.Fields = "条码号,零售价" '指定导出字段
'    ex.Filter = "[产品] = 'PD01'" '指定导出条件
    ex.Header = False '判断是否需要导出列标题
    ex.filepath = dlg.FileName '指定目标文件
    ex.Export() '开始导出
End If

此主题相关图片如下：99999.jpg

99473593

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

加好友

发短信

等级：小狐帖子：384 积分：4174 威望：0 精华：0 注册：2011/12/31 14:28:00

Post By：2014/10/10 15:51:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 15:46:00的发言：

这一句不能注释

ex.Format = "Delimited" '导出格式为txt格式

不注释这句的话，弹出筛选器，输入文件名时，会弹出文件路径错误的提示

此主题相关图片如下：qq截图20141010154945.jpg

99473593

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

加好友

发短信

等级：小狐帖子：384 积分：4174 威望：0 精华：0 注册：2011/12/31 14:28:00

Post By：2014/10/10 16:14:00 [显示全部帖子]

以下是引用有点甜在2014-10-10 15:52:00的发言：

参考代码

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "文本文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = "表A" '指定导出表
    ex.Format = "Fixed" '导出格式为txt格式
    ex.Fields = "第一列" '指定导出字段
    ex.Header = False '判断是否需要导出列标题
    ex.filepath = FileSys.GetParentPath(dlg.FileName) '指定目标文件
    Dim finfo As New FileInfo(dlg.FileName)
    ex.NewTableName = FileSys.GetName(dlg.FileName).Replace(finfo.Extension, "")
    ex.Export() '开始导出
End If

导出Fixed是可以的，但导出Delimited，则每列都会加上双引号了，是不是Delimited就是这样的啊

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

此主题相关图片如下：222.jpg

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

主题：[求助]文本导出乱码问题