如何将一个字符串按照规定的长度输出？不足的在右边补空格。谢谢

Question

如题

Answer 1

例如固定输出10位：dim a as string
a='abc'
print "a='" & left(a & '         ',10) & "'"

Answer 2

写了个过程给你
sub FormatString(Str as string, StrLen as long )
dim I as long 
I=len(str)
if I > Strlen then Str=left(Str, Strlen )
if I < String then Str=Str & Space(Strlen-I)
End sub
使用方法：
假设原来的字符串为：“111222”，需要的长度为10
'Str="111222"
FormatString Str,10
'Str="111222    " ,原来为六个字符，补了四个空格假设原来的字符串为：“111222333”，需要的长度为5
'Str="111222333"
FormatString Str,5
'Str="11122"，原来为九个字符，砍掉四个

Answer 3

dim a as string
a='abc'
print "a='" & left(a & '         ',10) & "'"

Answer 4

我试过了，不行呀。特别是数字和汉字混合在一起的时候，在textbox中的长度根本不一样的，还有没有高手呀？

Answer 5

很简单，设置一个定长字符串就行了Dim rStr as string * 30'想要多少的长度直接修改数字30
rStr = "ABC"实际输出rStr是"ABC"加上27个空格，如果字符超出30，只保存前30位

Answer 6

同意楼上dim test as string*10
test="abcdefg"
text1.text=test

Answer 7

//如果中英文混合 如何知道到底该不几个空格？？？Dim test As String
test = "测试test"
Text1.Text = test & Space(10 - LenB(StrConv(test, &H80)))