一个字符长度的问题，帮助我吧

Question

我写了一个程序，功能是输出文本并要求每列对齐
比如输出3列：[name]    [age]
            老王       20
            a        18我设定了每列数据的固定长度是5，
比如第1行第1列的“老王   ”，加上“老王”后面的空格总长度为5
第2行第1列的“a    ”,加上空格总长度也是5，
但这样输出到文本文件，[name]列后面的[age]列的数据会出现如上不对齐的情况，我想要对齐
怎么办呢，该怎么处理。求教
SOS

Answer 1

用窗体的.TextWidth属性计算长度，再换算出要加几个空格

Answer 2

你的做法不对，应该是这样先用lenb ( strconv( "老王", vbfromunicode ) )算出来一个结果，再用 string( ) 函数对齐。

Answer 3

Option ExplicitPrivate Function myAlign(ByVal str1 As String, ByVal str2 As String, ByVal spaces As Long) As String
    On Error GoTo errhandle
    
    Dim s As String
    
    s = str1 & String(spaces - LenB(StrConv(str1, vbFromUnicode)), " ") & str2
    myAlign = s
    Exit Function
errhandle:
    Err.Clear
End Function
Private Sub Command1_Click()
    Debug.Print myAlign("汉字", "英文", 20)
    Debug.Print myAlign("汉字111", "fdsa", 20)
    Debug.Print myAlign("222", "英文", 20)
    Debug.Print myAlign("54325423", "英5432文", 20)
    Debug.Print myAlign("汉5432字", "英654文", 20)
    Debug.Print myAlign("6543汉字", "5432英文", 20)
    Debug.Print myAlign("汉字54325", "英5432文", 20)
    Debug.Print myAlign("汉xxx字", "54325423", 20)
    Debug.Print myAlign("汉xx字", "54325423", 20)
    Debug.Print myAlign("xx汉字", "5423", 20)
    Debug.Print myAlign("汉xx字", "xcxxxx", 20)
    Debug.Print myAlign("汉x字", "bbb", 20)
    Debug.Print myAlign("xxxxxxxxxx", "bbbbbbbbb", 20)
End Sub

Answer 4

Option ExplicitPrivate Function myAlign(ByVal str1 As String, ByVal str2 As String, ByVal spaces As Long) As String
    On Error GoTo errhandle
    
    Dim s As String
    
    s = str1 & String(spaces - LenB(StrConv(str1, vbFromUnicode)), " ") & str2
    myAlign = s
    Exit Function
errhandle:
    Err.Clear
End Function
Private Sub Command1_Click()
    Debug.Print myAlign("[name]", "[age]", 20)
    Debug.Print myAlign("老大", "15", 20)
    Debug.Print myAlign("张三", "20", 20)
    Debug.Print myAlign("Jenny", "4", 20)
    Debug.Print myAlign("Fiona", "2", 20)
End Sub

Answer 5

  用Tab对齐  不好吗?    计算空格 不嫌烦啊!!

Answer 6

每个字符后面留的空格数不一样，空格数等于用5减去每个数据所占用的字节数 lenb ( strconv( "老王", vbfromunicode ) )

Answer 7

想对齐, 用TAB是最科学的啦:)    Open "实验.txt" For Binary As #1
    Put #1, , "老王" & vbTab
    Put #1, , 20 & vbTab
    Put #1, , vbCrLf
    Put #1, , "a" & vbTab
    Put #1, , 18 & vbTab
    Put #1, , vbCrLf
    Close