13/03/2008, 17:50
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses Puntos: 98 | |
| Re: contar palabras y poner ...
No lo probe, pero trata con esto:
Código:
<%
Dim limite, cadena, arrCadena, CadenaArmada, i
limite = 20
Cadena = contingut_not
arrCadena=Split(cadena," ")
if isArray(arrCadena) then
for i = 0 to uBound(arrCadena)
if i < limite then
CadenaArmada = CadenaArmada & arrCadena(i) & " "
end if
next
CadenaArmada = left(CadenaArmada, len(CadenaArmada)-1) & "..."
response.write cadenaArmanda
else
Response.Write("Cadena vacia")
end if
%>
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |