acortar texto
en ocasiones no queremos acortar el texto por cantidad de caracteres usando las funciones Left o Right, sino por cantidad de frases (divididas por puntos) o saltos de líneas, etc
Código ASP:
Ver original<%
Function CortarStr(TextoOrg)
i = 0
Set objRE = new RegExp
objRE.Pattern = "((([\wñáéíóú]+)\s)+([\wñáéíóú]+)\.(\s?))"
objRE.IgnoreCase = True
objRE.Global = True
Set objExe = objRE.Execute(TextoOrg)
For Each Coincidencia in objExe
If i <= 1 then
strAcortado = strAcortado & Coincidencia.Value
i = i +1
Else
Exit For
End If
Next
Set objExe = nothing
Set objRE = nothing
CortarStr = strAcortado
End Function
texto = "Este es un texto que está compuesto por varia frase. Solo nos interesa mostrar por pantalla dos. Aunque el texto continua. No se mostrará."
Response.Write CortarStr(texto)
%>
en este caso se acorta el texto cuando llega a la posición del segundo punto. si se quiere que se acorte en la posición del tercer punto, solo hay modificar el if. si quieres acortar el texto cada salto de línea hay que modificar la expresión regular