quinta-feira, 8 de maio de 2003

Colocar X palavras do texto em negrito

<%
'----------------------------------
' Função: X Palavras Em Destaque
' Autor: Régis Soares
' E-mail: regis_soares@hotmail.com
' Para Usar:
' texto = String
' xPalavras = Num. de palavras
'   em destaque
' Exemplo:
' Destaca("Active Server Pages",1)
' Última Atualização: 19/07/2003
'----------------------------------
Function Destaca(texto,xPalavras)
 aTexto = Split(texto, " ")
 For i = LBound(aTexto) To UBound(aTexto)
  If Len(aTexto(i)) > 0 Then nTexto = nTexto & " " & aTexto(i)
 Next
 texto = Trim(nTexto)
 x = 1
 For i = 1 To xPalavras
  busca = InStr(x,Trim(texto)," ")
  If busca > 0 Then y = y + 1
  x = busca + 1
 Next
 If y < xPalavras Then
  Destaca = "<b>" & texto & "</b>"
 Else
  Destaca = "<b>" & Mid(texto,1,x-1) & "</b>" & Mid(texto, x)
 End If
End Function
%>
<%= Destaca("Active Server Pages",1)%>



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: