Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: hex to chr & chr to hex
anonim




Typ: Nie zarejestrowany
hex to chr & chr to hex

ma ktos jakis pomysl jak zrobic by z ciagu np:
04FF0062006F (w hexie) zamienic na chr ?chyba odczytywac po 2 cyfry z lewej i zamieniac na chr ale jak.. proszeo pomoc ! moze jakies zrodlo ) ?

03-10-2004 18:06
  
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Public Function Hex2Dec(sHex As String) As Byte
    Select Case UCase(sHex)
        Case "0": Hex2Dec = 0
        Case "1": Hex2Dec = 1
        Case "2": Hex2Dec = 2
        Case "3": Hex2Dec = 3
        Case "4": Hex2Dec = 4
        Case "5": Hex2Dec = 5
        Case "6": Hex2Dec = 6
        Case "7": Hex2Dec = 7
        Case "8": Hex2Dec = 8
        Case "9": Hex2Dec = 9
        Case "A": Hex2Dec = 10
        Case "B": Hex2Dec = 11
        Case "C": Hex2Dec = 12
        Case "D": Hex2Dec = 13
        Case "E": Hex2Dec = 14
        Case "F": Hex2Dec = 15
    End Select
End Function

Public Function Hex2Ascii(sHex As String) As String
    Dim sDigit As String
    Dim nCChar As Integer
    Dim nChar As Integer
   
    For nCChar = 0 To Len(sHex) / 2 - 1
        sDigit = Mid$(sHex, nCChar * 2 + 1, 1)
        nChar = CInt(Hex2Dec(sDigit)) * CInt(16)
        sDigit = Mid$(sHex, nCChar * 2 + 2, 1)
        nChar = nChar + CInt(Hex2Dec(sDigit))
        Hex2Ascii = Hex2Ascii & Chr$(nChar)
    Next
End Function

Public Function Ascii2Hex(sAscii As String) As String
    Dim nCChar As Integer
    Dim sHex As String
   
    For nCChar = 1 To Len(sAscii)
        sHex = Hex$(Asc(Mid$(sAscii, nCChar, 1)))
        Ascii2Hex = Ascii2Hex & CStr(IIf(Len(sHex) = 1, "0" & sHex, sHex))
    Next
End Function


Funkcja Ascii2Hex zamienia tekst na zapis szesnastkowy, Hex2Ascii - odwrotnie. hex2dec zamienia zapis szesnastkowy na wartość (potrzebne do działania pozostałych dwóch).
Funkcja Hex2Ascii jako argument musi dostać parzystą ilość znaków, inaczej będzie błąd.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

03-10-2004 19:10
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1