LiveCode Forums.

Code: Select all

public handler hexToDec(in pText as String)
   variable tChar as optional String
   variable tNum as optional Number
   variable tSum as Number
   variable tCount as Number
   variable tHex as Number

   put the number of chars in pText into tCount
   repeat for each char tChar in pText
         subtract 1 from tCount
         if tChar is "A" then
            put "10" into tChar
         else if tChar is "B" then
            put "11" into tChar
         else if tChar is "C" then
            put "12" into tChar
         else if tChar is "D" then
            put "13" into tChar
         else if tChar is "E" then
            put "14" into tChar
         else if tChar is "F" then
            put "15" into tChar
         end if

         parse tChar as Number into tNum
         add (tNum * (16^tCount)) to tSum
   end repeat
   return tSum
end handler

Code: Select all

public handler practiceMe()
   variable tString as String
   put "5.6" into tString
   parse tString as Number -- the result is 5.6
end handler

public handler practiceMe2()   
   variable tResult as optional String
   variable tNum as optional Number
   parse "aaaa" as Number into tNum

   if tNum is nothing then
   	put "unable to parse string" into tResult
   end if
end handler

Code: Select all

private handler practiceMe()
   variable tString as String
   variable tNum as Number
   put "5.6" into tString
   parse tString as number into tNum -- the result is 5.6
   log [tNum]
 end handler

 private handler practiceMe2()
   variable tResult as optional String
   variable tNum as optional Number
   parse "aaaa" as number into tNum

   if tNum is nothing then
   	put "unable to parse string" into tResult
      log tResult
   end if
 end handler

Code: Select all

handler hexToDec(in pText as String) returns Number
   variable tChar as String
   variable hexChars as String
   variable tNum as Number
   variable tSum as Number
   variable tCount as Number
   put 0 into tSum
   put the number of chars in pText into tCount
   put "0123456789ABCDEF" into hexChars
   repeat for each char tChar in pText
      subtract 1 from tCount
      put -1+the offset of tChar in hexChars into tNum
      add (tNum * (16^tCount)) to tSum
   end repeat
   return tSum
end handler

Code: Select all

handler hexToDec(in pText as String) returns Number
   variable tChar as String
   variable hexList as List
   variable tNum as Number
   variable tSum as Number
   variable tCount as Number
   put 0 into tSum
   put ["0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"] into hexList
   put the number of chars in pText into tCount
   repeat for each char tChar in pText
      subtract 1 from tCount
      put -1+the index of tChar in hexList into tNum
      add (tNum * (16^tCount)) to tSum
   end repeat
   return tSum
end handler