Aqui os dejo una funcin, en VB, de conversiones para los que usen, como yo, softwares que no estn 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, "!", "!")
sql_buff1 = replace(sql_buff1, """, Chr(34))
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, "&lparen;", "(")
sql_buff1 = replace(sql_buff1, "&rparen;", ")")
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, "**", "-") '---- 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
|
ltima edicin por ermendalenda fecha: 11-12-2024 a las 09:19:46.
|