字符串占用的长度相同

来源:百度知道 编辑:UC知道 时间:2024/06/09 14:37:48
dim str1 as string*10
当我把str1="aa"写入txt后,str1占10个位置:"aa ";
而当我把str1="超级玛丽"写入txt后,str1突出来了:
"aa ";
"超级玛丽 ";
请问,用什么函数可以让它们占用的长度相同,即:
"aa ";
"超级玛丽 ";

我在通过把数据输出到.txt文体,做成一个表时遇上上面的问题,它们占用的长度不同会影响表里的数据对齐.
我也想过加减空格,可怎么确定要加减多少个空格呢?给个代码吧.
谢谢lzh741206

Private Sub Form_Click()
s1 = "aa"
s2 = "超级玛丽"

Print fn(s1); "A"
Print fn(s2); "A"

End Sub

Public Function fn(ByVal s As String) As String
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) < 0 Then n = n + 1
Next i
fn = Format(s, "!" & String(10 - n, "@"))
End Function

加空格应该就行了