Foros Club Delphi - Asciende a utf8

Aqui os dejo una función, en VB, de conversiones para los que usen, como yo, softwares que no están preparados para devolver ,de una respuesta de la aeat (consultar clientes o respuestas verifactu), caracteres utf8 y html especiales.
A ver si no se convierten al confirmar este post.

Cita:

Public Function devuelve_ascii(ByVal sql_buff1 As String) As String
sql_buff1 = replace(sql_buff1, "â‚¬", "€")
sql_buff1 = replace(sql_buff1, "â€ž", "„")
sql_buff1 = replace(sql_buff1, "â€š", "‚")
sql_buff1 = replace(sql_buff1, "â€¦", "…")
sql_buff1 = replace(sql_buff1, "â€¡", "‡")
sql_buff1 = replace(sql_buff1, "â€°", "‰")
sql_buff1 = replace(sql_buff1, "â€¹", "‹")
sql_buff1 = replace(sql_buff1, "â€˜", "‘")
sql_buff1 = replace(sql_buff1, "â€™", "’")
sql_buff1 = replace(sql_buff1, "â€œ", "“")
sql_buff1 = replace(sql_buff1, "â€¢", "•")
sql_buff1 = replace(sql_buff1, "â€“", "–")
sql_buff1 = replace(sql_buff1, "â€”", "—")
sql_buff1 = replace(sql_buff1, "â„¢", "™")
sql_buff1 = replace(sql_buff1, "â€º", "›")
sql_buff1 = replace(sql_buff1, "Ã—", "×")
sql_buff1 = replace(sql_buff1, "Æ’", "ƒ")
sql_buff1 = replace(sql_buff1, "Ë†", "ˆ")
sql_buff1 = replace(sql_buff1, "Å’", "Œ")
sql_buff1 = replace(sql_buff1, "Å½", "Ž")
sql_buff1 = replace(sql_buff1, "Ëœ", "˜")
sql_buff1 = replace(sql_buff1, "Å¡", "š")
sql_buff1 = replace(sql_buff1, "Å“", "œ")
sql_buff1 = replace(sql_buff1, "Å¾", "ž")
sql_buff1 = replace(sql_buff1, "Å¸", "Ÿ")
sql_buff1 = replace(sql_buff1, "Â¡", "¡")
sql_buff1 = replace(sql_buff1, "Â¢", "¢")
sql_buff1 = replace(sql_buff1, "Â£", "£")
sql_buff1 = replace(sql_buff1, "Â¤", "¤")
sql_buff1 = replace(sql_buff1, "Â¥", "¥")
sql_buff1 = replace(sql_buff1, "Â¦", "¦")
sql_buff1 = replace(sql_buff1, "Â§", "§")
sql_buff1 = replace(sql_buff1, "Â¨", "¨")
sql_buff1 = replace(sql_buff1, "Â©", "©")
sql_buff1 = replace(sql_buff1, "Âª", "ª")
sql_buff1 = replace(sql_buff1, "Â«", "«")
sql_buff1 = replace(sql_buff1, "Â¬", "¬")
sql_buff1 = replace(sql_buff1, "Â®", "®")
sql_buff1 = replace(sql_buff1, "Â¯", "¯")
sql_buff1 = replace(sql_buff1, "Â°", "°")
sql_buff1 = replace(sql_buff1, "Â±", "±")
sql_buff1 = replace(sql_buff1, "Â²", "²")
sql_buff1 = replace(sql_buff1, "Â³", "³")
sql_buff1 = replace(sql_buff1, "Â´", "´")
sql_buff1 = replace(sql_buff1, "Âµ", "µ")
sql_buff1 = replace(sql_buff1, "Â¶", "¶")
sql_buff1 = replace(sql_buff1, "Â·", "·")
sql_buff1 = replace(sql_buff1, "Â¸", "¸")
sql_buff1 = replace(sql_buff1, "Â¹", "¹")
sql_buff1 = replace(sql_buff1, "Âº", "º")
sql_buff1 = replace(sql_buff1, "Â»", "»")
sql_buff1 = replace(sql_buff1, "Â¼", "¼")
sql_buff1 = replace(sql_buff1, "Â½", "½")
sql_buff1 = replace(sql_buff1, "Â¾", "¾")
sql_buff1 = replace(sql_buff1, "Â¿", "¿")
sql_buff1 = replace(sql_buff1, "Ã€", "À")
sql_buff1 = replace(sql_buff1, "Ã‚", "Â")
sql_buff1 = replace(sql_buff1, "Ãƒ", "Ã")
sql_buff1 = replace(sql_buff1, "Ã„", "Ä")
sql_buff1 = replace(sql_buff1, "Ã…", "Å")
sql_buff1 = replace(sql_buff1, "Ã†", "Æ")
sql_buff1 = replace(sql_buff1, "Ã‡", "Ç")
sql_buff1 = replace(sql_buff1, "Ãˆ", "È")
sql_buff1 = replace(sql_buff1, "Ã‰", "É")
sql_buff1 = replace(sql_buff1, "ÃŠ", "Ê")
sql_buff1 = replace(sql_buff1, "Ã‹", "Ë")
sql_buff1 = replace(sql_buff1, "ÃŒ", "Ì")
sql_buff1 = replace(sql_buff1, "Ã", "Í")
sql_buff1 = replace(sql_buff1, "ÃŽ", "Î")
sql_buff1 = replace(sql_buff1, "Ã", "Ï")
sql_buff1 = replace(sql_buff1, "Ã", "Ð")
sql_buff1 = replace(sql_buff1, "Ã‘", "Ñ")
sql_buff1 = replace(sql_buff1, "Ã’", "Ò")
sql_buff1 = replace(sql_buff1, "Ã“", "Ó")
sql_buff1 = replace(sql_buff1, "Ã”", "Ô")
sql_buff1 = replace(sql_buff1, "Ã•", "Õ")
sql_buff1 = replace(sql_buff1, "Ã–", "Ö")
sql_buff1 = replace(sql_buff1, "Ã˜", "Ø")
sql_buff1 = replace(sql_buff1, "Ã™", "Ù")
sql_buff1 = replace(sql_buff1, "Ãš", "Ú")
sql_buff1 = replace(sql_buff1, "Ã›", "Û")
sql_buff1 = replace(sql_buff1, "Ãœ", "Ü")
sql_buff1 = replace(sql_buff1, "Ã", "Ý")
sql_buff1 = replace(sql_buff1, "Ãž", "Þ")
sql_buff1 = replace(sql_buff1, "ÃŸ", "ß")
sql_buff1 = replace(sql_buff1, "Ã¡", "á")
sql_buff1 = replace(sql_buff1, "Ã¢", "â")
sql_buff1 = replace(sql_buff1, "Ã£", "ã")
sql_buff1 = replace(sql_buff1, "Ã¤", "ä")
sql_buff1 = replace(sql_buff1, "Ã¥", "å")
sql_buff1 = replace(sql_buff1, "Ã¦", "æ")
sql_buff1 = replace(sql_buff1, "Ã§", "ç")
sql_buff1 = replace(sql_buff1, "Ã¨", "è")
sql_buff1 = replace(sql_buff1, "Ã©", "é")
sql_buff1 = replace(sql_buff1, "Ãª", "ê")
sql_buff1 = replace(sql_buff1, "Ã«", "ë")
sql_buff1 = replace(sql_buff1, "Ã¬", "ì")
sql_buff1 = replace(sql_buff1, "Ã*", "í")
sql_buff1 = replace(sql_buff1, "Ã®", "î")
sql_buff1 = replace(sql_buff1, "Ã¯", "ï")
sql_buff1 = replace(sql_buff1, "Ã°", "ð")
sql_buff1 = replace(sql_buff1, "Ã±", "ñ")
sql_buff1 = replace(sql_buff1, "Ã²", "ò")
sql_buff1 = replace(sql_buff1, "Ã³", "ó")
sql_buff1 = replace(sql_buff1, "Ã´", "ô")
sql_buff1 = replace(sql_buff1, "Ãµ", "õ")
sql_buff1 = replace(sql_buff1, "Ã¶", "ö")
sql_buff1 = replace(sql_buff1, "Ã·", "÷")
sql_buff1 = replace(sql_buff1, "Ã¸", "ø")
sql_buff1 = replace(sql_buff1, "Ã¹", "ù")
sql_buff1 = replace(sql_buff1, "Ãº", "ú")
sql_buff1 = replace(sql_buff1, "Ã»", "û")
sql_buff1 = replace(sql_buff1, "Ã¼", "ü")
sql_buff1 = replace(sql_buff1, "Ã½", "ý")
sql_buff1 = replace(sql_buff1, "Ã¾", "þ")
sql_buff1 = replace(sql_buff1, "Ã¿", "ÿ")
sql_buff1 = replace(sql_buff1, "&excl;", "!")
sql_buff1 = replace(sql_buff1, """, Chr(34))
sql_buff1 = replace(sql_buff1, "&num;", "#")
sql_buff1 = replace(sql_buff1, "&dollar;", "$")
sql_buff1 = replace(sql_buff1, "&percnt;", "%")
sql_buff1 = replace(sql_buff1, "&", "&")
sql_buff1 = replace(sql_buff1, "'", "'")
sql_buff1 = replace(sql_buff1, "&lparen;", "(")
sql_buff1 = replace(sql_buff1, "&rparen;", ")")
sql_buff1 = replace(sql_buff1, "&ast;", "*")
sql_buff1 = replace(sql_buff1, "+", "+")
sql_buff1 = replace(sql_buff1, ",", ",")
sql_buff1 = replace(sql_buff1, "&period;", ".")
sql_buff1 = replace(sql_buff1, "/", "/")
sql_buff1 = replace(sql_buff1, "&colon;", ":")
sql_buff1 = replace(sql_buff1, "&semi;", ";")
sql_buff1 = replace(sql_buff1, "<", "<")
sql_buff1 = replace(sql_buff1, "=", "=")
sql_buff1 = replace(sql_buff1, ">", ">")
sql_buff1 = replace(sql_buff1, "&quest;", "?")
sql_buff1 = replace(sql_buff1, "&commat;", "@")
sql_buff1 = replace(sql_buff1, "[", "[")
sql_buff1 = replace(sql_buff1, "\", "\")
sql_buff1 = replace(sql_buff1, "]", "]")
sql_buff1 = replace(sql_buff1, "&Hat;", "^")
sql_buff1 = replace(sql_buff1, "&lowbar;", "_")
sql_buff1 = replace(sql_buff1, "&grave;", "`")
sql_buff1 = replace(sql_buff1, "{", "{")
sql_buff1 = replace(sql_buff1, "|", "|")
sql_buff1 = replace(sql_buff1, "}", "}")
sql_buff1 = replace(sql_buff1, "&tilde;", "~")
sql_buff1 = replace(sql_buff1, "€", "€")
sql_buff1 = replace(sql_buff1, "&sbquo;", "‚")
sql_buff1 = replace(sql_buff1, "&fnof;", "ƒ")
sql_buff1 = replace(sql_buff1, "&bdquo;", "„")
sql_buff1 = replace(sql_buff1, "…", "…")
sql_buff1 = replace(sql_buff1, "&dagger;", "†")
sql_buff1 = replace(sql_buff1, "&Dagger;", "‡")
sql_buff1 = replace(sql_buff1, "&circ;", "ˆ")
sql_buff1 = replace(sql_buff1, "&permil;", "‰")
sql_buff1 = replace(sql_buff1, "&Scaron;", "Š")
sql_buff1 = replace(sql_buff1, "&lsaquo;", "‹")
sql_buff1 = replace(sql_buff1, "&OElig;", "Œ")
sql_buff1 = replace(sql_buff1, "&Zcaron;", "Ž")
sql_buff1 = replace(sql_buff1, "‘", "‘")
sql_buff1 = replace(sql_buff1, "’", "’")
sql_buff1 = replace(sql_buff1, "“", "“")
sql_buff1 = replace(sql_buff1, "”", "”")
sql_buff1 = replace(sql_buff1, "•", "•")
sql_buff1 = replace(sql_buff1, "–", "–")
sql_buff1 = replace(sql_buff1, "—", "—")
sql_buff1 = replace(sql_buff1, "&tilde;", "˜")
sql_buff1 = replace(sql_buff1, "™", "™")
sql_buff1 = replace(sql_buff1, "&scaron;", "š")
sql_buff1 = replace(sql_buff1, "&rsaquo;", "›")
sql_buff1 = replace(sql_buff1, "&oelig;", "œ")
sql_buff1 = replace(sql_buff1, "&zcaron;", "ž")
sql_buff1 = replace(sql_buff1, "&Yuml;", "Ÿ")
sql_buff1 = replace(sql_buff1, " ", " ")
sql_buff1 = replace(sql_buff1, "¡", "¡")
sql_buff1 = replace(sql_buff1, "¢", "¢")
sql_buff1 = replace(sql_buff1, "£", "£")
sql_buff1 = replace(sql_buff1, "¤", "¤")
sql_buff1 = replace(sql_buff1, "¥", "¥")
sql_buff1 = replace(sql_buff1, "¦", "¦")
sql_buff1 = replace(sql_buff1, "§", "§")
sql_buff1 = replace(sql_buff1, "¨", "¨")
sql_buff1 = replace(sql_buff1, "©", "©")
sql_buff1 = replace(sql_buff1, "ª", "ª")
sql_buff1 = replace(sql_buff1, "«", "«")
sql_buff1 = replace(sql_buff1, "¬", "¬")
sql_buff1 = replace(sql_buff1, "**", "-") '---- ésta no se ve bien seria *le pongo un espacio : sql_buff1 = replace(sql_buff1, "& shy;", "-")
sql_buff1 = replace(sql_buff1, "®", "®")
sql_buff1 = replace(sql_buff1, "¯", "¯")
sql_buff1 = replace(sql_buff1, "°", "°")
sql_buff1 = replace(sql_buff1, "±", "±")
sql_buff1 = replace(sql_buff1, "²", "²")
sql_buff1 = replace(sql_buff1, "³", "³")
sql_buff1 = replace(sql_buff1, "´", "´")
sql_buff1 = replace(sql_buff1, "µ", "µ")
sql_buff1 = replace(sql_buff1, "¶", "¶")
sql_buff1 = replace(sql_buff1, "·", "·")
sql_buff1 = replace(sql_buff1, "¸", "¸")
sql_buff1 = replace(sql_buff1, "¹", "¹")
sql_buff1 = replace(sql_buff1, "º", "º")
sql_buff1 = replace(sql_buff1, "»", "»")
sql_buff1 = replace(sql_buff1, "¼", "¼")
sql_buff1 = replace(sql_buff1, "½", "½")
sql_buff1 = replace(sql_buff1, "¾", "¾")
sql_buff1 = replace(sql_buff1, "¿", "¿")
sql_buff1 = replace(sql_buff1, "À", "À")
sql_buff1 = replace(sql_buff1, "Á", "Á")
sql_buff1 = replace(sql_buff1, "Â", "Â")
sql_buff1 = replace(sql_buff1, "Ã", "Ã")
sql_buff1 = replace(sql_buff1, "Ä", "Ä")
sql_buff1 = replace(sql_buff1, "Å", "Å")
sql_buff1 = replace(sql_buff1, "Æ", "Æ")
sql_buff1 = replace(sql_buff1, "Ç", "Ç")
sql_buff1 = replace(sql_buff1, "È", "È")
sql_buff1 = replace(sql_buff1, "É", "É")
sql_buff1 = replace(sql_buff1, "Ê", "Ê")
sql_buff1 = replace(sql_buff1, "Ë", "Ë")
sql_buff1 = replace(sql_buff1, "Ì", "Ì")
sql_buff1 = replace(sql_buff1, "Í", "Í")
sql_buff1 = replace(sql_buff1, "Î", "Î")
sql_buff1 = replace(sql_buff1, "Ï", "Ï")
sql_buff1 = replace(sql_buff1, "Ð", "Ð")
sql_buff1 = replace(sql_buff1, "Ñ", "Ñ")
sql_buff1 = replace(sql_buff1, "Ò", "Ò")
sql_buff1 = replace(sql_buff1, "Ó", "Ó")
sql_buff1 = replace(sql_buff1, "Ô", "Ô")
sql_buff1 = replace(sql_buff1, "Õ", "Õ")
sql_buff1 = replace(sql_buff1, "Ö", "Ö")
sql_buff1 = replace(sql_buff1, "×", "×")
sql_buff1 = replace(sql_buff1, "Ø", "Ø")
sql_buff1 = replace(sql_buff1, "Ù", "Ù")
sql_buff1 = replace(sql_buff1, "Ú", "Ú")
sql_buff1 = replace(sql_buff1, "Û", "Û")
sql_buff1 = replace(sql_buff1, "Ü", "Ü")
sql_buff1 = replace(sql_buff1, "Ý", "Ý")
sql_buff1 = replace(sql_buff1, "Þ", "Þ")
sql_buff1 = replace(sql_buff1, "ß", "ß")
sql_buff1 = replace(sql_buff1, "à", "à")
sql_buff1 = replace(sql_buff1, "á", "á")
sql_buff1 = replace(sql_buff1, "â", "â")
sql_buff1 = replace(sql_buff1, "ã", "ã")
sql_buff1 = replace(sql_buff1, "ä", "ä")
sql_buff1 = replace(sql_buff1, "å", "å")
sql_buff1 = replace(sql_buff1, "æ", "æ")
sql_buff1 = replace(sql_buff1, "ç", "ç")
sql_buff1 = replace(sql_buff1, "è", "è")
sql_buff1 = replace(sql_buff1, "é", "é")
sql_buff1 = replace(sql_buff1, "ê", "ê")
sql_buff1 = replace(sql_buff1, "ë", "ë")
sql_buff1 = replace(sql_buff1, "ì", "ì")
sql_buff1 = replace(sql_buff1, "í", "í")
sql_buff1 = replace(sql_buff1, "î", "î")
sql_buff1 = replace(sql_buff1, "ï", "ï")
sql_buff1 = replace(sql_buff1, "ð", "ð")
sql_buff1 = replace(sql_buff1, "ñ", "ñ")
sql_buff1 = replace(sql_buff1, "ò", "ò")
sql_buff1 = replace(sql_buff1, "ó", "ó")
sql_buff1 = replace(sql_buff1, "ô", "ô")
sql_buff1 = replace(sql_buff1, "õ", "õ")
sql_buff1 = replace(sql_buff1, "ö", "ö")
sql_buff1 = replace(sql_buff1, "÷", "÷")
sql_buff1 = replace(sql_buff1, "ø", "ø")
sql_buff1 = replace(sql_buff1, "ù", "ù")
sql_buff1 = replace(sql_buff1, "ú", "ú")
sql_buff1 = replace(sql_buff1, "û", "û")
sql_buff1 = replace(sql_buff1, "ü", "ü")
sql_buff1 = replace(sql_buff1, "ý", "ý")
sql_buff1 = replace(sql_buff1, "þ", "þ")
sql_buff1 = replace(sql_buff1, "ÿ", "ÿ")

devuelve_ascii = sql_buff1
End Function