[Resolvido] Limitador de caracteres...

se quiser algo simples use no SQL mesmo, exemplo:SELECT codigo,itulo,SUBSTRING(conteudo,1,150) FROM tabelavai pegar 150 caracteres do campo "conteudo"

pow, o problema é q a minha string sql está selecionando tudo:strSQL = "SELECT * FROM tbNews"ai por exemplo, eu queria fazer alguma coisa q exibisse a noticiarsNews("descricao")mas q só mostrasse 150 caracteres digitados nesse campo...

Está é uma função gerada por uma server behavior do DreanWeaver que chama-se truncate it Lá vai<%Function Truncate(inputString, minLength, maxLength) If inputString <> "" Then Dim theString, a, b, i, outputLimit, PunctuationString theString = Trim(inputString) Do a = InStr(a + 1, theString, "<") If a > 0 Then b = InStr(a, theString, ">") If b > 0 Then theString = Trim(Left(theString, a - 1)) & " " & Trim(Mid(theString, b + 1)) Else exitLoop = True End If a = 0 Else exitLoop = True End If 'CheckConnection Loop Until exitLoop = True PunctuationString = ".!?:;," outputLimit = maxLength For i = 1 To Len(PunctuationString) a = InStr(minLength, theString, Mid(PunctuationString, i, 1) & " ") If a > 0 And a < outputLimit Then outputLimit = a Next outputString = Left(theString, outputLimit) If Len(RTrim(theString)) > Len(RTrim(outputString)) Then outputString = RTrim(outputString) & ".." Truncate = outputString End IfEnd Function%>Agora é só chamar o campo<%=Truncate((Recordset1.Fields.Item("recordset").Value),150,300)%>

Libos, ele limitou, mas em alguns, deu um pau mó esquisito...

tenta isso!response.write Left(conteudo,150)

e para pegar apenas 5 notícias use assim

<%s = "select top 5 * from tabela"%>

falow

eu tenho uma função que resume textos.tow com preguiça de procurar nos cds..à noite eu coloco aqui

<%function fResumir(texto) dim resumo         ' resumo do texto dim tam            ' tamanho do resumo dim pos      ' indice do loop dim tamtxt     ' tamanho do texto tam    = 3 tamtxt = len(texto) if tam <= tamtxt then  for pos=tam to tamtxt        resumo = mid(trim(texto),1,pos)  if mid(resumo,pos,1) = space(1) then      exit for  end if    next        if pos < tamtxt then  resumo = resumo & "..."  end if   else  resumo = texto end if ' retorna texto resumido fResumir = resumoend function%>

pra usar:

<%=fResumir(texto)%>

Aê hinom, desculpa a demora, mas muito obrigado, o código funcionou perfeitamente perfeito!Muito obrigado! :D !

como eu aplico issa função no código abaixo:

<!-- inicio -->
<%

 sql = "SELECT * FROM Novidades WHERE id = "&request("id")&";"
 Set objrs = Banco.Execute(sql)
 If Not objrs.eof Then

 newscat = objrs("categoria")
 newsid = objrs("id")

 '	response.write "<center><img width='250' src='../painel-noticias/fotos/"&objrs("inicia")&"'></center><BR><BR>"
 '	response.write "<font face='arial' color='#006699' size='2'><b>"&objrs("titulo")&"</b></font><BR><BR>"
 '	response.write "<div align='justify'><font color='#666666' face='arial' size='2'>"&objrs("novidade")&"</font></div><br>"
 '	response.write "<div align='justify'><font color='#666666' face='arial' size='2'>Fonte: <strong><em>"&objrs("fonte")&"</em></strong></font></div><br>"
 '	response.write "<div align='justify'><font color='#000000' face='arial' size='2'><b>Veja também:</b></font></div><br>"

 sqllist = "SELECT TOP 10 * FROM Novidades WHERE categoria = "&objrs("categoria")&" AND id <> "&objrs("id")&" order by id desc;"
 Set objlist = Banco.Execute(sqllist)
 Do While Not objlist.eof
 response.write "<div align='justify'><font color='#333333' face='arial' size='2'>- </font><b>"&objlist("titulo")&"</b></div>"
 response.write "<div align='justify'><font color='#666666' face='arial' size='2'> <a href='[http://www.folhadejandira.com.br/portal/ver_noticia.asp?id="&objlist("id")&"'](http://www.folhadejandira.com.br/portal/ver_noticia.asp?id=) target='_blank'>"&objlist("novidade")&"</a></font></div><br><hr>"
 objlist.movenext
 Loop
 End if
 %>

 <!-- fim -->

Poxa, você buscou longe esse hein.

Cria um novo tópico para discutir sua dúvida. Esse tópico está muito antigo.

opa... acho que já resolvi...

na busca... foi mal por acordar esse tópico.

Att

Make.