Formatação de Texto

[cadeveloper 0]

Gostaria de saber como formatar o texto de forma que ele fique como foi digitado no formulário para gravar no banco de dados?Por exemplo:Quando eu coloco um codigo fonte de um programa e envio para o o banco de dados eu perco toda a identação do código, gostaria que ao carregar a página asp ficasse a identação como foi escrito.

[vicoluis 0]

seria isto?

 

http://www.imasters.com.br/forum/index.php?showtopic=111742

 

quais outras formatações você queria? a base é a mesma deste outro topico.. mas qualquer coisa pergunta ai,....

 

;)

[cadeveloper 0]

fiz isso

 

<% Private Function ConverteTexto(varTexto) 	Dim y, x, z, limite  		limite = Len(Trim(varTexto)) 	y = "" 		for x = 1 to limite    z = Mid(varTexto, x, 1)     if z = CHR(10) Then   	 z = "<br>"   end if     if z = CHR(32) Then   	 z = " "   end if    if z = "[" Then   	 z = "<b>"   end if    if z = "]" Then   	 z = "</b>"   end if  y = y & z   	next 		ConverteTexto = y End Function %>

[vicoluis 0]

esta é a sua solução ou seu problema? se for a solução a.chei ela um tanto complicada... se for o problema... pelo menos é facil de resolver.. hehehe ^_^ ;)

[cadeveloper 0]

tá bom seu chato :P ....

eu melhorei pra isso:

 

<% Private Function cvHtml(varTexto) 	Dim strTexto		strTexto = trim(varTexto)	strtexto = replace(strtexto, chr(10), "<br>")	strtexto = replace(strtexto, chr(32), " ")		cvHtml = strTexto	End Function %>

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[vicoluis 0]

Agora sim.. uma boa solução....

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[cadeveloper 0]

Agredeço pela inspiração !!!

Olha só agora http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

<% Private Function cvHtml(varTexto) 	Dim strTexto		strTexto = varTexto	strtexto = replace(strtexto, chr(10), "<br>")	strtexto = replace(strtexto, chr(32), " ")	strtexto = replace(strtexto, "[", "<b>")	strtexto = replace(strtexto, "]", "</b>")	cvHtml = strTexto	End Function Private Function cvTexto(varTexto) 	Dim strTexto		strTexto = varTexto	strtexto = replace(strtexto, "<br>", chr(10))	strtexto = replace(strtexto, " ", chr(32))	strtexto = replace(strtexto, "<b>", "[")	strtexto = replace(strtexto, "</b>", "]")		cvTexto = strTexto	End Function%>

[vicoluis 0]

Competição de replace... heheheh

 

eu tenho umas formatações aqui tb.. heheh, os da parte de baixo é meus smails... mas os primeiros são interessantes.. hehe

 

