- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 导出的 txt ，字符列不要有 双引号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=106916)
-- 发布时间：2017/9/18 10:40:00
-- 导出的 txt ，字符列不要有 双引号
导出的 txt 格式，列是文本格式的，导出来 有带 “” ，怎么才能不要有 这个 “” 呢。。
此主题相关图片如下：微信截图_20170918103910.png
-- 发布时间：2017/9/18 10:57:00
--
是从excel表格导出来，我尝试着把 条码这个字符列换成 数字列，但是超出了。
-- 发布时间：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)
-- 发布时间：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)