Manejo de cadenas

Todas las funciones de manejo de cadenas en Visual Basic, como Left, Right, Instr, M i d y Len se puede utilizar en el editor de VB de nuestro Excel. El siguiente ejemplo ilustra el uso de todas estas funciones.

La función InStr

InStr es una función que busca y devuelve la posición de una cadena en una frase.

Private Sub cadena_InStr()

Dim frase As String

Dim Posición As Integer

frase = InputBox("Inserte una frase…")

Posición = InStr(frase, InputBox("Indique la letra de la que quiere averiguar su posición"))

MsgBox Posición

End Sub

La función  Left  (izquierda)

Left es una función que extrae los caracteres de una frase, empezando por la izquierda.

Left (frase, 4) significa que cuatro caracteres son extraídos del valor de variable frase, a partir de la posición más a la izquierda.

Private Sub CadenaLeft()

Dim frase As String

frase = "Esta es la prueba de la function Left"

MsgBox Left(frase, 4)

End Sub
　

Este código devuelve la cadena "Esta" de la frase "Esta es la prueba de la function Left"

La función Right (derecha)

Right es una función que extrae los caracteres de una frase, comenzando por la derecha.

Right (frase, 5) significa que cinco caracteres son extraídos de la variable frase, a partir de la posición más a la derecha.

Private Sub CadenaRight()

Dim frase As String

frase = "Esta es la prueba de la función Right"

MsgBox Right(frase, 5)

End Sub

Este código devuelve la cadena " Right " de la frase " Esta es la prueba de la función Right”

La función Mid

Mid es una función que extrae una cadena de una frase, a partir de la posición especificada por el segundo parámetro en el soporte.

Mid (frase, 8,3) significa que una serie de tres caracteres son extraídos de la frase, a partir de la 8 ª posición de la izquierda, incluido el espacio vacío.

Private Sub CadenaMid()

Dim frase As String

frase = "Esta es la prueba de la función Mid"

MsgBox Mid(frase, 12, 6)

End Sub

Este código devuelve la cadena "prueba" de la frase "Esta es la prueba de la función Mid"

La función Len

Len es una función que devuelve la longitud de una frase (incluido el espacio vacío entre los dos)

      Private Sub CadenaLen()

      Dim frase As String

      frase = "Esta es la prueba de la función Len"

      MsgBox Len(frase)

      End Sub

En este caso nos dará como resultado 35.