vb中如何通过后面添加空字符补齐字符串的长度

您所在位置：社区首页 — Visual Basic讨论区 — vb中如何通过后面添加空字符补齐字符串的长度

主题：vb中如何通过后面添加空字符补齐字符串的长度

rockys [专家分：0] 发布于 2008-05-26 14:28:00

现在要求给一个变量赋值一串固定长度的字符串，但是原来的字符串长度不定，请问如何实现？
如：str要求是8个字符的变量
str=text1.text
而text1.text按照输入的长度不定，可能是两个字符，也可能是三个，所以要求把str后面加空字符到8个字符长度。

沙发

老大徒伤悲 [专家分：29120] 发布于 2008-05-26 14:32:00

l=len(str1)
if l<8 then
str1=str1 & spc(8-l)
else
str=left(str1,8)
endif

板凳

rockys [专家分：0] 发布于 2008-05-26 14:35:00

多谢！

3 楼

一江秋水 [专家分：9680] 发布于 2008-05-27 07:10:00

也可以这样：
str1=Left(text1 & Space(8),8)
简单一些

4 楼

老大徒伤悲 [专家分：29120] 发布于 2008-05-27 08:52:00

恩，秋水的代码简洁，执行效率似乎也好点！
佩服！

5 楼

tanchuhan [专家分：15140] 发布于 2008-05-27 10:50:00

Private Sub Command1_Click()
    Dim s As String * 8
    s = Text1.Text
    Debug.Print "[" & s & "]"
End Sub

6 楼

老大徒伤悲 [专家分：29120] 发布于 2008-05-27 11:09:00

嘿嘿，他的前提就是“不定长字符串”阿

7 楼

tanchuhan [专家分：15140] 发布于 2008-05-27 11:25:00

晕，做这种考试题看来俺还是没有什么天赋

您尚未登录，请登录后再回复。点此登录或注册