substr en asp

[maralbust]

hola a todos, tengo la sgte duda y problema

substr es una funcion de php que sirve para sacar una cadena de texto entro un princio y un fin dado por nosotros. como puedo hacer esto mismo en asp???

substr ( string cadena, int comienzo , [int longitud] )
esto seria la forma de trabajo de substr




saludos

[ostayde]

podrias usar la funcion split de asp, la misma separa el contenido de una cadena de caracteres, aunque no tan exctamente como la hace la función substr.

Si especificaras mas que deseas hacer con esa función substr, seria de mas ayuda

[maralbust]

la idea es tomar un texto desde la BD, y como es muy largo solo colocar un pedaso del total

solo para que tengan un a referencia

se entiende?

saludos

[Alexis_m20]

podrias poner lo siguinte

cadena = Left(TuCampo, 30) & " ..."

Response.write Cadena


esto te trae desde la posicion uno hasta la treinta

[ostayde]

Una vez que tengas el texto de la base de datos le aplicas la función split, de la siguiente manera:

<%

memo=RS("Texto") //texto extraido de la base de datos

array_texto=split(memo,"") // las dos comillas simple es el "delimitador" de la cadena en este caso seria el espacio, en caso de ser una fecha separada por / seri "/".

luego de dicha operación, todo el texo quedara en el array_texto de una manera separada, en este caso por palabra, y lo podras acceder de la siguiente manera

parte_del_texto=array_texto(0)+""+array_texto(1)+" "+array_texto(2) // de esta manera tomarias las primeras tres palabras. tambien puedes tomar las ultimas o la cantidad de palabras que desees.

Espero te sirva



%>

[JuanRAPerez]

o usa esta funcion que estaba en el foro

yo la cambie a mi antojo pero espero te sirva

<%
'
Dim DimencionesCadena, CortarEn
Function CortarCadena(CadentaTXT,CortarEn)
CortarEn = cInt(CortarEn)
DimencionesCadena = Len(CadentaTXT)
CadentaTXT = Replace(server.HTMLEncode(CadentaTXT),vbCrlf,"<br> ")
if DimencionesCadena > CortarEn then
CadentaTXT = left(CadentaTXT,CortarEn) & " ..."
end if
CortarCadena = CadentaTXT
End Function
%>

[maralbust]

gracias a todos, la idea de Alexis_m20 funciono como queria.

gracias a todos.