2 replies to this topic

[Deigmar]

Olá pessoal

Tenho uma mensagem que está cadastrada em um banco de dados que está digitada separada por datas, mas antes da data tem o sinal "-"

ex: " - 08/08/1998 Feito testes na impressora - 09/08/1998 Executado teste gerais...etc.."

Preciso mostrar na tela esta mensagem e a cada sinal de "-" ter uma quebra de linha.. tipo:
"
08/08/1998 Feito testes na impressora
09/08/1998 Executado teste gerais
"
O código que fiz foi:

                <%
	
	dim tamanho, msg_cortada, msg, posicao_ini, posicao_caracter
	
	posicao_ini = 1
	msg = (Recordset1.Fields.Item("Observações").Value)
	tamanho = len(msg)
	
	posicao_caracter = Instr(posicao_ini,msg,"-") - 1
	msg_cortada = mid(msg,posicao_ini,posicao_caracter)
	
	Response.Write(msg_cortada) & "<br>"
	
  
	%>

Como faço para que independente do tamanho da mensagem, este código faça um loop e busque todos os "-" e mostre as informações e quebre a linha a cada data..
Tentei fazer um loop com do mas não deu muito certo

[]'s

deigmar

[Danth]

Você tem algumas formas um pouco diferentes de fazer isso, mas utilizando ASP, acho que qualquer uma vai acabar caíndo em algo parecido com isso:

data = Replace(data, "-", "<BR>")

"data" é a variável que guarda a data que você vai mostrar claro...
Replace é a função.
o "-" indica qual caracter será substituído e o "<BR>" indica por qual ele deve ser trocado.
Exemplo:

Se no seu banco de dados a data estiver salva assim:
-29/03/2004-
Quando imprimir, ficará assim:

29/03/2004

Desta forma (usando o "Replace"), ele vai procurar por todos os "-" dentro da variável e substituir todos eles por "<BR>".

Você pode utilizar a instrução Replace, tanto quando for gravar no banco de dados quanto na hora de ler em sua página HTML.

Abraços, espero ter sido claro e qualquer coisa é só perguntar!

Edição feita por: Danth, 29/03/2004, 14:35.

[Deigmar]

Obrigado!

Excelente sua explicação e a solução foi perfeita...ficou ótimo.!

Valeu mesmo.!!

[]'s

Deigmar

<%
	
	dim msg, nova_msg
	
	msg = (Recordset1.Fields.Item("Observações").Value)
	nova_msg = Replace(msg, "-", "<br>")
	
	Response.Write(nova_msg) & "<br>"
	
	%>