[Resolvido] Limitador de caracteres...

[hmazoco 0]

Oi, eu estou participando do desenvolvimento do site da cidade de João Neiva http://www.joaoneiva.com.br

 

E logo na página inicial, ele mostra as últimas 3 notícias adicionadas no banco de dados.

 

E eu gostaria de saber como eu faço aquele limitador de caracteres em asp, é uma coisa simples, uma vez eu vi, mas naum me lembro como que se faz...

 

 

Se ajudarem, ficarei agradecido!

[hinom 5]

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

[hmazoco 0]

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...

[Libos 0]

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)%>

[hmazoco 0]

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

[Shiro 0]

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

[rOcKLoCo 0]

e para pegar apenas 5 notícias use assim

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

falow

[hinom 5]

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

[hinom 5]

<%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)%>

[hmazoco 0]

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

[Makerup 0]

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")&"' target='_blank'>"&objlist("novidade")&"</a></font></div><br><hr>"
				objlist.movenext
			Loop
		End if
		%>

	  <!-- fim -->

[hargon 64]

Poxa, você buscou longe esse hein.

 

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

[Makerup 0]

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

 

 

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

 

Att

Make.