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
Next
iColumnLength(i) = iLength
Next
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 += " "
Next
If j = Table.Columns.Count - 1 Then
strBuilder.AppendLine(str1)
Else
strBuilder.Append(str1)
End If
Next
Next
streamWriter.WriteLine(strBuilder.ToString())
streamWriter.Close()
fileStream.Close()
Return True
End Function
加好友 
发短信
Post By：2022/12/28 21:57:00 [只看该作者]
高！