prevod z hexa na decimalni ?

Petr vpe na seznam.cz
Neděle Červen 22 07:47:41 CEST 2003


je to ono, problem je jen, ze vstupni rada (HEXA vstup) je treba 20kB
kontinualniho stringu (bez mezer)

a vystupni ma byt po wordovych cisilkach, tedy vzdy zkonvertovane 2 bajty


mam nejakou funkci, ale zatim mi to nechodi, kdo poradi?:

Function HexToDec(in1)
For i = 1 To Len(in1)
out = UCase(Mid(in1, i, 1))
If Asc(out) >= 65 Or Asc(out) >= 90 Then
out = Asc(out) - 55
End If
output = output + (out * (16 ^ (Len(in1) - i)))
Next i
HexToDec = output
End Function



"[cz]Emo" <emo na emo-cz.net> píše v diskusním příspěvku
news:bd32rg$t2q$1 na mrazik2.dkm.cz...
> Ted jsem to akorat resil u web anket v PHP. Prevadim "HTML barvu" #rrggbb
na
> podil slozek.
> Pouzivam toto:
>
> hexdec(substr($colors[$ci], 0, 2))
> hexdec(substr($colors[$ci], 2, 2))
> hexdec(substr($colors[$ci], 4, 2))
>
> kde $colors[$ci] je ve retezec ve tvaru 'rrggbb'.
> Staci si to prepsat na 16-ti bit, pripadne do neceho jineho nez PHP.
>
> Snad je tohle to, co jsi mel na mysli.
>
> Emo
>
> "Petr" <vpe na seznam.cz> píše v diskusním příspěvku
> news:bd2ksn$8gi$1 na ns.felk.cvut.cz...
> > Zdravim,
> >
> > chci prevest budto binarni data anebo jejich hexa reprezentaci (tj.
napr.
> > FFFF46060813...) na decimalni cisla po wordech (tj po 16bitech),
napriklad
> > $FFFF46060813 aby mi to prevedlo na 3 decimalni cisla: 65535 1606 4872
> >
> > Cim to udelat, abych to nemusel prevadet ruco?
> >
> > P.
>
>



Další informace o konferenci Test