função p/ quebrar a linha depois de tantos dígitos

[K I L L I N G 0]

eu mexi para naum quebrar palavras entendem, para quebrar a linha em vez de quebrar a palavra no meio, quebrar nos espaços...

mas nem parei muito tempo e resolvi jogar nas mãos de vcs...

 

AI ESTÁ

Function PularLinha(StrTrata,Quantidade)StrTrata = CStr(StrTrata)Quantidade = Cint(Quantidade)A = 0For aux = 1 To Len(StrTrata)StrNovo = Mid(StrTrata, aux, 1) Saida = Saida & StrNovo A = A + 1IF A = Quantidade then A = 0		For i = aux-10 to aux+10	MyStr = mid(StrTrata,i,1)	if MyStr = " " then	Saida = Saida & MyStr	Saida = Saida & "<br>"	exit for	Else	Saida = Saida & "<br>"	exit for	End if	Next	End IFNextPularLinha = SaidaEnd Function

se conseguirem postem aki...

VALEW

[Salgado 4]

Cara, você pode fazer o seguinte: Vai na Área de Códigos daqui a adapta a função "Três Pontinhos" que tem lá!

É só pensar um pouquinho que você consegue fazer.