prevod z hexa na decimalni ?

[Andrej Burger]

> If Asc(out) >= 65 Or Asc(out) >= 90 Then
ma byt
> If Asc(out) >= 65 And Asc(out) <= 70 Then

ak nie je chyba v tomto co znamena ze to nechodi, co presne?

"Petr" <vpe na seznam.cz> wrote in message news:bd3ftv$hfi$1 na ns.felk.cvut.cz...
> 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.
> >
> >
>