Dim ex As New Exporter
ex.SourceTableName = "AtdRecord88" '指定导出表
ex.FilePath = "D:\Reports\" '指定目标文件路径
ex.Format = "Delimited" '导出格式为符号分割的文本文件
ex.Fields = "CardNo,RecDate,RecTime"
ex.NewTableName = "20161206" '指定文件名,注意无须扩展名
ex.Export() '开始导出
Dim str As String = FileSys.ReadAllText("D:\Reports\20161206.txt", Encoding.Default)
str = str.Replace("""", "")
str = str.Replace(",", " ")
FileSys.WriteAllText("D:\Reports\20161206.txt", str, False, Encoding.Default)
加好友 
发短信
Post By：2016/12/6 11:47:00 [显示全部帖子]
