主题：[灌水] 如何让Output的显示效果排整齐点

'这个System.Text.Encoding.Default.GetByteCount可以解决

Dim n1,n2,n3 As Integer
Dim str As String
For Each dc As DataCol In DataTables("表A").DataCols
    n1=System.Text.Encoding.Default.GetByteCount(dc.name)
    If n1>n2 Then
        n2=n1
    End If
Next
For Each dc As DataCol In DataTables("表A").DataCols
    n1=System.Text.Encoding.Default.GetByteCount(dc.name)
    str = "第 " & format(n3,"000") & " 列:  "
    str &= "【" & dc.name & left("                 ",n2-n1) & "】"
    str &=  "  的字符个数是:   " &  dc.name.length
    n3 +=1
    Output.Show(str)
Next

不需要空格，但多用了一个函数的计算开销！

另一思路，改进为只用一个循环！显示结果一样！

Dim n1,n2,n3,n As Integer
Dim str As String
n=20 '设定最大列名长度是10个中文字符,一般不会大过这个数吧^v^
For Each dc As DataCol In DataTables("表A").DataCols
    n1=System.Text.Encoding.Default.GetByteCount(dc.name)
    If n1>n2 Then
        n2=n1
    End If
    str &= "第 " & format(n3+1,"000") & " 列:  "
    str &= "【" & dc.name & left(Space(n),n-n1)& "】"
    str &=  "  的字符个数是:   " &  dc.name.length & vbcrlf
    n3 +=1
Next
Output.Show(str.Replace("】".PadLeft(n-n2+1),"】"))