LiveCode Forums.

Code: Select all

Function convertprimary mywords
    Put MyWords Into Pippo
    Repeat for Each Char Item in Pippo
       Add 1 to i
       Put Char I of Pippo Into letters
       ---> Here should be the array for replacement <---
       Answer letters
    End Repeat
End ConvertPrimary

Code: Select all

on mouseUp
  
  put "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26" into tNumbers
  put "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" into tLetters
  
  set the itemDel to comma
  
  repeat with c = 1 to the number of items in tNumbers
    put item c of tLetters into item c of tNumbers
  end repeat
  
  answer tNumbers
  
  --if you want to get rid of the commas
  replace "," with space in tNumbers
  
  answer tNumbers
  
end mouseUp

Code: Select all

Function convertprimary mywords
   ## Create the array:
   ## We will use repat for EACH so we need to manage a counter
   put 1 into tCounter
   put empty into tCharArray
   repeat for each char tChar in "abcdefghijklmnopqrstuvwxyz"
      put tCounter into tCharArray[tChar]
      add 1 to tCounter
   end repeat
   
   ## Now replace each char with its number from the array
   ## We create a new variable which contains the replaced character
   put empty into myNewWords
   Repeat for Each Char tChar2 in mywords
      put tCharArray[tChar2] after myNewWords
   End Repeat
   return myNewWords
End ConvertPrimary

Code: Select all

on mouseUp
    answer convertprimary("E")
end mouseUp

function convertprimary pLetter
   return itemOffSet(toUpper(pLetter),"A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z")
end convertprimary 

Code: Select all

on mouseUp
    answer convertprimary("E")
end mouseUp

local sLetterArray
function convertprimary pLetter
   if sLetterArray is not an array then
      local c = 0
      repeat for each item i in "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
         add 1 to c
         put c into sLetterArray[i]
      end repeat
   end if
   
   return sLetterArray[ pLetter ]
end convertprimary 

Code: Select all

function LetterToNum pWord
   local tNexText
   repeat for each char tChar in pWord
      put convertprimary(tChar) after tNexText
   end repeat
   return tNexText
end LetterToNum

Code: Select all

on mouseUp
   answer translateCharsToNumbers("my dog has fleas") 
end mouseUp

function translateCharsToNumbers var
   repeat for each char tChar in var
      put charTonum(tChar) - 96 & space after temp
   end repeat
   return temp
end translatecharsToNumbers

Code: Select all

on mouseUp
   answer translateCharsToNumbers("My dOg2 & ? HaS flEAs") 
end mouseUp

function translateCharsToNumbers var
   put "abcdefghijklmnopqrstuvwxyz" into pool
   repeat for each char tChar in var
      if tChar is in pool then put charTonum(toUpper(tChar)) - 64 & space after temp
   end repeat
   return temp
end translateCharsToNumbers