LiveCode Forums.

Code: Select all

on testReplacePoint pMet
   put ".aa,bb,cc." into MyString
   if pMet = 1 then
      put "." into unSC --•• test1 dont work
   end if
   if pMet = 2 then
      put numtochar(46) into unSC --•• test2 dont work
   end if
   put replacetext(MyString,unSC,space) into LeT
   put empty into TheCTN
   put the num of chars of LeT
   repeat for each char UnC in LeT
      put chartonum(Unc)&"," after TheCTN
   end repeat
   delete last char of TheCTN
   put LeT&return&TheCTN into msg
end testReplacePoint

Code: Select all

on testReplacePoint2
   put ".aa,bb,cc." into MyString
   put empty into MyString2
   set the itemdel to "."
   repeat for each item myitem in MyString
      put myitem after MyString2
   end repeat
   set the itemdel to ","
   put MyString&return&MyString2 into msg
end testReplacePoint2

Code: Select all

on mouseUp
   put ".aa,bb,cc." into stringToChange
   replace "." with empty in stringToChange
   put stringToChange
end mouseUp