string question: how to append x zeros to get fixed lenght string?

[bart plessers]

Hi,

I have a counter i
Now I want to derive a fixed lenght string from this counter :
1 -> "00000001"
52 -> "00000052"
12896 -> "00012896"

What is the fastest way to do this?
This is part of a recursive subroutine, so the command will be executed
quite a lot.

Any suggestions?

tia

bartp
--

==========================================
Hyper A.R.T.
bart plessers
Paul Van Ostaijenlaan 4
3001 Heverlee
BELGIUM
tel: [phone]
fax: [phone]
==========================================

[Bob Barrows]

bart plessers wrote:

Hi,

I have a counter i
Now I want to derive a fixed lenght string from this counter :
1 -> "00000001"
52 -> "00000052"
12896 -> "00012896"

What is the fastest way to do this?
This is part of a recursive subroutine, so the command will be
executed quite a lot.

Any suggestions?

tia

bartp

newstring = right("000000000" & i,9)

[jason kennedy]

hmmmm

use len perhaps. you want 8 digits

my_len = len(my_counter)

my_len = 8 - my_len

for a = 1 to my_len
my_prefix = my_prefix & "0"
next

response.write my_prefix & my_counter

something like that would do it
i'm sure ray will have a one line solution, but he is heading for deity
status and i'm not

:P

jason

"bart plessers" <ba**********@hotmail.com> wrote in message
news:OE**************@TK2MSFTNGP10.phx.gbl...

Hi,

I have a counter i
Now I want to derive a fixed lenght string from this counter :
1 -> "00000001"
52 -> "00000052"
12896 -> "00012896"

What is the fastest way to do this?
This is part of a recursive subroutine, so the command will be executed
quite a lot.

Any suggestions?

tia

bartp
--

==========================================
Hyper A.R.T.
bart plessers
Paul Van Ostaijenlaan 4
3001 Heverlee
BELGIUM
tel: [phone]
fax: [phone]
==========================================

[Chris Hohmann]

"Bob Barrows" <re*******@yahoo.com> wrote in message
news:uu*************@tk2msftngp13.phx.gbl...

bart plessers wrote:

Hi,

I have a counter i
Now I want to derive a fixed lenght string from this counter :
1 -> "00000001"
52 -> "00000052"
12896 -> "00012896"

What is the fastest way to do this?
This is part of a recursive subroutine, so the command will be
executed quite a lot.

Any suggestions?

tia

bartp

newstring = right("000000000" & i,9)

newstring = Right("0000000" & i,8)

;-p

[Ray at]

I'd put it in a function.

Function PadInt(iNum, iPadLength)
PadInt = Right(String(iPadLength, "0") & Cstr(iNum), iPadLength)
End Function

Response.write PadInt(34234, 8)

:P

Ray at home
--
Will trade ASP help for SQL Server help
"Chris Hohmann" <hohmannATyahooDOTcom> wrote in message
news:OA**************@TK2MSFTNGP10.phx.gbl...

"Bob Barrows" <re*******@yahoo.com> wrote in message
news:uu*************@tk2msftngp13.phx.gbl...

bart plessers wrote:

Hi,

I have a counter i
Now I want to derive a fixed lenght string from this counter :
1 -> "00000001"
52 -> "00000052"
12896 -> "00012896"

What is the fastest way to do this?
This is part of a recursive subroutine, so the command will be
executed quite a lot.

Any suggestions?

tia

bartp

newstring = right("000000000" & i,9)

newstring = Right("0000000" & i,8)

;-p

[Chris Hohmann]

"Ray at <%=sLocation%>" <myfirstname at lane34 dot com> wrote in message
news:Oh**************@tk2msftngp13.phx.gbl...

I'd put it in a function.

Function PadInt(iNum, iPadLength)
PadInt = Right(String(iPadLength, "0") & Cstr(iNum), iPadLength)
End Function

Response.write PadInt(34234, 8)

In my prior post I was making a (overly) subtle point about wasting 0's.
Back in my day, we didn't even have 1's and 0's. We have to use l's and
O's and only the executives got keyboards. The rest of us had to tap out
binary on the keyboard port.

Function PadInt(iNum, iPadLength)
PadInt = Right(String(iPadLength - 1, "0") & Cstr(iNum), iPadLength)
End Function

-Chr15