Localizar elementos en una cadena

Fecha: 31/Ago/97
Autor: Juan Espinós

From: "Juan Espinós" [email protected]
Date sent: Wed, 6 Aug 1997 15:39:05 +0200

Hola, os envío una función que a lo mejor encontráis útil.

Se trata de de una función para localizar elementos en una cadena que está
separada por un mismo carácter o caracteres.
Puede ser útil para localizar y separar palabras en una frase o para
almacenar en un sólo campo de base de datos varios conceptos separados.

Este es el código:

Public Function Palabra(Texto As String, Separador As String, Cual As Integer) As String

    Dim Buscar As Integer    ' Devuelve la subcadena que
    Dim x As Integer         ' se encuentra en "Texto"
    Dim Vuelta As String     ' separada por "Separador"
    Dim Texto1 As String     ' en la posicion "Cual"

    Buscar = 1
    Texto1 = Texto

    For x = 1 To Cual
        Texto1 = Mid(Texto1, Buscar + 1)
        Buscar = InStr(Texto1, Separador)
        If Buscar = 0 Then
            Vuelta = ""
            Palabra = Vuelta
            Exit Function
        End If
    Next

    Vuelta = Mid(Texto1, 1, Buscar - 1)
    Palabra = Vuelta

End Function