HELP: Simple recursive function

[VB Programmer]

I am trying to create a function which strips out ALL occurances of a
particular phrase in a string. It returns the cleaned up string. I gave it
an argument of "1###2###3###4". When it finally gets to the Return
statement it DOES return the correct thing, but by the time it finally
"unravels" it returns nothing. Any ideas????

Private Function StripOutPounds(ByVal strMsg As String) As String
Try
Dim s As String

' strip out every occurance of "###"
If strMsg.IndexOf("###") <> -1 Then ' if an occurance exists
' get everything to the left
s += strMsg.Substring(0, strMsg.IndexOf("###"))
' get everything to the right
s += strMsg.Substring(strMsg.IndexOf("###") + 4)
s = StripOutServerMessage(s)
Else ' return cleaned up message
Return strMsg
End If
End Function

[VB Programmer]

Never mind. Instead of "s = StripOutServerMessage(s)" I put "Return
StripOutServerMessage(s)" and it worked!

Thanks.

"VB Programmer" <gr*********@go-intech.com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

I am trying to create a function which strips out ALL occurances of a
particular phrase in a string. It returns the cleaned up string. I gave it an argument of "1###2###3###4". When it finally gets to the Return
statement it DOES return the correct thing, but by the time it finally
"unravels" it returns nothing. Any ideas????

Private Function StripOutPounds(ByVal strMsg As String) As String
Try
Dim s As String

' strip out every occurance of "###"
If strMsg.IndexOf("###") <> -1 Then ' if an occurance exists ' get everything to the left
s += strMsg.Substring(0, strMsg.IndexOf("###"))
' get everything to the right
s += strMsg.Substring(strMsg.IndexOf("###") + 4)
s = StripOutServerMessage(s)
Else ' return cleaned up message
Return strMsg
End If
End Function

[Cor]

Hi VB programmer,

Why not

return replace(strMsg,"###","")

is that not something more simple?

Cor

I am trying to create a function which strips out ALL occurances of a
particular phrase in a string.

[Cowboy \(Gregory A. Beamer\)]

For this particular example, I am wondering why you did not do something
like:

Private Function StripOutPounds(ByVal strMsg As String) As String

Return strMsg.Replace("###","")

End Function

Unless you are trying to use recursion, the Replace method is much simpler.
Perhaps:

strMsg.Replace("#","")

is better.

--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA

************************************************** ********************
Think Outside the Box!
************************************************** ********************
"VB Programmer" <gr*********@go-intech.com> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

I am trying to create a function which strips out ALL occurances of a
particular phrase in a string. It returns the cleaned up string. I gave it an argument of "1###2###3###4". When it finally gets to the Return
statement it DOES return the correct thing, but by the time it finally
"unravels" it returns nothing. Any ideas????

Private Function StripOutPounds(ByVal strMsg As String) As String
Try
Dim s As String

' strip out every occurance of "###"
If strMsg.IndexOf("###") <> -1 Then ' if an occurance exists ' get everything to the left
s += strMsg.Substring(0, strMsg.IndexOf("###"))
' get everything to the right
s += strMsg.Substring(strMsg.IndexOf("###") + 4)
s = StripOutServerMessage(s)
Else ' return cleaned up message
Return strMsg
End If
End Function

[Herfried K. Wagner [MVP]]

* "VB Programmer" <gr*********@go-intech.com> scripsit:

s += strMsg.Substring(0, strMsg.IndexOf("###"))

Only FYI: In VB.NET, it's recommended to use the '&' or '&=' operator
to concatenate strings.

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>