Imprimir página | Cerrar ventana

VBA: Access - XML. Caracteres a Hexadecimal

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77392
Fecha de impresión: 21/Enero/2020 a las 13:08


Tema: VBA: Access - XML. Caracteres a Hexadecimal
Publicado por: genoma111
Asunto: VBA: Access - XML. Caracteres a Hexadecimal
Fecha de publicación: 21/Agosto/2013 a las 16:07
Palabras Clave: XML, hexadecimal, cadena, caracter, conversion, conversión.

Esta función convierte cadenas en entidades hexadecimales. Útil para crear archivos XML.


'---------------------------------------------------------------------------------------------------------------------------------------
' Nombre:      ToXmlHex
' Propósito:   Convierte cadenas en entidades Hexadecimales
' Autor:       Diego F.Pereira-Perdomo
' Fecha:       Jul-02-2012
'---------------------------------------------------------------------------------------------------------------------------------------
Public Function ToXmlHex(strChar As String)

On Error GoTo ErrorHandler

    Dim l      As Integer
    Dim i      As Integer
    Dim Char   As String
    Dim strXML As String
    
    l = Len(strChar)
    
    For i = 1 To l
       Char = Mid(strChar, i, 1)
       If Len(Hex(Asc(Char))) = 2 Then
           strXML = strXML & "_x00" & Hex(Asc(Char)) & "_"
       ElseIf Len(Hex(Asc(Char))) = 3 Then
           strXML = strXML & "_x0" & Hex(Asc(Char)) & "_"
       ElseIf Len(Hex(Asc(Char))) = 4 Then
           strXML = strXML & "_x" & Hex(Asc(Char)) & "_"
       End If
    Next i
    
    ToXmlHex = strXML
    
ErrorHandler:
    Select Case Err.Number
       Case 0
       Case Else
           MsgBox Err.Number & ": " & Err.Description
    End Select
End Function


-------------
"To VBA or not to VBA... that's the question" DFP



Imprimir página | Cerrar ventana