com quebra de linha em textarea

[lucasmoraes 1]

ae beleza alguem ai tem um script que faça o textarea contar palavras e quebrar linha

 

tenho um formulario e o cliente vai digitando ai ele nao quebra a linha vai indo reto na mesma linha ai quando vai imprimir nao exibe o texto inteiro so as partes que apareceram...

alguem ai sabe como solucionar o problema?

[Mário Monteiro 179]

como esta o seu textarea?

 

na hora de visualizar voc precisará substituir os entrer po Br tambem

[xanburzum 169]

este é para acontar:

 

sub cmdWordCount_OnClick()
Dim TextString, Pos, RePos, Match, EndStr, Msg
TextString = document.form1.text.value

if Len(TextString) = 0 then
  Alert ("Digite as informações primeiro.")
Exit sub
End if
 
Pos = Instr(1, TextString, " ", 1) 'a fim de iniciar corretamente, inicie fora loop
 Do 
  RePos = Pos
  RePos = RePos + 1 'incrementa o proxino char
  Pos = InStr(RePos, TextString, " ", 1)
   Match = Match + 1 'acrescentar ao número de palavras
 Loop Until Pos = 0
 
EndStr = Right(TextString, 1)
if EndStr = "." then 'último char contado como espaço
 Match = Match + 1
else
 Match = Match + 1 'if it has a '.' ou não, é contada
end if
Msg = "Word Count: " & (Match) 'exibir número de palavras
MsgBox Msg
end sub

aki você substitui o enter pelo <BR>

 

var = replace(Rs("dados"),chr(13), "<BR>") 'substitui os 'enters' ...