convertir cadena ascii a hexadecimal

[karen81]

pues tengo una duda yo habia encontrado una rutina para convertir cadenas de ascci a hexadecimal lo que hago es:
Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim d As Byte
Dim e as string
Dim f as long

e= "ABCD"
a = Asc(Mid(e, 1, 1)) "se convierten a decimal los valores ascii
b = Asc(Mid(e, 2, 1))
c = Asc(Mid(e, 3, 1))
d = Asc(Mid(e, 4, 1))
" rutina que finalmente encuentra el valor decimal de todo el arreglo ascii
f = ((a And &H7F) * &H1000000) Or (b * &H10000) Or (CLng(c) * &H100) Or d
   If a And &H80 Then
        f = fOr &H80000000
no se si alguien tiene otra forma de hacerlo, si alguien la tiene le agradeceria mucho que la posteara.

[BrunoF]

hola. no entendi muy bien lo que queres... a ver..aca te programe algo:

Codigo:

Private Sub Form_Load()

Cadena2hex "hola"

End Sub


Private Function Cadena2hex(Cadena As String) As String


Dim Recorre As Integer

For Recorre = 1 To Len(Cadena)

    Cadena2hex = Cadena2hex & Hex(Asc(Mid(Cadena, Recorre, 1)))

Next

    MsgBox Cadena2hex

End Function

no se si es lo que querias...
Saludos

[karen81]

cometi un error; perdon, mi pregunta era convertir cadena ascii a DECIMAL.
el programa que puse arriba es precisamente para eso de ascii a decimal.
Gracias BrunoF, por tu tiempo , si tenes otra forma de pasar de ascii a decimal te agradeceria mucho que lo postearas. Gracias.

[BrunoF]

jeje ok...cualquiera se equivoca...Aca te pongo una "alternativa" que programe para ti. ¿que cosa rara andas inventando?

Codigo:

Private Sub Form_Load()

MsgBox Cadena2Dec("ABCD"

End Sub


Private Function Cadena2Dec(Cadena As String) As Long

Dim Recorre As Integer

For Recorre = 1 To Len(Cadena)
    Cadena2Dec = Cadena2Dec + (Asc(Mid(Cadena, Recorre, 1))) * (256 ^ (Len(Cadena) - Recorre))

Next

End Function

Exitos...

[karen81]

pues solo queria aclarar que la rutina que puse arriba funciona perfectamente, queria una segunda opinion porque pense que estaba mal, pero no es asi
gracias BrunoF por tu tiempo

[BrunoF]

Bueno, una manera simple de comprobar este tipo de pasaje de decimal a binario, hex etc. es utilizar la calculadora de windows en modo cientifica, alli podras comprobar los valores en un sistema u otro. Saludos...