Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Ważne!!!!!
anonim




Typ: Nie zarejestrowany
Ważne!!!!!

Mam dane w Hex i są zapisane np. tak: aa b3 4b itd.
Teraz potrzebuje każdą pare znaków na dec.I właśnie wtedy wyjdą mi liczby które są kodami ASCII
liter na które musze je zamienić.No, to tyle.To raczej nie jest proste, a ja jestem początkujący.
Fajnie by było gdyby program jeszcze umiał to zrobić w drugą stronę.

01-05-2004 22:49
  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Przykład zaczerpnięty ze strony : http://freevbcode.com/ShowCode.Asp?ID=2550 ,
dopisałam tylko deklaracje zmiennych.

Public Function hex2ascii(ByVal hextext As String) As String
Dim y As Long
Dim num As String, value As String
For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    value = value & Chr(Val("&h" & num))
    y = y + 1
Next y
hex2ascii = value
End Function

Ponieważ mówisz, ze jesteś początkujący, wywołanie np.: 
wynik = hex2ascii("aab34b" )
wynik = hex2ascii("383937" )


_____________________________________________
Karolina

01-05-2004 23:38
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1