Funciones

Esta definición fue extraída de la ayuda de Microsoft Excel 2003, idónea para ver el uso de la instrucción :  

Left (Función)

Devuelve un tipo Variant (String) que contiene un número especificado de caracteres del lado izquierdo de una cadena.

Sintaxis

Left(string, length)

La sintaxis de la función Left tiene estos argumentos con nombre:

Parte	Descripción
string	Requerido. Expresión de cadena de la cual se devuelven los caracteres que están más a la izquierda. Si string contiene Null, se devuelve Null.
length	Requerido, un tipo Variant (Long). Expresión numérica que indica cuántos caracteres se van a devolver. Si es 0, devuelve una cadena de longitud cero (""). Si es mayor o igual al número de caracteres en string, se devuelve la cadena entera.

Comentarios

Para determinar el número de caracteres en string, utilice la función Len.

Nota Utilice la función LeftB con datos de byte contenidos en una cadena. En lugar de especificar el número de caracteres que se van a devolver, length especifica el número de bytes.

Ejemplo de la función Left

En este ejemplo se utiliza la función Left para devolver un número especificado de caracteres del lado izquierdo de una cadena.

Dim UnaCadena, MiCadena
UnaCadena = "Hola Mundo"            ' Define la cadena.
MiCadena = Left(UnaCadena, 1)    ' Devuelve "H".
MiCadena = Left(UnaCadena, 6)    ' Devuelve "Hola M".
MiCadena = Left(UnaCadena, 10)    ' Devuelve "Hola Mundo". 

Right (Función)

Devuelve un tipo Variant (String) que contiene un número especificado de caracteres del lado derecho de una cadena.

Sintaxis

Right(string, lenght)

La sintaxis de la función Right tiene estos argumentos con nombre:

Parte	Descripción
string	Requerido. Expresión de cadena desde la cual se devuelven los caracteres que están más a la derecha. Si string contiene Null, se devuelve Null.
lenght	Requerido, un tipo Variant (Long). Expresión numérica que indica cuántos caracteres se van a devolver. Si es 0, se devuelve una cadena de longitud cero (""). Si es mayor o igual al número de caracteres en string, se devuelve la cadena completa.

Comentarios

Para determinar el número de caracteres en string, utilice la función Len.

Nota Utilice la función RightB con datos de byte incluidos en una cadena. En lugar de especificar el número de caracteres para devolver, longitud especifica el número de bytes.

Ejemplo de la función Right

En este ejemplo se utiliza la función Right para devolver un número especificado de caracteres de la parte derecha de la cadena.

Dim UnaCadena, MiCadena
UnaCadena = "Hola Mundo"        ' Define una cadena.
MiCadena = Right(UnaCadena, 1)    ' Devuelve "o".
MiCadena = Right(UnaCadena, 6)    ' Devuelve "Mundo".
MiCadena = Right(UnaCadena, 20)    ' ' Devuelve "Hola Mundo". 

Mid (Función)

Devuelve un tipo Variant (String) que contiene un número especificado de caracteres de una cadena.

Sintaxis

Mid(string, start[, length])

La sintaxis de la función Mid tiene estos argumentos con nombre:

Parte	Descripción
string	Requerido. Expresión de cadena de la cual se devuelven los caracteres. Si string contiene Null, se devuelve Null.
start	Requerido; un tipo Long. Posición de carácter en string en la cual comienza la parte que se quiere tomar. Si start es mayor que el número de caracteres en la string, Mid devuelve una cadena de longitud cero ("").
length	Requerido; un tipo Variant (Long). Número de caracteres que se van a devolver. Si se omite o en el texto hay menos de length caracteres (incluyendo el carácter de start), se devuelven todos los caracteres desde la posición de start hasta el final de la cadena.

Comentarios

Para determinar el número de caracteres en string, utilice la función Len.

Nota Utilice la función MidB con datos de byte incluidos en una cadena, como en los lenguajes de conjunto de caracteres de doble byte. En lugar de especificar el número de caracteres, los argumentos especifican el número de bytes. Para ver código de ejemplo que utiliza MidB, vea el segundo ejemplo en el tema de ejemplo.

Ejemplo de la función Mid

En este ejemplo se utiliza la función Mid para devolver un número especificado de caracteres de una cadena.

Dim MiCadena, PrimeraPalabra, UltimaPalabra, PalabraMedia 
MiCadena = "Demostración función Mid"  ' Crea la cadena de texto.
PrimeraPalabra = Mid(MiCadena, 1, 12)  ' Devuelve "Demostración".
UltimaPalabra = Mid(MiCadena, 21, 3)   ' Devuelve "Mid".
PalabraMedia = Mid(MiCadena, 14)    ' Devuelve "función Mid".

Este segundo ejemplo utiliza MidB y una función definida por el usuario (MidMbcs) para devolver también caracteres de una cadena. La diferencia en este ejemplo es que la cadena de entrada es ANSI y la longitud en bytes.

Function MidMbcs(ByVal str as String, start, length)
 MidMbcs = StrConv(MidB(StrConv(str, vbFromUnicode), 

start, length), vbUnicode)
End Function

Dim MiCadena
MiCadena = "AbCdEfG"
' Donde "A", "C", "E", y "G" son DBCS y "b", "d", 
' y "f" son SBCS.
MiNuevaCadena = Mid(MiCadena, 3, 4)
' Devuelve ""CdEf"
MiNuevaCadena = MidB(MiCadena, 3, 4)
' Devuelve ""bC"
MiNuevaCadena = MidMbcs(MiCadena, 3, 4)
' Devuelve "bCd" 

InStr (Función)

Devuelve un tipo Variant (Long) que especifica la posición de la primera aparición de una cadena en otra.

Sintaxis

InStr([start, ]string1, string2[, compare])

La sintaxis de la función InStr tiene estos argumentos:

Parte	Descripción
start	Opcional. Expresión numérica que establece la posición inicial para cada búsqueda. Si se omite, la búsqueda comienza en la posición del primer carácter. Si inicio contiene un valor Null, se produce un error. El argumento inicio se requiere si se especifica compare.
string1	Requerido. Expresión de cadena en la que se busca.
string2	Requerido. Expresión de cadena buscada.
compare	Opcional. Especifica el tipo de comparación de cadena. Si compare es Null, ocurre un error. Si se omite compare, el valor Option Compare determina el tipo de comparación. Especifica un LCID (LocaleID) válido para usar reglas específicas de configuración regional en la comparación.

Valores

Los valores del argumento compare son:

Constante	Valor	Descripción
vbUseCompareOption	-1	Realiza una comparación con los valores de la instrucción Option Compare.
vbBinaryCompare	0	Realiza una comparación binaria.
vbTextCompare	1	Realiza una comparación textual.
vbDatabaseCompare	2	Sólo para Microsoft Access. Realiza una comparación basada en la información en las bases de datos.

Valores devueltos

Si	La función InStr devuelve
string1 es de longitud cero	0
string1 es Null	Null
string2 es de longitud cero	start
string2 es Null	Null
string2 no se encontró	0
string2 se encontró dentro de string1	Posición en la que se halla la coincidencia
start > string2	0

Comentarios

La función InStrB se utiliza con los datos de byte contenidos en una cadena. En lugar de devolver la posición del carácter de la primera aparición de una cadena en otra, InStrB devuelve la posición del byte.

Ejemplo de la función InStr

En este ejemplo se utiliza la función InStr para devolver la posición de la primera ocurrencia de una cadena en otra.

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' Cadena en la que se busca.
SearchChar = "P"                    ' Se busca "P".
'Una comparación textual que comienza en la posición 4. 

Devuelve 6.
MyPos = Instr(4, SearchString, SearchChar, 1)    
'Una comparación binaria que comienza en la posición 1. 

Devuelve 9.
MyPos = Instr(1, SearchString, SearchChar, 0)
'La comparación es binaria por configuración predeterminada 

(si se omite el último argumento).
MyPos = Instr(SearchString, SearchChar)  ' Devuelve 9.
MyPos = Instr(1, SearchString, "W")   ' Devuelve 0.

LBound (Función)

Devuelve un tipo Long que contiene el subíndice más pequeño disponible para la dimensión indicada de una matriz.

Sintaxis

LBound(nombre_matriz[, dimensión])

La sintaxis de la función LBound consta de las siguientes partes:

Parte	Descripción
nombre_ matriz	Requerido. Nombre de la variable de matriz; sigue las convenciones de nombres estándar de variables.
dimensión	Opcional; Variant (Long). Número entero que indica a qué dimensión corresponde el límite inferior devuelto. Use 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si dimensión se omite, se supone que es 1.

