[Resolvido] Formatando texto...caracteres html especiais

[xanburzum 169]

Formatando texto...

 

O função FormatTxt aplica caracteres html especiais para uma string. FormatTxt

Utiliza códigos especiais para caracteres html. Os seguintes Caracteres especial

são suportados pelo FormatTxt:

 

Reconhecido o carácter o mesme é substituído por :

 

 

[2] expoente 2 ²

 

[3] expoente 3 ³

 

[1] subscritos 1 ¹

 

[0] expoente 0 °

 

[Graus] graus símbolo °

 

[1 / 2] a metade ½

 

[3 / 4] três quartos ¾

 

[1 / 4] um quarto ¼

 

[TM] marca ™

 

[C] autorais ©

 

[R] registrada ®

 

[Div] divisão assinar ÷

 

[Plusminus] Plus / Sinal de ±

 

[Libras] British Pound £

 

[Centavos] Centavos assinar ¢

 

Como usar.

 

 

<%
dim a

'Criada uma string com algum código nele 
'Entre os []' s será substituído se for reconhecida como um 
'item na função FormatTxt

a = "123[3] 1442[1] 211343[2] 112[DEG]F 14[1/2] 12[3/4] 634[1/4] " & _
"copyright [C] e registrado [R] trademark" & _
"[TM]. 14[div]12 avg 4[plusminus]2 334[pounds] 65[cents]"

' mostrando o resultado
response.write FormatTxt( a )
%>

Retorno: 123³ 1442¹ 211343² 112°F 14½ 12¾ 634¼ this is

copyright © e registrado ® trademark™. 14÷12 avg 4±2 334£ 65¢

 

Código

<%
Private Function FormatTxt(byVal string)
Const Delimiter1a = "[", Delimiter1b = "]"
Dim a, b, c, d, strDel, strDel2
strDel  = Delimiter1a : strDel2 = Delimiter1b
a = instrrev( string, strDel ) : b = instrrev( string, strDel2 )
c = Mid( string, a, b - a + 1)
string = replace( string, c, lcase( c ) )
d = CStr( c ) : d = LCase( c )
Select Case LCase( d )
Case strDel & "2" & strDel2
  string = Replace( string, d, chr( 178 ) )
Case strDel & "3" & strDel2
  string = Replace( string, d, chr( 179 ) )
Case strDel & "1" & strDel2
  string = Replace( string, d, chr( 185 ) )
Case strDel & "0" & strDel2
  string = Replace( string, d, chr( 186 ) )
Case strDel & "deg" & strDel2
  string = Replace( string, d, chr( 176 ) )
Case strDel & "1/2" & strDel2
  string = Replace( string, d, chr( 189 ) )
Case strDel & "3/4" & strDel2
  string = Replace( string, d, chr( 190 ) )
Case strDel & "1/4" & strDel2
  string = Replace( string, d, chr( 188 ) )
Case strDel & "tm" & strDel2
  string = Replace( string, d, chr( 153 ) )
Case strDel & "c" & strDel2
  string = Replace( string, d, chr( 169 ) )
Case strDel & "r" & strDel2
  string = Replace( string, d, chr( 174 ) )
Case strDel & "div" & strDel2
  string = Replace( string, d, chr( 247 ) )
Case strDel & "plusminus" & strDel2
  string = Replace( string, d, chr( 177 ) )
Case strDel & "pounds" & strDel2
  string = Replace( string, d, chr( 163 ) )
Case strDel & "cents" & strDel2
  string = Replace( string, d, chr( 162 ) )
End Select
if instr( string, Delimiter1a ) or instr( string, Delimiter1b ) then _
string = FormatTxt( string )
FormatTxt = string
End Function
%>