以文本方式查看主题

-  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=51325)
--  作者：luodang2050
--  发布时间：2014/5/24 13:00:00
--  导出txt符号去除
如题，导出表格某一字段“网址”，但是导出后所有值都带双引号“”，请问怎么去除呢？
--  作者：Bin
--  发布时间：2014/5/24 13:03:00
--  
测试没这个问题,是否你本身就有双引号.
--  作者：luodang2050
--  发布时间：2014/5/24 13:09:00
--  
值如下，导出结果网址总是加双引号
http://www.szjsjy.com.cn/BusinessInfo/JYXXDetails.aspx?gcbh=4403002012062007&flag=Hyxx&close=yes
以下是代码：
If FileSys.FileExists("D:\\Personal\\Desktop\\市内交易关注网址.txt") Then
    \'Messagebox.Show("文件已经存在!","提示")
    FileSys.DeleteFile("D:\\Personal\\Desktop\\市内交易关注网址.txt",2,2) \'则彻底删除之
Else
    \' Messagebox.Show("文件不存在或已经被删除!","提示")
End If
Dim ex As New Exporter
ex.SourceTableName = "ZBGG_SNJY_SG_GZ" \'指定导出表
\'ex.Filter=
ex.Fields="链接网址"
ex.FilePath = "D:\\Personal\\Desktop\\" \'指定目标文件路径
ex.Format = "Delimited" \'导出格式为符号分割的文本文件
ex.NewTableName = "市内交易关注网址" \'指定文件名,注意无须扩展名
ex.Header = 0
ex.Export() \'开始导出
--  作者：Bin
--  发布时间：2014/5/24 14:28:00
--  
用代码导出确实如此,用系统菜单没问题.

或者你可以用如下代码.

Dim s As String =DataTables("a").GetComboListString("链接网址").Replace("|",vbcrlf)
FileSys.WriteAllText("C:\\abc\\室内交易关注网址.txt",s,False)
--  作者：luodang2050
--  发布时间：2014/5/24 15:00:00
--  
用超版这代码又简洁，又灵活，收藏了，谢谢