目的自定义地址与文件名，导出去掉双引号，不知道哪里出错了，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目的自定义地址与文件名，导出去掉双引号，不知道哪里出错了，谢谢

共有2191人关注过本帖树形打印复制链接主题：目的自定义地址与文件名，导出去掉双引号，不知道哪里出错了，谢谢

limit_1982

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

加好友

发短信

等级：幼狐帖子：134 积分：1809 威望：0 精华：0 注册：2015/12/5 19:21:00

目的自定义地址与文件名，导出去掉双引号，不知道哪里出错了，谢谢 发帖心情

Post By：2016/6/14 23:21:00 [只看该作者]

Dim dlg As New SaveFileDialog
dlg.Filter= "TXT文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
Dim ex As New Exporter
ex.SourceTableName = "表A"
ex.Header= False
Dim a As String =ProjectPath
ex.FilePath =a
ex.NewTableName =dlg.FileName
ex.Format ="Delimited"
ex.Export()
End If
Dim s As String =dlg.FileName
Dim str As String = FileSys.ReadAllText(ProjectPath & s & ".txt", Encoding.Default)
str = str.replace("""", "")
FileSys.WriteAllText(ProjectPath & s & ".txt", str, False, Encoding.Default)

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/6/15 0:05:00 [只看该作者]

Dim dlg As New SaveFileDialog
dlg.Filter= "TXT文件|*.txt" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Dim ex As New Exporter
    ex.SourceTableName = "表A"
    ex.Header= False
    ex.FilePath = FileSys.GetParentPath(dlg.FileName)
    ex.NewTableName = FileSys.GetName(dlg.FileName.replace(".txt", "")
    ex.Format ="Delimited"
    ex.Export()
    Dim str As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default)
    str = str.replace("""", "")
    FileSys.WriteAllText(dlg.FileName, str, False, Encoding.Default)
End If

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

主题：目的自定义地址与文件名，导出去掉双引号，不知道哪里出错了，谢谢