以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎样用代码实现导出TXT，字符串列没有双引号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=81765)
--  作者：limit_1982
--  发布时间：2016/3/5 0:06:00
--  怎样用代码实现导出TXT，字符串列没有双引号

怎样用代码实现导出TXT，“字符串列”没有双引号，要加什么啊   先谢了

 

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

 
--  作者：Hyphen
--  发布时间：2016/3/5 10:49:00
--  
如果列是字符型的导出默认就是有双引号的
--  作者：limit_1982
--  发布时间：2016/3/5 11:18:00
--  
系统自带导出字符串列是没有双引号哦
--  作者：Hyphen
--  发布时间：2016/3/5 11:32:00
--  
可能他们的处理方式不是一样的
--  作者：大红袍
--  发布时间：2016/3/6 11:59: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)