Question

VB 用空格填充 字符串 使其固定长度 ，填充后为什么不一样长呢？

Answer 1

你的意思应该是字符串宽度不一样吧

记事本默认是Fixedsys字体，一个中文字符或者全角符号占2个位置

刚写了个函数给你参考

Private
Function
formatstring(ByVal
s
As
String,
ByRef
length
As
Integer)
As
String

Dim
tmp
As
String

Dim
l
As
Integer

'获取s的真实长度

l
=
LenB(StrConv(s,
vbFromUnicode))

If
l
>
length
Then

'如果给过来的字符串太长,就截掉

s
=
LeftB(s,
length)

'重新计算截取后的字符串长度

l
=
LenB(StrConv(s,
vbFromUnicode))

End
If

'补充空格对齐

s
=
s
&
Space(length
-
l)

formatstring
=
s
End
Function