Consulta retorno de carro

[Alert]

Hola como estan, mi consulta es , como puedo saver Cuantos retorno de carro contiene un texto, lo que intento hacer es poner el texto que recupero desde request.form("Algo") en un textarea, y al poder contar todos los retorno de carro hacerlo equivaler por los Cols del textarea,
una ves que veo cuantos retorno de carro tiene , armare alguna funcion para poner un maximo de 30 cols, por ejemplo,
Es algo muy parecido a lo que tienen en este foro, cuando alguien postea con los tags de CODE
espero que se entienda lo que puce.

Grax por adelantado

[kalandas]

Lo que puedes hacer es recorrer caracter a caracter el texto y mirar si es un retorno de carro, algo asi seria:

Código:

for i=0 to len(algo)
    if asc(mid(algo,i,1))=13 then  'El numero 13 del ascii es el retorno de carro
               contador_carro=contador_carro+1 'Voy sumando uno cada vez que sea el retorno de carro en una variable contador
    end if
next

espero que te sirva ciao.

[AlZuwaga]

me parece más fácil hacerle un spit y ver su último índice-1

cantidad = UBound(Split(request.form("Algo"), vbcrlf)) - 1

[Alert]

Grax a los 2 por contestar, aunque el ejemplo de kalandas me tiro un error.

Código HTML:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'mid'

El modo de Al Zugawa , funciono perfecto, thanks

[kalandas]

no se porque no te funciona la funcion mid, en visual te lo deberia aceptar, si lo otro te funciona pues pa que seguir indagando ciao, yo te lo he probado en mi ordenador y si que me funcionaba

[AlZuwaga]

Iniciado por kalandas

no se porque no te funciona la funcion mid, en visual te lo deberia aceptar, si lo otro te funciona pues pa que seguir indagando ciao, yo te lo he probado en mi ordenador y si que me funcionaba

Igual es bueno seguir indagando :)
No le funciona porque está iniciando el FOR en 0 en vez de 1, y el primer caracter de una cadena es el caracter de posición 1, no cero.
Ahora, no entiendo esa inconsistencia entre la posición del primer elemento de de una cadena (1) y la posición del primer elemento de un array (0)

Saludos

[kalandas]

me di cuenta ayer por la noche que me raye pensando porque no iba, se mi piro porque lo probe en mi ordenador y lo empece desde 1 sabia de sobra que debia de empezar en 1 porque es algo que ultimamente he utilizado mucho, que no se donde coño tengo la cabeza jeje, pero gracias por decirmelo que hasta que me di cuenta... y todo por una tonteria al equivocarme al escribir ciao