Re: Need help on gambas function

[Bruce Steers <bsteers4@xxxxxxxxx>]

FromBase / Dec ?
https://gambaswiki.org/wiki/lang/frombase
https://gambaswiki.org/wiki/lang/dec2


BruceS

On Wed, 18 Dec 2024 at 11:13, Fabien Bodard <gambas.fr@xxxxxxxxx> wrote:

>
>
> ---------- Forwarded message ---------
> De : Fabien Bodard <gambas.fr@xxxxxxxxx>
> Date: mar. 17 déc. 2024 à 11:23
> Subject: Need help on gambas function
> To: Fabien Bodard (Greumbeule) <gambas.fr@xxxxxxxxx>
>
>
> Hi to all
>
> In gambas you can :
>
> s = Hex(iInt)
>
> And
> print  Cint("&H" & S)
>
> Give you back the int
> Well now I Want :
> Base(iInt, 36)
>
> How can I get My integer back ... in gambas "native" ?
> Is there an UnBase function ?
>
> Thank you :-)
>
>
> Public Sub Base36Decoder(Value As String) As Long
>
>   Dim lResult As Long
>   Dim iDigitVal, i As Integer
>   Dim aNum As Byte[] = Byte[].FromString(UCase(Value)).Reverse()
>
>   For i = 0 To aNum.Max
>     iDigitVal = IIf(aNum[i] >= Asc("0") And aNum[i] <= Asc("9"), aNum[i] -
> 48, aNum[i] - 55)
>     lResult += iDigitVal * (36 ^ i)
>   Next
>
>   Return lResult
>
> End
>
>
> --
> Fabien Bodard
>
>
> --
> Fabien Bodard
>