[ibm-pc] Re: prevod z hexa na decimalni ?

To ibm-pc zavinac debian bod cz
From "Petr" <vpe zavinac seznam bod cz>
Date Sun, 22 Jun 2003 07:47:41 +0200
Newsgroups cz.comp.databases.misc, cz.comp.grafika, cz.comp.ibmpc, cz.comp.linux, cz.comp.microsoft.asp, cz.comp.microsoft.sql, cz.comp.windows.ms, cz.comp.windows.nt
Organization Czech Technical University 
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 zavinac emo-cz bod net> píše v diskusním příspěvku
news:bd32rg$t2q$1 zavinac mrazik2 bod dkm bod cz bod  bod  bod 
> 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 zavinac seznam bod cz> píše v diskusním příspěvku
> news:bd2ksn$8gi$1 zavinac ns bod felk bod cvut bod cz bod  bod  bod 
> > 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.
>
>
Partial thread listing: