Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/02/2005, 11:03
Avatar de Muzztein
Muzztein
 
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 22 años, 8 meses
Puntos: 16
Exclamación

checa esto

Cita:
Función inStr
Devuelve la posición de la primera aparición de una cadena dentro de otra.

InStr([inicio, ]cadena1, cadena2[, comparar])

Argumentos
inicio

Opcional. Expresión numérica que establece la posición de inicio para cada búsqueda. Si se omite, la búsqueda comienza en la primera posición del carácter. Si inicio contiene Null, se produce un error. El argumento inicio es necesario si se especifica comparar.

cadena1

Requerido. Expresión de cadena que se busca.

cadena2

Requerido. Expresión de cadena que se busca.

comparar

Opcional. Valor numérico que indica el tipo de comparación que se utilizará cuando se evalúen subcadenas. Consulte la sección Valores para ver los valores. Si se omite, se realiza una comparación binaria.

Valores
El argumento comparar puede tener los siguientes valores:

Constante Valor Descripción
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación textual.


Valores de retorno
La función InStr devuelve los siguientes valores:

Si InStr devuelve
cadena1 es de longitud cero 0
cadena1 es Null Null
cadena2 es de longitud cero inicio
cadena2 es Null Null
cadena2 no se encuentra 0
cadena2 se encuentra dentro de cadena1 Posición en la que se encuentra la coincidencia
inicio > Len(cadena2) 0


Comentarios
Los siguientes ejemplos utilizan InStr para buscar una cadena:

Dim SearchString, SearchChar, MiPos
SearchString ="XXpXXpXXPXXP" ' Cadena en la que buscar.
SearchChar = "P" ' Se busca "P".
MiPos = Instr(4, SearchString, SearchChar, 1) ' Una comparación textual
' que comienza en la posición 4. Devuelve 6.
MiPos = Instr(1, SearchString, SearchChar, 0) ' Una comparación binaria
' que comienza en la posición 1. Devuelve 9.
MiPos = Instr(SearchString, SearchChar) ' La comparación es binaria ' de forma predeterminada
' (se omite el último argumento).
' Devuelve 9.
MiPos = Instr(1, SearchString, "W") ' Una comparación binaria
' comienza en la posición 1.
' Devuelve 0 ("W" no se encuentra).
Nota La función InStrB se utiliza con datos de tipo byte contenidos en una cadena. En lugar de devolver la posición del carácter de la primera aparición de una cadena dentro de otra, InStrB devuelve la posición de byte.


Cita:
Función Mid
Devuelve un número de caracteres especificado de una cadena.

Mid(cadena, inicio[, longitud])

Argumentos
cadena

Expresión de cadena de la que se devuelven caracteres. Si cadena contiene Null, se devuelve Null.

inicio

Posición del carácter en cadena en la que comienza la parte que se va a tomar. Si inicio es mayor que el número de caracteres en cadena, Mid devuelve una cadena de longitud cero ("").

longitud

Número de caracteres que se va a devolver. Si se omite o si existen menos caracteres del número especificado por longitud en el texto (incluido el carácter en inicio), se devuelven todos los caracteres desde la posición de inicio hasta el final de la cadena.

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

El siguiente ejemplo utiliza la función Mid para devolver seis caracteres, a partir del cuarto carácter, de una cadena:

Dim MiVar
MiVar = Mid("¡Qué divertido es VB Script!", 6, 9) ' MiVar contiene "divertido".
Nota La función MidB se utiliza con datos de tipo byte contenidos en una cadena. En lugar de especificar el número de caracteres, los argumentos especifican el número de bytes.
con LEN, MID, INSTR y un FOR estaras preparado.


Última edición por Muzztein; 21/02/2005 a las 11:04