Tema: Propiedades de una imagen...
Ver Mensaje Individual
  #7 (permalink)  
Antiguo 27/09/2004, 07:30
Avatar de sanfermin
sanfermin
 
Fecha de Ingreso: diciembre-2001
Mensajes: 601
Antigüedad: 23 años, 5 meses
Puntos: 2
Código: 
Function hex2ascii(cadena)
    
For y = 1 To Len(cadena)
    num = Mid(cadena, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y

hex2ascii = Value
End Function
no he tenido tiempo de probar la función, sorry
__________________
MainMind.com
La blasfemia es el único lenguaje que de verdad conocen todos los programadores