Comentarios

La función LBound se usa junto con la función UBound para determinar el tamaño de una matriz. Use la función UBound para encontrar el límite superior de una dimensión matricial.

LBound devuelve los valores enumerados en la tabla siguiente para una matriz que tiene las siguientes dimensiones:

Dim A(1 To 100, 0 To 3, -3 To 4)

Instrucción	Valor devuelto
LBound(A, 1)	1
LBound(A, 2)	0
LBound(A, 3)	-3

El límite inferior predeterminado para cualquier dimensión es 0 ó 1, dependiendo de la configuración de la instrucción Option Base. La base de una matriz creada con la función Array es cero; esto no se ve afectado por Option Base.

Las matrices cuyas dimensiones se establecen mediante la cláusula To en una instrucción Dim, Private, Public, ReDim o Static pueden tener cualquier valor entero como límite inferior.

UBound (Función)

Devuelve un tipo Long que contiene el mayor subíndice disponible para la dimensión indicada de una matriz.

Sintaxis

UBound(nombre_matriz[, dimensión])

La sintaxis de la función UBound consta de las siguientes partes:

Parte	Descripción
nombre_ matriz	Requerido. Nombre de la variable de matriz; sigue las convenciones estándar de nombres de variable.
dimensión	Opcional; Variant (Long). Número entero que indica la dimensión cuyo límite superior se devolverá. Use 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si dimensión se omite, se supone que es 1.

Comentarios

La función UBound se utiliza junto con la función LBound para determinar el tamaño de una matriz. Use la función LBound para encontrar el límite inferior de la dimensión de una matriz.

UBound devuelve los valores enumerados en la tabla siguiente para una matriz con las dimensiones siguientes:

Dim A(1 To 100, 0 To 3, -3 To 4)

Instrucción	Valor devuelto
UBound(A, 1)	100
UBound(A, 2)	3
UBound(A, 3)	4

Type (Instrucción)

Se usa en el nivel de módulo para definir un tipo de datos definido por el usuario que contiene uno o más elementos.

Sintaxis

[Private | Public] Type nombre_variable
nombre_elemento [([subíndices])] As tipo
[nombre_elemento [([subíndices])] As tipo]
. . .

End Type

La sintaxis de la instrucción Type consta de las siguientes partes:

Parte	Descripción
Public	Opcional. Se usa para declarar tipos definidos por el usuario que están disponibles para todos los procedimientos en todos los módulos de todos los proyectos.
Private	Opcional. Se usa para declarar tipos definidos por el usuario que sólo están disponibles dentro del módulo donde se hace la declaración.
nombre_ variable	Requerido. Nombre del tipo definido por el usuario; sigue las convenciones estándar de nombres de variable.
nombre_ elemento	Requerido. Nombre de un elemento del tipo definido por el usuario. Los nombres de elementos también siguen las convenciones estándar de nombres, excepto en que se pueden utilizar palabras clave.
subíndices	Cuando no se declara explícitamente en inferior, el límite inferior de una matriz se controla mediante la instrucción Option Base. El límite inferior es cero si no hay ninguna instrucción Option Base.
tipo	Requerido. Tipo de datos del elemento; puede ser Byte, Boolean, Integer, Long, Currency, Single, Double, Decimal (no admitida actualmente), Date, String (para cadenas de longitud variable), String * length (para cadenas de longitud fija), Object, Variant, otro tipo definido por el usuario o un tipo de objeto.

Comentarios

La instrucción Type sólo puede utilizarse en el nivel de módulo. Una vez que ha declarado un tipo definido por el usuario con la instrucción Type, puede declarar una variable de ese tipo en cualquier lugar dentro del alcance de la declaración. Use Dim, Private, Public, ReDim o Static para declarar una variable de un tipo definido por el usuario.

En los módulos estándar y módulos de clase, los tipos definidos por el usuario son públicos de manera predeterminada. Esta visibilidad se puede cambiar mediante la palabra clave Private.

Números de línea y etiquetas de línea no están permitidos en bloques Type...End Type.

Los tipos definidos por el usuario se utilizan a menudo con registros de datos, los cuales consisten frecuentemente en una serie de elementos relacionados de diferentes tipos de datos.

En este ejemplo se muestra el uso de matrices de tamaño fijo en un tipo definido por el usuario:

Type DatosRegión
    CógigoCiudad (1 To 100) As Integer    ' Declara una matriz estática.
    Condado As String * 30
End Type

Dim Washington(1 To 100) As DatosRegión

En el ejemplo anterior, DatosRegión incluye la matriz estática CódigoCiudad y el registro Washington tiene la misma estructura que DatosRegión.

Cuando declara una matriz de tamaño fijo dentro de un tipo definido por el usuario, sus dimensiones deben declararse con literales numéricos o constantes en lugar de variables.

Split (Función)

Descripción

Devuelve una matriz de una dimensión, basada en ceros, que contiene un número especificado de subcadenas.

Sintaxis

Split(expresión[, delimitador[, contar[, comparar]]])

La sintaxis de la función Split consta de los siguientes argumentos con nombre:

Parte	Descripción
expresión	Requerido. Una expresión de cadena que contiene subcadenas y delimitadores. Si expresión es una cadena de longitud cero (""), Split devuelve una matriz vacía, es decir, una matriz sin elementos y sin datos.
delimitador	Opcional. El carácter de la cadena utilizado para identificar los límites de la subcadena. Si se omite, se supone que el carácter de espacio (" ") es el delimitador. Si el delimitador es una cadena de longitud cero, se devuelve una matriz de un único elemento que contiene la cadena expresión entera.
contar	Opcional. El número de subcadenas que se devolverán; –1 indica que se devuelven todas las subcadenas.
comparar	Opcional. Un valor númerico que indica la clase de comparación que se realizará cuando se evalúen las subcadenas. Vea la sección Valores para consultar los valores posibles.

Valores

El argumento comparar puede tener los valores siguientes:

Constante	Valor	Descripción
vbUseCompareOption	–1	Realizar una comparación utilizando el valor de la instrucción Option Compare.
vbBinaryCompare	0	Realizar una comparación binaria.
vbTextCompare	1	Realizar una comparación basada en el texto.
vbDatabaseCompare	2	Sólo para Microsoft Access. Realizar una comparación basada en la información de su base de datos.

Abrir Archivos 

Abrir archivos en VB6 o Visual for Applications 

Sintaxis

Open rutaacceso [For modo] [Access acceso] [bloquear] As [#]númeroarchivo [Len=longitudregistro]

La sintaxis de la instrucción Open consta las siguientes partes:

Parte	Descripción
rutaacceso	Requerido. Expresión de cadena que especifica un nombre de archivo; puede incluir el directorio o carpeta y la unidad de disco.
modo	Requerido. Palabra clave que especifica el modo de archivo: Append, Binary, Input, Output o Random. Si no se especifica, el archivo se abre con acceso Random.
acceso	Opcional. Palabra clave que especifica las operaciones permitidas en el archivo abierto: Read, Write o Read Write.
bloquear	Opcional. Palabra clave que especifica las operaciones permitidas en el archivo abierto por otros procesos: Shared, Lock Read, Lock Write y Lock Read Write.
númeroarchivo	Requerido. Un número de archivo válido entre 1 y 511 inclusive. Para obtener el número del siguiente archivo disponible se utiliza la función FreeFile.
longitudregistro	Opcional. Número igual o inferior a 32.767 bytes. En archivos abiertos para acceso aleatorio, este valor es la longitud del registro. Para archivos secuenciales, este valor es el número de caracteres almacenados en búfer.

Comentarios

Antes de poder ejecutar una operación de E/S en un archivo, éste debe estar abierto. Open asigna un búfer para operaciones de E/S con el archivo y determina el modo de acceso que se debe utilizar con el búfer.

Si el archivo especificado con rutaacceso no existe, se crea al abrir un archivo en los modos Append, Binary, Output o Random.

Si el archivo ya lo ha abierto otro proceso y no se permite el tipo de acceso especificado, la operación Open fracasa y se produce un error.

La cláusula Len se ignora si modo es Binary.

Importante   En los modos Binary, Input y Random se puede abrir un archivo utilizando un número de archivo distinto sin necesidad de cerrarlo antes. En los modos Append y Output debe cerrar el archivo para poder abrirlo con un número de archivo distinto.

Ejemplo
 

Open "C:\Users\estudiante2\Desktop\Prueba.txt" For Input As #1
While Not EOF(1)
    Line Input #1, VALOR
MsgBox VALOR
Wend
Close #1