funcion en asp de manejo de strings

[zsamer]

alguna funcion que tome un texto y que mueste la cantidad de caracteres que yo quiera, ejm:

de un texto grande de la base de datos me muestre solo los 100 primeros caracteres o las 3 primeras fraces.

gracias

[Muzztein]

Es probable que alguien te de la respuesta masticada.

pero opto por dejarte algunas funciones para que las conozcas y aprendas.

Función Left
Devuelve un número de caracteres especificados desde la parte izquierda de una cadena.

Left(cadena, longitud)

Argumentos
cadena

Expresión de cadena de la que se devuelven los caracteres que están más a la izquierda. Si cadena contiene Null, se devuelve Null.

longitud

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 que el número de caracteres en cadena, se devuelve toda la cadena.

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

El siguiente ejemplo utiliza la función Left para devolver los tres primeros caracteres de MiCadena:

Dim MiCadena, LeftString
MiCadena = "VBSCript"
LeftString = Left(MiCadena, 3) ' LeftString contiene "VBS".
Nota La función LeftB se utiliza con datos de tipo byte contenidos en una cadena. En lugar de especificar el número de caracteres que se van a devolver, longitud especifica el número de bytes.

Función Split
Devuelve una matriz unidimensional con base cero que contiene un número de subcadenas especificado.

Split(expresión[, delimitador[, número[, comparar]]])

Argumentos
expresión

Necesario. 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 ni datos.

delimitador

Opcional. Carácter de cadena utilizado para identificar límites de subcadenas. Si se omite, se supone que el carácter de espacio (" ") es el delimitador. Si delimitador es una cadena de longitud cero, se devuelve una matriz de elemento único que contiene la cadena expresión completa.

número

Opcional. Número de subcadenas que se va a devolver; -1 indica que se devuelven todas las subcadenas.

comparar

Opcional. Valor numérico que indica el tipo de comparación que se va a utilizar cuando se evalúen subcadenas. Consulte la sección Valores para ver los valores.

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.


Comentarios
El siguiente ejemplo utiliza la función Split para devolver una matriz de una cadena. La función realiza una comparación textual del delimitador y devuelve todas las subcadenas.

Dim MiCadena, MiMatriz, Msj
MiCadena = "VBScriptXisXfun!"
MiMatriz = Split(MiCadena, "x", -1, 1)
' MiMatriz(0) contiene "¡Qué divertido".
' MiMatriz(1) contiene "es".
' MiMatriz(2) contiene "VBScript!".
Msj = MiMatriz(0) & " " & MiMatriz(1)
Msj = Msj & " " & MiMatriz(2)
MsgBox Msj

Función Join
Devuelve una cadena creada al combinar un número de subcadenas contenidas en una matriz.

Join(lista[, delimitador])

Argumentos
lista

Requerido. Matriz unidimensional que contiene subcadenas que se van a combinar.

delimitador

Opcional. Carácter de cadena utilizado para separar las subcadenas en la cadena de retorno. Si se omite, se utiliza el carácter de espacio (" "). Si delimitador es una cadena de longitud cero, todos los elementos de la lista están concatenados sin ningún delimitador.

Comentarios
El siguiente ejemplo utiliza la función Join para combinar las subcadenas de MiMatriz:

Dim MiCadena
Dim MiMatriz(3)
MiMatriz(0) = "Sr."
MiMatriz(1) = "Juan "
MiMatriz(2) = "Pérez "
MiMatriz(3) = "Rodríguez"
MiCadena = Join(MiMatriz) ' MiCadena contiene "Sr. Juan Pérez Rodríguez".

Suerte

[3pies]

Resumiendo :

Código:

'Para mostrar los primeros 100 caracteres
articulo_abreviado = left(rs("articulo"),100) & "..."
Response.write articulo_abreviado