Descrição: Faz a contagem de quantas vezes existe um ENTER em uma string.
---------------------------------------------------------
Linguagem: VB.NET /ASP3
Sintaxe: ContaEnter(String)
Retorno: Integer
Descrição: A função procura pelo caracter ENTER CHR(13) em uma string, retorna a quantidade de vezes que o caracter foi encontrado
function ContaEnter(strVariavel as string) Dim i as interger Dim qtde as interger qtde = 0 for i = 1 to len(strVariavel) if mid(strVariavel, i, 1) = chr(13) then qtde = qtde + 1 end if next conta = qtde end function
em javascript também é possível dessa maneira :
Objeto.value.split(/\n/).length