Recoriendo memo y cortando...

[sanfermin]

Hola, amoss a ver... la idea es poder cortar una cada de texto de longitud X a los X caracteres sin cortar una palabra x la mitad...

es decir:

"En un lugar de la Mancha, de cuyo nombre no quiero acord..."

en lugar de:

"En un lugar de la Mancha, de cuyo nombre no quiero acordarme..."

como recorro la variable q contiene el texto de palabra en palabra?

supongo q será con un bucle desde 0 hasta la longitud total de la variable de texto: len(variable)

pero en ASP?

[u_goldman]

Qué tal algo así:

<%
variable= "En un lugar cuyo nombre no quiero acordarme"

arrPalabra= split(variable, " ")

contar_caracter=0
maximo_numero= 30
mi_frase= ""
For i=0 to uBound(arrPalabra)
contar_caracter= contar_caracter + len(arrPalabra(i))
If not contar_caracter > maximo_numero Then
mi_frase= mi_frase & " " & arrPalabra(i)
Else
Exit For
End If
Next
Response.Write(mi_frase & "...")
%>

No lo he probado pero debería de funcionar

Salu2,

[sanfermin]

Gracias, la he puesto bonita y todo:


<%

function cortar(texto,maximo_numero)

' Sintaxis: cortar (texto,maximo_numero)
' texto = cadena de texto
' maximo_numero = número de caracteres a mostrar
' al final se añaden 3 puntos "..."
' Función para vuestro disfrute por u_goldman y sanfermin
' www.portalurbano.com
' no quites estas lineas :)


Dim ArrPalabra 'Array con las palabras
Dim contar_caracter 'Posición con la q se recorre el array
Dim texto_nuevo 'Guardamos el texto reformateado y cortado

'Convierto los retornos de carro y las tabulaciones en espacios
texto = Replace (texto, VbCr, " ")
texto = Replace (texto, VbLf, " ")
texto = Replace (texto, VbCrLf, " ")
texto = Replace (texto, VbTab, " ")
'Elimino el espacio en blanco de antes y después
texto = Trim(texto)
'Recorro la cadena y voy reduciendo los múltiples espacios a uno solo
while InStr(1, texto, " ", 1)
texto = Replace(texto, " ", " ")
wend

arrPalabra= split(texto, " ")

contar_caracter=0
texto= ""
For i=0 to uBound(arrPalabra)
contar_caracter= contar_caracter + len(arrPalabra(i))
If not contar_caracter > maximo_numero Then
texto_nuevo = texto_nuevo & " " & arrPalabra(i)
Else
Exit For
End If
Next
cortar = texto_nuevo & "..."

end function


texto= "En un lugar cuyo nombre no quiero acordarme"

response.write(cortar(texto,30))

%>

[u_goldman]

Perfecto!!

[sanfermin]

es posible hacer esto mediante SQL???


si dentro del campo existen sentencias en HTML

<a href="www.kink.es">link</a>

como hacer para no cortarlo?

[sanfermin]

Retomando el tema y más simplificado... esta vez como necesitaba que en cada texto/noticia se cortara de un punto diferente busco la cadena [END] dentro del texto q delimitará el punto a cortar la noticia:

Código:

' Busca en la cadena la marca [END] y la corta
' made in PortalUrbano.com xD

function CortarNoticia(cadena1)
	cadena = cstr(cadena1)
	cadena = split(cadena,"[END]",-1,1)
	if ubound(cadena) = 0 then
		CortarNoticia = cstr(cadena1)
	else
		CortarNoticia = cadena(0) & "..."
	end if
end function ' ----------------