文字の０埋め

初心者です 2004-04-09 20:48:40 No: 82966

文字列埋めについての質問です。
例えば、３桁の数値列を、０埋めして、１０桁にして表示をする場合は、
数値列の文字数を取得して、１０桁になるまでループさせて０を埋めていくのでしょうか？
Replaceのような関数で全部で１０桁で、数値列(３桁)以外は０埋めといったコマンドがあるんでしょうか？
ご教授お願いします。

うにぃ 2004-04-09 20:58:14 No: 82967

いろいろありますが、たとえば

s="0000000000"
s=s & "100"
s=s & Right$(s,10)

などはいかがでしょうか

から 2004-04-09 21:23:58 No: 82968

Formatを使用すれば...

Text1.Text="123"
Label1.Caption=Format(text1.Text,"0000000000")

GOD 2004-04-09 22:10:07 No: 82969

桁数が固定されていないのならString関数を使用すれば簡単ですよ。

Private Sub Command1_Click()
Dim Keta As Long
Dim DmyStr As String

    Keta = 10   '目的の桁数
    DmyStr = "123"
    Debug.Print Right(String(Keta, "0") & DmyStr, Keta)
End Sub