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

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

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

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)

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

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