<%	strMessage = Replace(detalhe("detalhe"),Chr(13),"<BR>")		strMessage = Replace(strMessage,"'","''")		strMessage = Replace(strMessage,"[IMG=","<img src=")	strMessage = Replace(strMessage,"]",">")	strMessage = Replace(strMessage,"[b]","<b>")	strMessage = Replace(strMessage,"[/b]","</b>")	strMessage = Replace(strMessage,"[i]","<i>")	strMessage = Replace(strMessage,"[/i]","</i>")	strMessage = Replace(strMessage,"[s]","<u>")	strMessage = Replace(strMessage,"[/s]","</u>")	strMessage = Replace(strMessage,"[E]","<p align=left>")	strMessage = Replace(strMessage,"[/E]","</p>")	strMessage = Replace(strMessage,"[C]","<p align=center>")	strMessage = Replace(strMessage,"[/C]","</p>")	strMessage = Replace(strMessage,"[D]","<p align=right>")	strMessage = Replace(strMessage,"[/D]","</p>")	strMessage = Replace(strMessage,"[LINK]","<a href='http://")	strMessage = Replace(strMessage,"[/LINK]","'target='_blank'>Clique aqui</a>")	strMessage = Replace(strMessage,"[EMAIL]","<A HREF=mailto:")	strMessage = Replace(strMessage,"[/EMAIL]",">E-mail</a>")		strMessage = Replace(strMessage,"(:A:)","<img src=../admin/smiles/1.gif>")	strMessage = Replace(strMessage,"(:B:)","<img src=../admin/smiles/2.gif>")	strMessage = Replace(strMessage,"(:C:)","<img src=../admin/smiles/3.gif>")	strMessage = Replace(strMessage,"(:D:)","<img src=../admin/smiles/4.gif>")	strMessage = Replace(strMessage,"(:E:)","<img src=../admin/smiles/5.gif>")	strMessage = Replace(strMessage,"(:F:)","<img src=../admin/smiles/6.gif>")	strMessage = Replace(strMessage,"(:G:)","<img src=../admin/smiles/7.gif>")	strMessage = Replace(strMessage,"(:H:)","<img src=../admin/smiles/8.gif>")	strMessage = Replace(strMessage,"(:I:)","<img src=../admin/smiles/9.gif>")	strMessage = Replace(strMessage,"(:J:)","<img src=../admin/smiles/10.gif>")	strMessage = Replace(strMessage,"(:K:)","<img src=../admin/smiles/11.gif>")	strMessage = Replace(strMessage,"(:L:)","<img src=../admin/smiles/12.gif>")	strMessage = Replace(strMessage,"(:M:)","<img src=../admin/smiles/13.gif>")	strMessage = Replace(strMessage,"(:N:)","<img src=../admin/smiles/14.gif>")	strMessage = Replace(strMessage,"(:o:)","<img src=../admin/smiles/15.gif>")	strMessage = Replace(strMessage,"(:P:)","<img src=../admin/smiles/16.gif>")	strMessage = Replace(strMessage,"(:Q:)","<img src=../admin/smiles/17.gif>")	strMessage = Replace(strMessage,"(:R:)","<img src=../admin/smiles/18.gif>")	strMessage = Replace(strMessage,"(:S:)","<img src=../admin/smiles/19.gif>")	strMessage = Replace(strMessage,"(:T:)","<img src=../admin/smiles/20.gif>")	strMessage = Replace(strMessage,"(:U:)","<img src=../admin/smiles/21.gif>")	strMessage = Replace(strMessage,"(:V:)","<img src=../admin/smiles/22.gif>")	strMessage = Replace(strMessage,"(:X:)","<img src=../admin/smiles/23.gif>")	strMessage = Replace(strMessage,"(:Z:)","<img src=../admin/smiles/24.gif>")	strMessage = Replace(strMessage,"(:W:)","<img src=../admin/smiles/25.gif>")	strMessage = Replace(strMessage,"(:Y:)","<img src=../admin/smiles/26.gif>")	strMessage = Replace(strMessage,"(:AA:)","<img src=../admin/smiles/27.gif>")	strMessage = Replace(strMessage,"(:BB:)","<img src=../admin/smiles/28.gif>")	strMessage = Replace(strMessage,"(:CC:)","<img src=../admin/smiles/29.gif>")	strMessage = Replace(strMessage,"(:DD:)","<img src=../admin/smiles/30.gif>")	strMessage = Replace(strMessage,"(:EE:)","<img src=../admin/smiles/31.gif>")	strMessage = Replace(strMessage,"(:FF:)","<img src=../admin/smiles/32.gif>")	strMessage = Replace(strMessage,"(:GG:)","<img src=../admin/smiles/33.gif>")	strMessage = Replace(strMessage,"(:HH:)","<img src=../admin/smiles/34.gif>")	strMessage = Replace(strMessage,"(:II:)","<img src=../admin/smiles/35.gif>")	strMessage = Replace(strMessage,"(:JJ:)","<img src=../admin/smiles/36.gif>")	strMessage = Replace(strMessage,"(:KK:)","<img src=../admin/smiles/37.gif>")	strMessage = Replace(strMessage,"(:LL:)","<img src=../admin/smiles/38.gif>")%>

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif xD http://forum.imasters.com.br/public/style_emoticons/default/clap.gif