Here is a VB6 code to convert to and from base36, it should work almost the same in Gambas:
' Support functions ' Get a base36 digit Private Function D36(ByVal N As Integer) As String D36 = Chr$(N + IIf(N <= 9, 48, 55)) End Function ' base36 Logarithm Private Function Log36(ByVal X As Double) As Double Log36 = Log(X) / Log(36#) End Function ' Convert a base10 number (Num10) to base36 with a maximum of RNum digits ' Public Function ToBase36(ByVal Num10 As Long, ByVal RNum As Integer) As String Dim Num36 As String, Base As Long, Mult As Integer, E As Integer Num36 = String$(RNum, "0") If Num10 > 0 Then E = Int(Log36(Num10)) Do Base = 36 ^ E Mult = Int(Num10 / Base) Mid$(Num36, RNum - E, 1) = D36(Mult) Num10 = Num10 - Mult * Base E = E - 1 Loop Until E < 0 End If ToBase36 = Num36 End Function ' Convert a base36 number (Num36) back to base10 ' Public Function ToBase10(ByVal Num36 As String) As Long Dim Num10 As Long, I As Integer, D As Long, C As String, E As Integer Num10 = 0 E = Len(Num36) For I = E To 1 Step -1 C = UCase$(MID$(Num36, I, 1)) If C >= "A" And C <= "Z" Then D = ASc(C) - 55 ElseIf C >= "0" And C <= "9" Then D = ASc(C) - 48 Else D = 0 End If Num10 = Num10 + D * (36 ^ (E - I)) Next I ToBase10 = Num10 End Function Pablo _____________________________________________________________________ Jason Hackney wrote: > A cursory look through the docs didn't turn up anything... Is there a > function to convert base, say base 10 to base 36? Or base 16 to base 36. I > want to get to base 36 from either base10 or base16. > > It shouldn't be too difficult to hack something together, but was wondering > if I'm overlooking something that's already there. > > Thanks! > ------------------------------------------------------------------------- > This SF.Net email is sponsored by the Moblin Your Move Developer's challenge > Build the coolest Linux based applications with Moblin SDK & win great prizes > Grand prize is a trip for two to an Open Source event anywhere in the world > http://moblin-contest.org/redirect.php?banner_id=100&url=/ > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > > ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user