Formatting Text

[SmokinWrek]

OK, I've got a program in which I am writing out fixed-length records to a file opened for Output. Some of the fields in the record are numbers calculated within the program. I need to output these numbers into a fixed length field and have leading zeroes.

Example: calculated value is 4000 but I want that in a 5 byte field with leading zeroes so it looks like 04000 in the field.


How can I accomplish this? I can get it to be in a fixed length field by defining the length of the string variable used for that field, but then I get the number left justified without the leading zero, i.e. - 4000 <---note trailing space after last zero.

I've tried using the Format function, but either I don't know enough about it or it can't do what I want.

Any ideas?

 

[SleepDepD]

Is this what you're looking for:

Private Function FormatNumTo5Chars(strTest As String) As String
  FormatNumTo5Chars = String$(5 - Len(strTest), "0") & strTest
End Function

 

[SleepDepD]

Oops...you'd have to had for if it's longer than 5 digits:

Private Function FormatNumTo5Chars(strTest As String) As String
  [b]If Len(strTest) > 5 Then
    FormatNumTo5Chars = strTest
  Else[/b]
    FormatNumTo5Chars = String$(5 - Len(strTest), "0") & strTest
  [b]End If[/b]
End Function

 

[SleepDepD]

Aghhh..."handle" not "had".
...(let's see how many times I can reply to my own posts)...

 

[SmokinWrek]

SleepDepD,

Thanks for the responses, but I was hoping to avoid having to do something like that for every field that needs it.

Fortunately I found out a bit more about the Format function, and I got it to do what I need (I was just missing some quote marks around my format).

Here's what I'm using:

Format(Boxsize,"00000")


Thanks for the quick reply.

 

[Swi]

You got it right Kevin.

Swi