Search and replace a string.

Category:

String Manipulation

Type:

Snippets

Difficulty:

Beginning

Author:

Anonymous

Version Compatibility: Visual Basic 6, Visual Basic 5, Visual Basic.NET

More information:

Bulletproof code written in Visual Basic 2.0 for complete compatibility.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
None.

Code:

Function SandR (ByVal SearchString As String, ByVal LookFor As String, ByVal ReplaceWith As String) As String
    Rem +-----------------------------------------------------------------------+
    Rem |    SearchString    =   String to search.                              |
    Rem |    LookFor         =   String to look for within SearchString         |
    Rem |    ReplaceWith     =   What to replace SearchString                   |
    Rem |                                                                       |
    Rem |    Test=SandR("Mary Had a little lamb","a","aa")                      |
    Rem |                would return:                                          |
    Rem |            Maary Haad aa little laamb                                 |
    Rem |                                                                       |
    Rem |   Compatibility: Visual Basic 2.0                                     |
    Rem |                                                                       |
    Rem |       Programmed by: JamesTracy95820@hotmail.com                      |
    Rem |                                                                       |
    Rem +-----------------------------------------------------------------------+
    Rem +-----------------------------------+
    Rem |       Declair variables           |
    Rem +-----------------------------------+
    Dim LeftPart As String
    Dim RightPart As String
    Dim Location As Integer
    Dim LeftLocation As Integer
    Dim RightLocation As Integer
    Rem +-------------------------------+
    Rem |       Initilize variables     |
    Rem +-------------------------------+
    LeftPart = ""
    RightPart = ""
    Location = 0
    Rem ==========================================================
    If Len(LookFor) = 0 Then
        LeftPart = SearchString
    Else
        If LookFor = ReplaceWith Then
            LeftPart = SearchString
        Else
            If Len(SearchString) = 0 Then
                LeftPart = SearchString
            Else
                LeftPart = ""
                RightPart = SearchString
                Rem ============================================
                Do
                    Location = InStr(1, RightPart, LookFor, 0)  '   Case INsensitive
                    If Location = 0 Then
                        LeftPart = LeftPart + RightPart
                    Else
                        If Location = 1 Then
                            LeftPart = LeftPart + ReplaceWith
                            RightLocation = Location + Len(LookFor)
                            If RightLocation > Len(RightPart) Then
                                RightPart = ""
                            Else
                                RightPart = Mid(RightPart, RightLocation)
                            End If
                        Else
                            If Location >= 2 Then
                                LeftLocation = Location - 1
                                RightLocation = Location + Len(LookFor)
                                LeftPart = LeftPart + Left(RightPart, LeftLocation) + ReplaceWith
                                If RightLocation > Len(RightPart) Then
                                    RightPart = ""
                                Else
                                    RightPart = Mid(RightPart, RightLocation)
                                End If
                            End If
                        End If
                    End If
                Loop Until Location = 0
            End If
        End If
    End If
    SandR = LeftPart   '   Return string
End Function