contar palabras

[engonga]

hola

para controlar las palabras mostradas en un rs utilizo...

Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
limite = 20
arrCadena=Split(cadena," ")
For i =0 to Ubound(arrCadena) - 1
if i > limite then
response.write("...")
exit for
else
Response.Write arrCadena(i)& " "
end if
Next

pero cuando la cadena es inferior a 20 no me escribe nada, alguien sabe la solución?


gracias

[AlZuwaga]

Se me ocurre algo así:

Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
limite = 20
arrCadena=Split(cadena," ")

If UBound(arrCadena) <= limite then
Response.Write Join(arrCadena, " ")
Else

For i =0 to Ubound(arrCadena) - 1
if i > limite then
response.write("...")
exit for
else
Response.Write arrCadena(i)& " "
end if
Next

End if

[AlZuwaga]

Mmmm... o tal vez mejor así:


Cadena="1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
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


(igual no lo he probado, tal vez me equivoque :p)