CONVERTER CODIGO HTML

USUARIO.EXCLUIDOS 24/08/2006 11:06:14
#167001
Alguém sabe como faço para converter um código HTML para texto simples??

Exemplo: 

Confirmação = Confirmação
USUARIO.EXCLUIDOS 24/08/2006 11:15:41
#167007
Postando o exemplo novamente pois ali em cima o codigo HTML não apareceu...

replace(Confirma& ccedil;& atilde;o," ","") = Confirmação
USUARIO.EXCLUIDOS 24/08/2006 11:17:20
#167009
você pode tentar fazer +/- o seguinte

cria duas strings e um boolean:


'somente esboço, tou fazendo de cabeça

[c]Function ConverteHTML(Entrada as String) As String
Dim Copiar As Boolean, i As Long, j As Long, aux As String
Copiar = True
j = 1
ConverteHTML = Space(Len(Entrada))
For i = 1 to Len(Entrada)
	aux = Mid(Entrada,i,1)
	If Copiar = True Then
		Select Case aux
		Case "<"
			Copiar = False
		case else
			Mid$(ConverteHTML,j,1) = aux
			j = j + 1
		end select
	else
		if aux = ">" then Copiar = True
	end if
next i
ConverteHTML = mid(ConverteHTML,i,j)
end Function

[/c]


O que fiz acima foi rejeitar o que estiver entre < >

falows,
USUARIO.EXCLUIDOS 24/08/2006 11:20:08
#167012
hum, agora que vc postou novamente ví o que vc realmente quer...
difícil viu... conheço um jeito de converter quando se usa códigos & + 2 códigos
mas não como algo & ccedil;

falows,
USUARIO.EXCLUIDOS 24/08/2006 11:24:09
#167014
na verdade é sem o espaço entre o "&" e o código "ccedil;" né...

o que acontece é que se eu tirar o espaço ai ele interpreta aqui! rsrs


então, estou com esta dificuldade, pq tenho gravado no banco os códigos HTML, e na hora de passar para um label por exemplo aquilo que tem assento e talz fica desconfigurado assim como postei.
USUARIO.EXCLUIDOS 24/08/2006 14:52:06
#167069
Cara, dificil mesmo, acho q o único jeito será dando Replace para TODAS as opções, o q é um trampo e tanto, se tiver Drenweaver (axo q escreve assim), no código fonte é só vc digitar o "&" e Ctrl+Espaço, q irá aparecer a lista com as opções pra vc conferir, mas mesmo assim é moooiiiitttooooooooo trampo...:-/
USUARIO.EXCLUIDOS 24/08/2006 15:02:14
#167073
Realmente agora vc me assustou um pouco! rsrs

Mas se este é o jeito nééé... fazer o q... ao trabalho........

depois que terminar posto aqui para o próximo que precisar não tenha todo este trabalho...
USUARIO.EXCLUIDOS 24/08/2006 16:50:09
#167104
Está ai minha função... ela é pequena... mais atendeu minha necessidade!!

  Function HTMLtoText(Texto As String) As String
Dim codigo(0 To 97) As char

    codigo(0).HTML = " "
    codigo(1).HTML = "©"
    codigo(2).HTML = "´"
    codigo(3).HTML = "«"
    codigo(4).HTML = "»"
    codigo(5).HTML = "¡"
    codigo(6).HTML = "¿"
    codigo(7).HTML = "À"
    codigo(8).HTML = "à"
    codigo(9).HTML = "Á"
    codigo(10).HTML = "á"
    codigo(11).HTML = "Â"
    codigo(12).HTML = "â"
    codigo(13).HTML = "Ã"
    codigo(14).HTML = "ã"
    codigo(15).HTML = "Ä"
    codigo(16).HTML = "<rtf>:\super TM
osupersub"
    codigo(17).HTML = "Å"
    codigo(18).HTML = "å"
    codigo(19).HTML = "Æ"
    codigo(20).HTML = "æ"
    codigo(21).HTML = "Ç"
    codigo(22).HTML = "ç"
    codigo(23).HTML = "Ð"
    codigo(24).HTML = "ð"
    codigo(25).HTML = "È"
    codigo(26).HTML = "è"
    codigo(27).HTML = "É"
    codigo(28).HTML = "é"
    codigo(29).HTML = "Ê"
    codigo(30).HTML = "ê"
    codigo(31).HTML = "Ë"
    codigo(32).HTML = "ë"
    codigo(33).HTML = "Ì"
    codigo(34).HTML = "ì"
    codigo(35).HTML = "Í"
    codigo(36).HTML = "í"    'í
    codigo(37).HTML = "Î"
    codigo(38).HTML = "î"
    codigo(39).HTML = "Ï"
    codigo(40).HTML = "ï"
    codigo(41).HTML = "Ñ"
    codigo(42).HTML = "ñ"
    codigo(43).HTML = "Ò"
    codigo(44).HTML = "ò"
    codigo(45).HTML = "Ó"
    codigo(46).HTML = "ó"
    codigo(47).HTML = "Ô"
    codigo(48).HTML = "ô"
    codigo(49).HTML = "Õ"
    codigo(50).HTML = "õ"
    codigo(51).HTML = "Ö"
    codigo(52).HTML = "ö"
    codigo(53).HTML = "Ø"
    codigo(54).HTML = "ø"
    codigo(55).HTML = "Ù"
    codigo(56).HTML = "ù"
    codigo(57).HTML = "Ú"
    codigo(58).HTML = "ú"
    codigo(59).HTML = "Û"
    codigo(60).HTML = "û"
    codigo(61).HTML = "Ü"
    codigo(62).HTML = "ü"
    codigo(63).HTML = "Ý"
    codigo(64).HTML = "ý"
    codigo(65).HTML = "ÿ"
    codigo(66).HTML = "Þ"
    codigo(67).HTML = "þ"
    codigo(68).HTML = "ß"
    codigo(69).HTML = "§"
    codigo(70).HTML = "¶"
    codigo(71).HTML = "µ"
    codigo(72).HTML = "¦"
    codigo(73).HTML = "±"
    codigo(74).HTML = "·"
    codigo(75).HTML = "¨"
    codigo(76).HTML = "¸"
    codigo(77).HTML = "ª"
    codigo(78).HTML = "º"
    codigo(79).HTML = "¬"
    codigo(80).HTML = "­"
    codigo(81).HTML = "¯"
    codigo(82).HTML = "°"
    codigo(83).HTML = "¹"
    codigo(84).HTML = "²"
    codigo(85).HTML = "³"
    codigo(86).HTML = "¼"
    codigo(87).HTML = "½"
    codigo(88).HTML = "¾"
    codigo(89).HTML = "×"
    codigo(90).HTML = "÷"
    codigo(91).HTML = "¢"
    codigo(92).HTML = "£"
    codigo(93).HTML = "¤"
    codigo(94).HTML = "¥"
    codigo(95).HTML = "..."
    codigo(96).HTML = "Ã…¾"    'Ã…¾
    codigo(97).HTML = "Ã…á"    'Ã…á

    codigo(0).Texto = " "
    codigo(1).Texto = "©"
    codigo(2).Texto = "ÂÂÂ'"
    codigo(3).Texto = "«"
    codigo(4).Texto = "»"
    codigo(5).Texto = "Âá"
    codigo(6).Texto = "¿"
    codigo(7).Texto = "À"
    codigo(8).Texto = "à "
    codigo(9).Texto = "à"
    codigo(10).Texto = "á"
    codigo(11).Texto = "Ó¡"
    codigo(12).Texto = "à¢"
    codigo(13).Texto = "Ã"
    codigo(14).Texto = "ã"
    codigo(15).Texto = "Ó¾"
    codigo(16).Texto = ":\super TM
