[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Fwd: Need help on gambas function
[Thread Prev] | [Thread Next]
- Subject: Fwd: Need help on gambas function
- From: Fabien Bodard <gambas.fr@xxxxxxxxx>
- Date: Wed, 18 Dec 2024 12:13:25 +0100
- To: Gambas Mailing List <user@xxxxxxxxxxxxxxxxxxxxxx>
---------- 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
Re: Fwd: Need help on gambas function | Gianluigi <gradobag@xxxxxxxxxxx> |
Re: Need help on gambas function | Bruce Steers <bsteers4@xxxxxxxxx> |