导出SQL数据，文本文件

Question

我如何对齐地址1导出到文本文件vb.net后很好

Dim sDtFile As String = "" 
 

 
     sDtFile = Format(Today, "yyyy") & Format(Today, "MM") & Format(Today, "dd") 
 
     Dim writer As StreamWriter = New StreamWriter("C:\Users\yymok\Desktop\RJL\test_" & sDtFile & ".txt") 
 

 
     If gvResult.Rows.Count > 0 Then 
 
      writer.WriteLine("") 
 
      writer.WriteLine("{0,15} {1,14} {2,16} {3,14} {4,25}", "Customer Name", "Customer No", "Chinese Name", "IC No", "Address1") 
 
      writer.WriteLine("-------------------------------------------------------------------------------------------------------------------") 
 

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

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

 
        writer.Write(vbTab & gvResult.Rows(i).Cells(j).Value.ToString() & vbTab & "|") 
 

 
       Next 
 
       writer.WriteLine("") 
 
       writer.WriteLine("-------------------------------------------------------------------------------------------------------------------") 
 

 
      Next 
 
     End If 
 
     writer.Close() 
 
     MessageBox.Show("Data Exported")

Answer 1

您可以使用字符串格式化功能你用于标题。声明格式的字符串数组的外循环：

Dim formatStrings = {"{0,15}", "{1,14}", "{2,16}", "{3,14}", "{4,25}" 

然后，你的循环中，您可以使用基于列相应的格式字符串：

writer.Write(formatStrings(j) & " | ", gvResult.Rows(i).Cells(j).Value)