String manipulation

[week]

I have a variable that is something like "7". If I need it to be "007", how do I do that? I think there is some function to do this, isn't there? I am just not that familiar with the string manipulation in VB....thanks.

 

[ca8msm]

You can use the format function. i.e.

Private Sub Form_Load()
Dim strTest As String
strTest = 7
strTest = Format(strTest, "000")
MsgBox strTest
End Sub

----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[pdbowling]

If you are sure that "7" is a string you can use

myVar = "7"
myString = "00" & myVar

you can type case "7" to a string also if it is not

CStr(7)
PB

 

[week]

Well,

I need to give you guys few more info.

1. 7 is defined as Integer. c8amsm, would this be problem using your method?

2. 7 could be 17 or 117..meaning it could be one, two, or three digit. But my final output need to be in four digit. It doesn't have to be Integer...

Sorry for not making this clear at the beginning.

Thanks.

 

[ca8msm]

If it is defined as an an integer then yes it would be a problem as the integer value of 007 would be 7 and thisis what would be displayed.

I would consider making it a string or defining a second variable which is a string and using that one.

The code will work correctly regardless of whether it is 1,2 or 3 digits. Simply change the amount of 0's if you need any more adding.

----------------------------------------------------------------------

Need help finding an answer?

Try the search facilty (

http://www.tek-tips.com/search.cfm)

or read FAQ222-2244 on how to get better results.

 

[week]

Suppose terr is integer. Will this work? Unfortunately, I can't test this and hope this is correct before I put it out there.

Dim lcTerr As String
lcTerr = Format(terr, "0000&quot

Thanks again.

 

[CCLINT]

have a look at the String() and Len() functions

 

[nickske80]

The code that ca8msm used will work.

Option Explicit

Private Sub Form_Load()
Dim intVar As Integer

intVar = 57

Label1.Caption = Format(intVar, "000&quot

End Sub

I hope this helps you.

 

[zemp]

The format function will take any data type. I use it for dispaly purposes because leading zero's are usually dropped by number variables anyway. Here is a typical funtion that you could use,

text1=Format(<myvariable>,&quot;###000&quot

This will ensure that youe value is aleways at least 3 charaters long. The &quot;#&quot; is a numeric placeholder that will not be displayed, but will allow a value up to 6 charaters (in this case). For example,

7 becomes &quot;007&quot;
17 becomes &quot;017&quot;
1117 becomes &quot;1117&quot;
etc.

Thanks and Good Luck!

zemp

 

[CCLINT]

Or that...

 

[CCLINT]

Seems like alot of cross posts happenning...sorry people...

 

[zemp]

That happens when multiple responses are being done at the same time. On the other hand it's good to have consensus.

Thanks and Good Luck!

zemp