contar palabras y poner ...

[engonga]

hola tengo un script que lo que me hace es contar las palabras de una cadena y motrarme parte del contenido

Código PHP:

  <%Cadena=contingut_not
limite = 20
arrCadena=Split(cadena," ")
If UBound(arrCadena) <= limite then
Response.Write Join(arrCadena, " ")
 o directamente: Response.Write cadena
Else
For i =0 to limite
Response.Write arrCadena(i)& " "
Next

response.write("...")
End if
%>  
   

pero siempre me saler po ejemlo

"lo que sea bla bla bla ..."

los tres ultimos ... me salen un un espacio anterior
no se como sacarlo

he provado con

left(arrCadena,len(arrCadena))-1

pero no se como implementarlo


alguien sabe?


gracias

[Adler]

Hola

Fijate que estas concatenando

response.write arrCadena(i) & " "
Next
response.write("...")

prueba así

response.write arrCadena(i)
Next
response.write("...")

Suerte

[engonga]

si lo hago asi se me juntan las palabras

[JuanRAPerez]

CadenaArmada = ""
For i =0 to limite
'Response.Write arrCadena(i)& " "
CadenaArmada = CadenaArmada & arrCadena(i) & " "
Next

CadenaArmanada = left(CadenaArmanada,len(CadenaArmanada))-1

response.write cadenaArmanda


suerte

[Adler]

Perdona, me surgió algo en ese momento y no pude pararme, prueba ahora

Código PHP:

  For i =0 to limite
if i <> 0 then
Response.Write " "
end if
Response.Write arrCadena(i)
Next

response.write("...")  
   

Suerte

[engonga]

me escupe el error

Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: 'i'

[JuanRAPerez]

pegas el codigo que estas usando y te produce el error?

grx

[engonga]

Código PHP:

  <%Cadena=contingut_not
limite = 20
arrCadena=Split(cadena," ")
 
For i =0 to limite
if i <> 0 then
Response.Write " "
end if
Response.Write arrCadena(i)
Next

response.write("...")  %>  
   

y con este tambien

Código PHP:

  <%Cadena=contingut_not
limite = 20
arrCadena=Split(cadena," ")
CadenaArmada = ""
For i =0 to limite
Response.Write arrCadena(i)& " "
CadenaArmada = CadenaArmada & arrCadena(i) & " "
Next

CadenaArmanada = left(CadenaArmanada,len(CadenaArmanada))-1 

response.write cadenaArmanda
%>  
   

[u_goldman]

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
%>

[engonga]

no me muestra nada

he mirado si havia alguna variable mal escrita pero no es asi

[Adler]

Probemos así

Código PHP:

  <%
cadena="Vamos"
'cadena="Vamos a contar palabras"
'cadena="Vamos a contar las palabras de esta cadena y si el número de palabras es mayor que el limite entonces la cortamos"
limite = 20
arrCadena=Split(cadena," ")
 
If UBound(arrCadena) <= limite then
Response.Write cadena

Else

For i =0 to (limite-1)
if i <> 0 then
Response.Write " "
end if
Response.Write arrCadena(i)
Next

response.write("...")  
End if
%>  
   

Suerte

[engonga]

funciona correctamente!!!

muchas gracias

he hecho unos pequeños retoques para mi caso en particular

Código PHP:

  <%
cadena="Vamos"
'cadena="Vamos a contar palabras"
'cadena="Vamos a contar las palabras de esta cadena y si el número de palabras es mayor que el limite entonces la cortamos"
limite = 20
arrCadena=Split(cadena," ")
 
If UBound(arrCadena) <= limite then
Response.Write cadena & "... Link"
 
Else
 
For i =0 to (limite-1)
if i <> 0 then
Response.Write " "
end if
Response.Write arrCadena(i)
Next
 
response.write("... link")  
End if
%>  
   

el link lo utlizare para que puedan abrir el detalla de la noticia