Unidad 4. VBA. Más estructuras (XVII)



Funciones para manejo de texto

=Left(Texto,NChar)

Esta función permite extraer los primeros "NChar" caracteres de la cadena "Texto"

=Right(Texto, NChar)

Contrario a la anterior, esta función permite extraer de la cadena "Texto", los úiltimos "NChar" caracteres.

=Mid(Texto, Init, NChar)

Esta función permite extraer de Texto,  "NChar" caracteres a partir del carácter "Init"

=Instr(Texto1, Texto2,[Inicial])

Esta función devuelve la posición inicial en que se encuentra la cadena Texto2, dentro de la cadena Texto1. Esto lo hace examinando a partir de la posición Inicial.

Ejemplo

Sub Apellidos_Y_Nombres()

 

Texto = InputBox("Ingresa tus apellidos y nombres (Ap Am, Nombres)")

ApPaterno = Left(Texto, InStr(Texto, " "))

ApMaterno = Mid(Texto, InStr(Texto, " "), Len(Texto) - InStr(Texto, ",") - 6)

Nombres = Right(Texto, Len(Texto) - InStr(Texto, ","))

 

MsgBox ApPaterno

MsgBox ApMaterno

MsgBox Nombres

 

End Sub

Noviembre-2010
Pág. 4.17

Atrás  Inicio  Adelante





Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies