看流星社区 › 其它编程技术 › 帮忙看下字符串前补0怎么处理，谢谢

树上爬的猪 发表于 2011-4-5 10:29:31

帮忙看下字符串前补0怎么处理，谢谢

我想把一个3位的字符串补足4位，如“sss”补为“0sss”既在前面补0，请问怎么处理

debra 发表于 2011-4-5 10:29:52

Len(字符型)这个 返回字符串的长度

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

用个循环来补0取长度

fjx16852318 发表于 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

scjazf 发表于 2011-4-5 10:30:21

dim d as string
d=format("aaa","0000")
msgbox d
结果 0aaa

查看完整版本: 帮忙看下字符串前补0怎么处理，谢谢