由于您正在写入“文本”文件,因此可以使用其他人建议的空格来完成正确排列文本的一种方法。这将要求您为每一列都有一个“定义的”列“宽度”。以您的图片为例,第 0 列(零)将是“设备类型”,我们可以为该列指定一个最大“宽度”……比如二十五 (25) 个字符宽。第 2 列“kwh”可以设置为每列的最大列宽为 15,依此类推。
随着“列宽”的建立,将填充字符串所需的 X 个空格添加到列宽应该是一件简单的事情。例如,为了确保第 2 列与下一个第 2 列对齐,每个第 1 列字符串必须具有相同的长度。通过用空格填充每个第 1 列字符串以将字符串“填充”到第 1 列的长度,将确保第 2 列的文本正确排列。显然,相同的逻辑适用于后续列。
该GetBufferedString
方法(如下)演示了一种将字符串缓冲到指定列宽的方法。该方法采用 string originalString
、 intmaxLength
和 justification 类型。该方法将返回一个长度字符串maxLength
,如果对齐类型为 LEFT,该方法将在给定字符串的末尾填充空格。如果对齐类型为 RIGHT,则该方法将返回一个字符串,maxLength
以便将空格添加到字符串的前面。最后,如果对齐类型是 CENTER,则该方法将返回一个字符串,其中一半空格在字符串前面,另一半在末尾。如果给定字符串的长度大于maxLength
,则返回的字符串将是maxLength
给定字符串的截断。
这应该使您能够独立设置每个列的对齐类型。下面的代码只是将每行对齐类型设置为右。
这是一个示例,我希望它有所帮助,但是不会对网格中实际列数和列宽数可能不匹配进行错误检查。
一些全局变量……一个整数数组columnLengths
用于保存每列的宽度……也是对齐类型的枚举;右,左,中。
Dim columnLengths(6) As Integer
Enum JustifyType
LEFT
RIGHT
CENTER
End Enum
设置每列的宽度...</p>
Private Sub FillColumnLength()
columnLengths(0) = 25
columnLengths(1) = 12
columnLengths(2) = 12
columnLengths(3) = 12
columnLengths(4) = 12
columnLengths(5) = 12
End Sub
更新的保存按钮单击事件以使用该GetBufferedString
方法。
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Dim numCols As Integer = dgvApplianceList.ColumnCount
Dim numRows As Integer = dgvApplianceList.RowCount - 1
Dim strDestinationFile As String = "D:\Test\exportappliance.txt"
Dim tw As TextWriter = New StreamWriter(strDestinationFile)
Dim textToOutput = ""
For count As Integer = 0 To numCols - 1
textToOutput = GetBufferedString(dgvApplianceList.Columns(count).HeaderText, columnLengths(count), JustifyType.CENTER)
tw.Write(textToOutput)
Next
tw.WriteLine()
For count As Integer = 0 To numRows - 1
For count2 As Integer = 0 To numCols - 1
textToOutput = GetBufferedString(dgvApplianceList.Rows(count).Cells(count2).Value, columnLengths(count2), JustifyType.RIGHT)
tw.Write(textToOutput)
Next
tw.WriteLine()
Next
tw.Close()
End Sub
最后,GetBufferedString
方法。
Private Function GetBufferedString(originalString As String, maxLength As Int16, justifyType As JustifyType) As String
If (originalString.Length < maxLength) Then
Dim bufString = Space(maxLength - originalString.Length)
Select Case justifyType
Case JustifyType.LEFT
Return originalString + bufString
Case JustifyType.RIGHT
Return bufString + originalString
Case JustifyType.CENTER
Dim halfString = bufString.Substring(bufString.Length / 2)
originalString = halfString + originalString
bufString = Space(maxLength - originalString.Length)
Return originalString + bufString
Case Else
Return ""
End Select
Else
Return originalString.Substring(0, maxLength)
End If
End Function
希望这可以帮助。