topic Re: right justify a string in VBA Forum

right justify a string

Anonymous — Tue, 03 Apr 2007 19:34:09 GMT

Hopefully there is an easy answer to this question but I'm at a lose for the
moment.

Dim X As String * 10

X = "1.000"

I want X to equal " 1.000"

Thanks!

Joe ...

Re: right justify a string

mdhutchinson — Tue, 03 Apr 2007 20:03:29 GMT

... doesn't work to simply embed a space?
X = " 1.0000"

Re: right justify a string

Anonymous — Tue, 03 Apr 2007 20:18:21 GMT

Nope, but I came up with this solution. Watch out for word-wrapping!

Joe ...

Public Function RightJustifyFixedLengthString(FixedLengthString As String)
As String
FixedLengthString = Right(FixedLengthString, Len(FixedLengthString) -
Len(RTrim(FixedLengthString))) & RTrim(FixedLengthString)
End Function

Public Sub Test()
Dim FixedLengthString As String * 10
FixedLengthString = "1.000"
RightJustifyFixedLengthString FixedLengthString
Debug.Print FixedLengthString
End Sub

wrote in message news:5540385@discussion.autodesk.com...
... doesn't work to simply embed a space?
X = " 1.0000"

Re: right justify a string

Ed__Jobe — Tue, 03 Apr 2007 21:21:59 GMT

Hi Joe. Should the function return the value, like this:
[code]
Public Function RightJustifyFixedLengthString(FixedLengthString As String) As String
RightJustifyFixedLengthString = Right(FixedLengthString, Len(FixedLengthString) - _
Len(RTrim(FixedLengthString))) & RTrim(FixedLengthString)
End Function[/code]

Also, this worked for me. It padded two spaces in front.
[code]
FixedLengthString = "1.000"
FixedLengthString = " " & FixedLengthString[/code]
You would just have to calculate how many spaces to use. Granted, that might take more code than what you came up with, but it just seemed like you were saying that adding spaces didn't work.

Re: right justify a string

Anonymous — Wed, 04 Apr 2007 00:54:03 GMT

Ed,

That's what my code does. It takes the len of the whole string - the length
of the actual string = the amount of space needed. Then concate the actual
string to the pad and that's it.

Joe ...

wrote in message news:5540481@discussion.autodesk.com...
Hi Joe. Should the function return the value, like this:
[code]
Public Function RightJustifyFixedLengthString(FixedLengthString As String)
As String
RightJustifyFixedLengthString = Right(FixedLengthString,
Len(FixedLengthString) - _
Len(RTrim(FixedLengthString))) & RTrim(FixedLengthString)
End Function[/code]

Also, this worked for me. It padded two spaces in front.
[code]
FixedLengthString = "1.000"
FixedLengthString = " " & FixedLengthString[/code]
You would just have to calculate how many spaces to use. Granted, that might
take more code than what you came up with, but it just seemed like you were
saying that adding spaces didn't work.

Re: right justify a string

Ed__Jobe — Wed, 04 Apr 2007 14:27:00 GMT

Yes, I knew that, but I think I misread Hutch's response and therefore what you were saying "Nope" to. Sorry.

Re: right justify a string

Anonymous — Wed, 04 Apr 2007 15:16:59 GMT

Not a problem, I appreciate the feedback.

Joe ...

wrote in message news:5541209@discussion.autodesk.com...
Yes, I knew that, but I think I misread Hutch's response and therefore what
you were saying "Nope" to. Sorry.