Foxtable(狐表)用户栏目专家坐堂 → 导出的 txt ,字符列不要有 双引号


  共有1379人关注过本帖树形打印复制链接

主题:导出的 txt ,字符列不要有 双引号

帅哥哟,离线,有人找我吗?
fubblyc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
导出的 txt ,字符列不要有 双引号  发帖心情 Post By:2017/9/18 10:40:00 [只看该作者]

导出的 txt 格式,列是文本格式的,导出来 有带  “”  ,怎么才能不要有 这个 “”  呢。。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20170918103910.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
fubblyc
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2355 积分:16187 威望:0 精华:0 注册:2013/9/1 8:09:00
  发帖心情 Post By:2017/9/18 10:57:00 [只看该作者]

是从excel表格导出来,我尝试着把 条码这个字符列换成 数字列,但是超出了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 11:07:00 [只看该作者]

方法一:

 

Dim ex As New Exporter
ex.SourceTableName = "表A" '指定导出表
ex.Header= False '去掉列名
ex.FilePath = "c:\" '指定目标文件路径
ex.Format ="Delimited" '导出格式为符号分割的文本文件
ex.NewTableName = "订单" '指定文件名,注意无须扩展名
ex.Export() '开始导出

Dim str As String = FileSys.ReadAllText("c:\订单.txt", Encoding.Default)
str = str.replace("""", "")
FileSys.WriteAllText("c:\订单.txt", str, False, Encoding.Default)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 11:15:00 [只看该作者]

方法二:

 

Dim str As String = ""
Dim t As Table = Tables("表A")
For Each r As Row In t.rows
    For Each c As Col In t.cols
        str &= r(c) & ","
    Next
    str = str.Trim(",") & vbcrlf
Next
FileSys.WriteAllText("d:\test.txt", str, False, encoding.default)


 回到顶部