Remplazar caracteres de un string - 30 de Noviembre 2012 - Solo codigos

Bienvenido(a) Visitante | RSS

Mi sitio

Inicio » 2012 » Noviembre » 30 » Remplazar caracteres de un string

9:42 PM

Remplazar caracteres de un string

Function ReplaceString(ByVal strSearch As String, ByVal strSearchFor As String, ByVal strReplaceWith As String) As String
        Try
            '--> Busca la variable del strSearch para strSearchFor y la substituye por el strReplaceWith.
            Dim lngFoundLoc As Long    ' Location of match.
            Dim lngLenRemove As Long   ' Length of string being replaced.
            '--> Fije la longitud del texto original para saltar.
            lngLenRemove = Len(strSearchFor)
            '--> Fije la localización match.
            lngFoundLoc = InStr(1, strSearch, strSearchFor)
            '--> Si strSearchFor isn't encontrado en vuelta justa del strSearch la secuencia original.
            If lngFoundLoc = 0 Then
                ReplaceString = strSearch
                '--> Si se encuentra el match, vuelva la secuencia original hasta la localización del match, concatene el nuevo texto, y busque el resto de la secuencia recurrentemente para fósforos adicionales.
            Else
                ReplaceString = Left(strSearch, lngFoundLoc - 1) & _
                    strReplaceWith & _
                    ReplaceString(Mid(strSearch, lngFoundLoc + _
                    lngLenRemove), strSearchFor, strReplaceWith)
            End If
exit_ReplaceString:
            Exit Function
            '--> Imprima el error para eliminar errores de la ventana y de la pregunta de la interrupción de don't.

        Catch ex As Exception
            MsgBox("Error Replacing String """ & _
                strSearchFor & """ with """ & _
                strReplaceWith & """ in text """ & _
                strSearch & """")
            '--> Si hay un error, vuelva la secuencia original y salga de la función.
            ReplaceString = strSearch

        End Try
    End Function