看流星社区

 找回密码
 注册账号
查看: 3712|回复: 3

[VB] 帮忙看下字符串前补0怎么处理,谢谢

[复制链接]

该用户从未签到

发表于 2011-4-5 10:29:31 | 显示全部楼层 |阅读模式
我想把一个3位的字符串补足4位,如“sss”补为“0sss”既在前面补0,请问怎么处理

该用户从未签到

发表于 2011-4-5 10:29:52 | 显示全部楼层
Len(字符型)  这个 返回字符串的长度

知道这个上面的问题应该解决了

用个循环来补0取长度

该用户从未签到

发表于 2011-4-5 10:30:04 | 显示全部楼层
我也是菜鸟,看了上面的兄弟的指点,写了下,帮忙看看对不对
Private Sub Command1_Click()
  Dim a As String
  a = "s"
  Print a
   
  If Len(a) < 4 Then
    Do While Len(a) < 4
      a = "0" + a
    Loop
  End If
  Print a

End Sub

该用户从未签到

发表于 2011-4-5 10:30:21 | 显示全部楼层
dim d as string
d=format("aaa","0000")
msgbox d
结果 0aaa
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-3-28 17:07

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表