Contar palabras o caracteres

[Myakire]

Iniciado por u_goldman

No la probe, porque no puedo correr asp aqui, pero a ver si no sale con un error

Saludos

Pues a ojo de buen cubero .....

Código:

function cortaTexto(texto, palabrasNumero, agregaCaracter)
	Dim arr, i, intro
	arr = split(texto, " ")
	for i = 0 to uBound(arr)  
		intro = intro & arr(i) & " "
		if i + 1 >= palabrasNumero THEN
			exit for
		end if
	next
	if len (intro) > 0 then
		intro = left(intro, len(intro)-1) & agregaCaracter
	end if
	cortaTexto = intro
end function

variable = cortaTexto(rs.Fields("descripcion"), 20, "...")

Saludos camarada