Pad a String

[Markus W.]

Ok, I can write it my own, but is there a VB function to 'left pad' a string?

e.g. "A" -> "000A"

something like: LeftPad("A","0",4)

[cksiow]

not that I know of, I do write my own.

HTH

cksiow
http://vblib.virtualave.net - share our codes

[shree]

A one line solution is
Strng = "A"
NewStr = StrReverse(Left$(Strng & String$(4, "0"), 4))

[shree]

Sorry, a slight amendment
Strng = "AB"
NewStr = StrReverse(Left$(StrReverse(Strng) & String$(4, "0"), 4))

[Iouri]

sString = "A"
msgbox Format(sString,"0000") -> will give you "000A"

Iouri Boutchkine
iouri@hotsheet.com

[shree]

You're always better...

[Iouri]

Don't be shy. We all have something to learn from you.
By the way welcome in VBCodeLibrary Forum.
Good luck.

Iouri Boutchkine
iouri@hotsheet.com

[Markus W.]

I have tried this, but get "A" and not "000A" ????

[Iouri]

Try
msgbox Format$(sString,"0000")


Iouri Boutchkine
iouri@hotsheet.com

[Iouri]

Anptherr solution

Dim s As String
Dim sLeadingZeroes As String

sLeadingZeroes = "0000"
s = "A"

MsgBox Left(sLeadingZeroes, Len(sLeadingZeroes) - Len(s)) & s


Iouri Boutchkine
iouri@hotsheet.com

[Markus W.]

Sorry - I have tried this, but still get "A" and not "000A" ?
Does it work in your environment that way?

[Cimperiali]

Try This:

Dim mytext as string * 4
RSet mytext = Text1.Text
mytext = Replace(mytext, " ", "0")
Text1.Text = mytext




Special thanks to Lothar "the Great" Haensler, Tom Archer, Chris Eastwood, Bruno Paris and all the other wonderful people who made and make Codeguru a great place. Come back soon, you Gurus.