REPLACE 0 with space

[sal21]

I have this:
....
dim myVar as string
myVar "00014"
....

i need to replace only the left zero with space

in my case

" 14"

[HansV]

Code: Select all

    Dim MyLen As Long
    MyLen = Len(MyVar)
    MyVar = CStr(Val(MyVar))
    MyVar = Space(MyLen - Len(MyVar)) & MyVar

[sal21]

Code: Select all

    Dim MyLen As Long
    MyLen = Len(MyVar)
    MyVar = CStr(Val(MyVar))
    MyVar = Space(MyLen - Len(MyVar)) & MyVar

sorry Hans,
but my really prob is to align item correct in combobox,
I have arranged a code in old your reply here:
http://www.eileenslounge.com/viewtopic. ... lit=+align

... my actual code:

Code: Select all

With Me.SOSP
        .Clear
        For I = 1 To Y

            MIASTRINGA = Val(Left(ARR_SOSP(I), 5))
            strLine = Space(5 - Len(MIASTRINGA)) & MIASTRINGA
            Debug.Print strLine & Mid(ARR_SOSP(I), 6, 48)
            .AddItem strLine & Mid(ARR_SOSP(I), 6, 48)
            
            DoEvents
        Next I

    End With

For test i see all correct in immediate window but not in combobox!!!!

[HansV]

You have to set the font for the combo box to a fixed-width font such as Courier New.

[sal21]

You have to set the font for the combo box to a fixed-width font such as Courier New.

now work....
But i dont like Courier New, i use in my all project Arial

[HansV]

Arial, like Times New Roman, is a variable-width font. It will be virtually impossible to align the text correctly if you use a variable-width font.
Instead of Courier New, you could use Consolas, a newer fixed-width font from Microsoft:

S0593.png

[Jay Freedman]

Another fixed-width font that might be suitable is Lucida Sans Typewriter.

[BenCasey]

Hi,
Using the Replace function can substitute 1 or more characters with 1 or more others.
eg:-

Code: Select all

MyVar = Replace(MyVar,"0"," ") ' replace 0 with single space

As for lining up correctly, see Hans' suggestions.

NB. This function will replace all 0's not just the leading ones.