removing 2 numbers from a string........

[Smie]

how would i go about removing the number '43' from a string? eg......



'Hello my na43me is bob'


i want to search the string and remove the number


thanks much!

[WadeD]

This will do it:[code]Dim sOldStr As String
Dim sNewStr As String

sOldStr = "Hello my na43me is bob" 'could replace this with sOldStr = Trim(Text1) where text1 has the string
sNewStr = Replace(sOldStr, "43", "")
MsgBox sNewStr

[BruceG]

Here's a more general approach to the problem that will remove ANY digits from a string (I don't know if you need this, but at the risk of overkill here goes):

Dim strOrigString As String
Dim strNewString As String
Dim strCurrChar As String
Dim intX As Integer
Dim intLen As Integer

' assume strOrigString contains "A1B2C3D4E5"
intLen = Len(strOrigString)
strNewString = ""
For intX = 1 To intLen
    strCurrChar = Mid$(strOrigString, intX, 1)
    If Instr("0123456789", strCurrChar) = 0 Then
        strNewString = strNewString & strCurrChar
    End If
Next
' strNewString should now be "ABCDE"

[Captain Pinko]

private function NoNum (YourString as String) as String
dim Temp as String
dim i as Integer
For i = 1 to len (YourString)
If IsNumeric (mid (YourString, i, 1)) = False then
Temp$ = Temp$ & mid (YourString, i, 1)
EndIf
Next i
NoNum = Temp$
EndSub

PS use type declaration characters so later you can remember what the datatype was.

[Captain Pinko]

it seems to have removed my spaces, causing my code to go retarded, I did format itnicely but that got undone, sorry again...

type-declaration-characters make the code look confusing,
and I usually specify the type of variables in the name...

Dim strMyVar As String
Dim intMyVar As Integer
Dim lngMyVar As Long
Dim dblMyVar As Double
Dim sglMyVar As Single
Dim ccyMyVar As Currency
Dim blnMyVar As Boolean
Dim vntMyVar As Variant
Dim paPoint As POINTAPI

Its called Hungarian Notation

[parksie]

For more information on Hungarian Notation, go here: http://forums.vb-world.net/showthrea...4363#post93187

[Sam Finch]

Captain Pinko

If you want your code to look formatted enclose it in Coade tags

write something like this
[code@]
Dim a As Integer 'There are lots of spaces before this comment
[/code@]

but remove the @ characters and it comes out like this

Dim a As Integer     'There are lots of spaces before this comment

check Here for other tags