Contar 25 palabras y no dejar

[CHuLoSoY]

Hola amigos, cómo hago para que si en un formulario enviado no hay más de 25 palabras no deje insertar en la bd? Supongo que con un if, pero no tengo ni idea de cómo ahcerlo.

Gracias.

[korev]

Cuenta los espacios.
En aspfacil tienes el código fuente listo para hornear:
http://www.aspfacil.com/codigo/contar.asp

Acabo de ver que no contempla la falta de espacio entre coma y palabra. Lo mismo ocurre con los puntos, el punto y coma, paréntesis, etcétera:

hola, manolo. estoy aquí <- cuatro palabras
hola,manolo. estoy aquí <- tres palabras
hola,manolo.estoy aquí <- dos palabras

Ya dejé mensaje en su foro sugiriendo lo que te digo que añadas:

texto = Replace (texto, chr(46), chr(46)&" ") ' punto
texto = Replace (texto, chr(58), chr(58)&" ") ' dos puntos
texto = Replace (texto, chr(59), chr(59)&" ") ' punto y coma
texto = Replace (texto, chr(44), chr(44)&" ") ' coma
etc...

Es decir, insertar dos espacios después del carácter 'conflictivo' (tú sabrás si lo hay o no dependiendo de lo que tengan que escribir). Con lo cual cuando llega al último replace...

while InStr(1, texto, " ", 1)
texto = Replace(texto, " ", " ")
wend

... si el usuario lo escribió bien no pasará nada. Si por el contrario se olvidó de algún espacio, contará también correctamente.

Saludos.

[CHuLoSoY]

muchas gracias!

[korev]

De nada, cuando quieras

[byte]

yo lo haria asi:

if instr(tu_cadena_o_request," ")>24 then
response.write "no se puede amigo"
else
agregar a BD
end if

contamos 24 espacios que es lo mismo ponerlo asi " " no nos hace falta el ascii, y listo! medio precario pero funciona...

salu2

[wwwmaster]

tambien puedes hacerlo asi:

arreglo = split(texto, " ")
if ubound(arreglo)>25 then
else
end if

[korev]

Sí, pero se trataba de contar exactamente x número de palabras. Para algo como lo que al parecer buscaba (que no puedan ingresar una respuesta con un 'asdfklasjfas' por ejemplo), basta incluso con un <% if len(mensaje)<100 then ... %>
Mucha aplicación no le encuentro a eso de contar x número de palabras, pero en casos concretos puede ser útil.

saludotes.

[CHuLoSoY]

yo lo utilizo para mostrar las 25 últimas palabras en la página principal del último registro del libro de visitas, y si no hay 25 da error, por eso hago esto, si hay menos de 25 palabras no deja meterlo en la bd.

Saludos.