Format Function

[Flustor]

I want to use the Format function to do the following:

sString = "Fred"
 
msgbox format(sString, "??????")

...in order that the output is a 6 character string with leading blanks. i.e. " Fred"

and:

sString = "Fred Bloggs"
 
msgbox format(sString, "??????")

...in order the the string is truncated. i.e. "Fred B"

is this possible using the Format function (I already know how to do this in other ways)?

Thanks in advance

Flustor

[plenderj]

Off-hand I think the easiest is to use the normal left$, right$ or mid$ functions.
It would be very easy with those.

I'm trying to figure out Format() for you though

[alex_read]

First one I can't do with the replace function, but this one works just as well:

Private Sub Form_Load()
    Dim sstring As String
    sstring = "Fred"
 
    Do Until Len(sstring) > 5
        sstring = "?" & sstring
    Loop
    
    MsgBox sstring
End Sub

[alex_read]

Second one:

Private Sub Form_Load()
    Dim sstring As String
    sstring = "Fred Bloggs"
 
    sstring = CStr(Left(sstring, InStr(sstring, " "))) & _
    CStr(Mid(sstring, InStr(sstring, " ") + 1, 1))
    
    MsgBox sstring
End Sub

[Flustor]

Thankyou Jimjam!

..and thankyou Alex

[plenderj]

MSDN mentions that you can use Format() to format your strings with string expressions... but doesn't give any examples

Best I can come up with so far I'm afraid

Private Sub Form_Load()
    Dim x As String: x = "Fred Bloggs"
    MsgBox makeLength(x, 6)
End Sub
 
 
Private Function makeLength(ByVal x As String, ByVal n As Long) As String
    If Len(x) > n Then
        makeLength = Left(x, n)
    Else
        makeLength = Space(n - Len(x)) & x
    End If
End Function

btw lucy, care to donate your cpu ident ?
http://www.vbforums.com/showthread.p...hreadid=211141

[Flustor]

Thanks Jimjam! V kind!

I was hoping I could use a config file for the formatting of numbers & text, like:

ConfigFile:
Field1=00000
Field2=000
Field3=??????

where Fields1&2 were numeric and field3, ASCII. This way I could read in data using the same command for formatting.

i.e.
sCurrentStringType="Field1"
sCurrentStringData=221
sCurrentStyle=00000

sResult = Format(sCurrentStringData, sCurrentStyle)

Looks like I'll have to use more than the Format command *sigh* nevermind.. it's not too much of a hassle

Thankyou lovely peeps!!

[plenderj]

Shouldn't be too hard!
I can give you a hand if you want

[Flustor]

I don't get offers like that everyday! No, thanks anyhoo

I'm quite happy writing it, just looking for shorter way of getting the job done

[FATBOYPEE]

Maybe out of Order (and not read the Q properly) but hope this helps:

Public Function Padtrim(sval As String, Optional replacechar As String)

If Len(sval) < 6 Then

  sval = Space(6 - Len(sval)) & sval

Else

  sval = Left(sval, 6)
  
End If


If replacechar <> "" Then

  sval = Space(Len(sval))
  
  sval = Replace(sval, " ", replacechar, 1, Len(sval))

End If

Padtrim = sval

Peeman