Brandon Petersen

Here is a quick and dirty function that I grabbed from ( http://support.microsoft.com/kb/251354/ ). It does a nice job of replacing PHP’s convenient str_replace.

Private Function str_replace(ByVal strSource As String, _
ByVal strSearchFor As String, ByVal strReplace As String) As String
Dim lngPointer As Long, strNew As String
lngPointer = InStr(strSource, strSearchFor)
If lngPointer = 0 Then
ReplaceEntXMLSpecChar = strSource
Else
strNew = Left$(strSource, lngPointer - 1) & strReplace _
& Mid(strSource, lngPointer + 1, Len(strSource))
ReplaceEntXMLSpecChar = strNew
End If
End Function

This entry was posted on Thursday, May 31st, 2007 @ 9:17 am on the category General.

You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your site.