导出文本数据如何不带双引号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Products As List(Of String)

Products = DataTables("导入txt").GetValues("代码")

For Each Product As String In Products

Dim ex As New Exporter

ex.SourceTableName = "导入txt" '指定导出表

ex.FilePath = "c:\Data\" '指定目标文件路径

ex.Format = "Delimited" '导出格式为符号分割的文本文件

ex.NewTableName = "data_trainer_" & Product.ToString '指定文件名，注意无须扩展名

ex.Filter = "代码 = '" & Product.ToString & "'"

ex.Header = False

ex.Export() '开始导出

MessageBox.Show(Product.ToString)

如何指定文本不带双印号如何指定文本是UTF8

可以是可以建议增加导出文本的通用函数

[此贴子已经被作者于2022/12/29 10:49:06编辑过]

Private Function ExportToTxt(ByVal Table As System.Data.DataTable, ByVal fullName As String) As Boolean

Dim iColumnLength As Integer() = New Integer(Table.Columns.Count - 1) {}

Dim fileStream As FileStream = New FileStream(fullName, FileMode.Create)

Dim streamWriter As StreamWriter = New StreamWriter(fileStream, System.Text.Encoding.Unicode)

Dim strBuilder As StringBuilder = New StringBuilder()

For i As Integer = 0 To Table.Columns.Count - 1

Dim iLength As Integer = 0

For j As Integer = 0 To Table.Rows.Count - 1

If iLength < (Table.Rows(j)(i).ToString()).Length Then

iLength = (Table.Rows(j)(i).ToString()).Length

End If

iColumnLength(i) = iLength

For i As Integer = 0 To Table.Rows.Count - 1 - 1

For j As Integer = 0 To Table.Columns.Count - 1

Dim str1 As String = Table.Rows(i)(j).ToString()

Dim iLength As Integer = str1.Length

Dim iColumnWidth As Integer = iColumnLength(j) + 4

For k As Integer = iLength To iColumnWidth - 1

str1 += " "

If j = Table.Columns.Count - 1 Then

strBuilder.AppendLine(str1)

Else

strBuilder.Append(str1)

End If

streamWriter.WriteLine(strBuilder.ToString())

streamWriter.Close()

fileStream.Close()

Return True

End Function

哪位老大完善以下上边的函数要求可以指定是否带“ ” 可以指定分隔符

主题：导出文本数据如何不带双引号