** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - VBA: Access - XML. Caracteres a Hexadecimal
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVBA: Access - XML. Caracteres a Hexadecimal

 Responder Responder
Autor
Mensaje
genoma111 Ver desplegable
Administrador
Administrador
Avatar

Unido: 28/Marzo/2011
Localización: ...
Estado: Sin conexión
Puntos: 3248
Enlace directo a este mensaje Tema: VBA: Access - XML. Caracteres a Hexadecimal
    Enviado: 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


Editado por genoma111 - 21/Agosto/2013 a las 19:13
"To VBA or not to VBA... that's the question" DFP
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable