quinta-feira, 8 de maio de 2003

Quebra texto após um determinado número de caracteres

<%
'--------------------------------------------------
' Função: Quebra texto após o limite de caracteres
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Para Usar:
' texto = String
' limite = Num. de caracteres por linha
' Exemplo: QuebraTexto("Active Server Pages",5)
' Última Atualização: 19/07/2003
'--------------------------------------------------
Function QuebraTexto(texto,limite)
 aTexto = Split(texto, " ")
 For i = LBound(aTexto) To UBound(aTexto)
  If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
 Next
 texto = Trim(nTexto)
 pos = 1
 For I = pos To Len(texto) Step limite
  nTexto = Mid(texto,pos,limite) & "<br>" & vbcrlf
  QuebraTexto = QuebraTexto & nTexto
  pos = pos + limite
 Next
End Function
%>
<%= QuebraTexto("Active Server Pages",5)%>



Esta matéria foi postada originalmente no ASP4Developers por Régis da Silva Soares, que na época era "Programador ASP e PHP". Hoje, vai saber...

0 comentários: