DataTable 到可读文本字符串

StackOverflow https://stackoverflow.com/questions/53652

  •  09-06-2019
  •  | 
  •  

题

这可能有点愚蠢，但我需要通过文本电子邮件发送数据表的内容（未知列、未知内容）。基本思想是循环行和列，并使用 .ToString() 将所有单元格内容输出到 StringBuilder 中。

但格式化是一个大问题。有关如何使其以文本格式看起来“可读”的任何提示/想法？

我正在考虑用空格“填充”每个单元格，但我还需要将一些单元格拆分为多行，这使得 StringBuilder 方法有点混乱（因为第一列中的第二行文本位于第一行之后）最后一列中的文本行等）

有帮助吗？

解决方案

将数据表转换为 HTML 表并发送 HTML 邮件是否可以作为替代方案？如果他们的客户支持的话，这会让接收端变得更好。

其他提示

这听起来像是一个非常糟糕的解决方案，但它可能会起作用：

将 DataTable 内容渲染到 DataGrid/GridView（假设是 ASP.NET）中，然后进行屏幕抓取。

我告诉过你这会很混乱。

首先获取每列的最大大小。这样，包含邮政编码的 varchar(255) 列就不会占用太多空间。

也许您可以拆分整个表格而不是拆分单行。将表格的完整右侧部分放入第二个字符串构建器中，并将其放在第一个表格下方。

您还可以为用户提供创建逗号分隔文本的选项，以便接收者可以将表格导入到电子表格中。

循环遍历数据表并将其作为 HTML 电子邮件发送 - 从数据表生成 html 表并将其作为电子邮件正文发送.

我通过专门为此任务编写一个自定义格式化程序来完成这项工作。该代码大约有 120 -130 行长，所以我不知道是否应该将其作为答案发布在这里（也许将 .cs 文件附加到主题的功能将是一个好主意！）。

无论如何，如果有人对此感兴趣，请告诉我，我将提供代码。

是否需要很好地格式化，或者自动化系统会在另一端接收邮件消息吗？如果是后者，只需使用数据表的 .WriteXml() 方法。

你可以这样做（如果是VB）：

Dim Str As String = ""
    'Create File if doesn't exist
        Dim FILE_NAME As String = "C:\temp\Custom.txt"
        If System.IO.File.Exists(FILE_NAME) = False Then
            System.IO.File.Create(FILE_NAME)
        End If

        Dim objWriter As System.IO.StreamWriter
        Try
            objWriter = New System.IO.StreamWriter(FILE_NAME)
        Catch ex As System.IO.IOException
            MsgBox("Please close the file: (C:\temp\Custom.txt) before proceeding" & vbCrLf & ex.Message.ToString, MsgBoxStyle.Exclamation)
            objWriter = Nothing
            Err = True
        End Try


'I assume you know how to write to text file.
'Say my datagridview is named "dgrid"

Dim x,y as integer

For x = 0 to dgrid.rows.count -1
    For y = 0 to dgrid.columns.count - 1
       Str = dgrid.Rows(x).Cells(y).Values & " "
   Next y
Next x

objWriter.Close()

资源.

或者你甚至可以生成一个 CSV 来自您的数据表的文件。

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top