osupersub"
    codigo(17).Texto = "Ã…"
    codigo(18).Texto = "à¥"
    codigo(19).Texto = "Æ"
    codigo(20).Texto = "à¦"
    codigo(21).Texto = "Ç"
    codigo(22).Texto = "ç"
    codigo(23).Texto = "à"
    codigo(24).Texto = "à°"
    codigo(25).Texto = "È"
    codigo(26).Texto = "à¨"
    codigo(27).Texto = "é"
    codigo(28).Texto = "é"
    codigo(29).Texto = "ÃÅ "
    codigo(30).Texto = "ê"
    codigo(31).Texto = "Ë"
    codigo(32).Texto = "à«"
    codigo(33).Texto = "ÃÅ’"
    codigo(34).Texto = "à¬"
    codigo(35).Texto = "à"
    codigo(36).Texto = "í"
    codigo(37).Texto = "ÃŽ"
    codigo(38).Texto = "à®"
    codigo(39).Texto = "à"
    codigo(40).Texto = "à¯"
    codigo(41).Texto = "Ñ"
    codigo(42).Texto = "à±"
    codigo(43).Texto = "۪̉"
    codigo(44).Texto = "à²"
    codigo(45).Texto = "Ó“"
    codigo(46).Texto = "ó"
    codigo(47).Texto = "Ô"
    codigo(48).Texto = "à'"
    codigo(49).Texto = "Õ"
    codigo(50).Texto = "õ"
    codigo(51).Texto = "Ö"
    codigo(52).Texto = "à¶"
    codigo(53).Texto = "ÃËœ"
    codigo(54).Texto = "à¸"
    codigo(55).Texto = "Ãâ„¢"
    codigo(56).Texto = "à¹"
    codigo(57).Texto = "ÃÅ¡"
    codigo(58).Texto = "ú"
    codigo(59).Texto = "Ãâۼ"
    codigo(60).Texto = "à»"
    codigo(61).Texto = "ÃÅ“"
    codigo(62).Texto = "à¼"
    codigo(63).Texto = "à"
    codigo(64).Texto = "à½"
    codigo(65).Texto = "à¿"
    codigo(66).Texto = "Þ"
    codigo(67).Texto = "à¾"
    codigo(68).Texto = "ß"
    codigo(69).Texto = "§"
    codigo(70).Texto = "¶"
    codigo(71).Texto = "µ"
    codigo(72).Texto = "¦"
    codigo(73).Texto = "±"
    codigo(74).Texto = "·"
    codigo(75).Texto = "¨"
    codigo(76).Texto = "¸"
    codigo(77).Texto = "Âê"
    codigo(78).Texto = "º"
    codigo(79).Texto = "¬"
    codigo(80).Texto = "­"
    codigo(81).Texto = "¯"
    codigo(82).Texto = "º"
    codigo(83).Texto = "¹"
    codigo(84).Texto = "²"
    codigo(85).Texto = "³"
    codigo(86).Texto = "¼"
    codigo(87).Texto = "½"
    codigo(88).Texto = "¾"
    codigo(89).Texto = "×"
    codigo(90).Texto = "à·"
    codigo(91).Texto = "¢"
    codigo(92).Texto = "£"
    codigo(93).Texto = "¤"
    codigo(94).Texto = "Â¥"
    codigo(95).Texto = "..."
    codigo(96).Texto = "Ã…¾"
    codigo(97).Texto = "Ã…á"

    

    For i = 0 To UBound(codigo)
        If InStr(1, Texto, codigo(i).HTML) Then
            Texto = Replace(Texto, codigo(i).HTML, codigo(i).Texto)
        End If
    Next
    
    HTMLtoText = Texto


Valew ai galera... vou deixar o tópico aberto só mais um pouco pra ver se ninguém surge com um código mais profissional...rsrs
USUARIO.EXCLUIDOS 24/08/2006 17:02:04
#167113 Resposta escolhida
Citação:

pra ver se ninguém surge com um código mais profissional



Considerando o trampo e a chatice pra fazer isso, ta super profissa...

Curiosidade, Char é um type, né?
USUARIO.EXCLUIDOS 24/08/2006 17:31:41
#167130
Puts... malz aew!!

  Public Type char
    HTML As String
    RTF As String
    Texto As String
End Type


Falto isso lá em cima! rsrs

vo fazer a parte de RTF depois tb!
Tópico encerrado , respostas não são mais permitidas
Voltar