Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

String Insertion Function?

Status
Not open for further replies.

dwessell

Programmer
Jan 26, 2006
114
US
I'm using VBA in Excel. And I have a string similar to "D99A". I would like to convert that string to "D099A". But I'm not finding a string insertion function, that let's me insert a string at pos x.. Can someone point me in the right direction?

Thanks
David
 




Hi,

"I have a string..."

In a CELL?

In a CONTROL?

Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
Replace(expression, find, replace[, start[, count[, compare]]])
 
Initially in a cell, but I'm moving the contents of that cell into a string variable.
 
yourString = "D99A"
newString = Left(yourString, 1) & "0" & Mid(yourString, 2)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886
 
Hey Skip....does it matter? A string manipulation is a string manipulation. To be manipulated it has to BE a string. Maybe I am missing something, but are not

Dim strYadda As String

strYadda = Excel cell text
strYadda = Word range.text
strYadda = userform.control.text

essentially identical, in terms of manipulating strYadda? It is a string.

ettienne, what would you use for the Find? Depending on what is actually required, it would be easy enough to use "99", as in:
Code:
Dim strIn As String
strIn = "D99A"
strIn = Replace(strIn, "99", "099", 1)
strIn is now "D099A". However, this is a hardcoded type of action. It is NOT an insertion at a specific point.

It replaces "99" with "099".

It does NOT insert "0" at the second character (a specific position), which is what the OP asked about.

"that let's me insert a string at pos x.. "

I do not know of a direct INSERT, but you can rebuild the string. To insert a "0" at character position 2:
Code:
Dim strIn As String
strIn = "D99A"

strIn = Left(strIn, 1) & "0" & _
   Right(strIn, Len(strIn) - 1)
It builds the string using the first character -
Left(strIn, 1)

the character you want to insert - "0"

and the rest of the string - Right(strIn, Len(strIn) - 1)

You can make a Function that will insert a string at a specific variable position, like so:
Code:
Function InsertAt(strIn As String, _
   strInsert As String, _
   j As Long) As String
   
InsertAt = Left(strIn, j - 1) & strInsert & _
   Right(strIn, Len(strIn) - (j - 1))
End Function


Sub testMe()
Dim StartString As String
Dim InsertedString As String
Dim Position As Long

StartString = "D99A"

InsertedString = InputBox("Enter the string to insert.")
Position = InputBox("Enter the position - from the left - " & _
   "for the inserted string.")

MsgBox InsertAt(StartString, InsertedString, Position)
End Sub
Obviously, the StartString could also be anything, taken from another inputbox, or a cell, or a previous Found piece of text (using .Find)...whatever.

Also, hopefully obvious, there should be proper error trapping! j can not be greater than the Len of the string.

faq219-2884

Gerry
My paintings and sculpture
 





Gerry,

Makes not a dime's worth of difference.

But at the time I was doing this 'drive-by', I was thinking about the SelStart, SelText, SelLength Forms properties.

Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
Gerry, why not simply this in your function ?
InsertAt = Left(strIn, j - 1) & strInsert & Mid(strIn, j)
 
That is why we love you PHV.

Why not indeed. Much better. I guess I was having my own drive-by...whatever the heck that means.

faq219-2884

Gerry
My paintings and sculpture
 




"Drive by"

While yer answerin' one question, a whole passel of 'em are commin' atch.

Skip,
[sub]
[glasses]Just traded in my old subtlety...
for a NUANCE![tongue][/sub]
 
I have a string similar to "D99A". I would like to convert that string to "D099A"

In the simplest form:
Dim Somestring as String
Somestring = "D99A"
Somestring = Replace(Somestring, "D99A", "D099A")

or you can get creative and replace D with D0, D9 with D09, 99 with 099, etc.

It all depends what the OP wants to do, the post is a bit vague, or not.
Otherwise Left, Mid and Right functions will do the trick.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top