LiveCode Forums.

Code: Select all

on mouseUp
  put quotedPrintableFromUnicode(the unicodeText of field 1)
end mouseUp


function quotedPrintableFromUnicode pData
  local tFirstByteFlag          -- bool, flag if we're on the first or second byte of a two byte char
  local tOneByteChar            -- char, repeat loop var, current one-byte character in the saBody["text"] variable
  local tOneByteChar2           -- char, repeat loop var, current one-byte character in the tTwoByteCharDecoded variable
  local tTwoByteChar            -- char, current two-byte character (created by placing two tOneByteChar vars together)
  local tTwoByteCharDecoded     -- str, conversion of tTwoByteChar to UTF8
  local tOneByteCharConverted   -- str, conversion of tOneByteChar2 to quoted-printable
  local tDataOut                -- str, encoded data
  local tDataInLine
  local tDataInLine2
  
  --- encode the plain text body part
  put TRUE into tFirstByteFlag
  repeat for each char tOneByteChar in pData
    if (tFirstByteFlag) then
      put tOneByteChar into tTwoByteChar
      put FALSE into tFirstByteFlag
      next repeat
    else
      put tOneByteChar after tTwoByteChar
      put TRUE into tFirstByteFlag
    end if
    
    set the useUnicode to TRUE
    if (charToNum(tTwoByteChar) > 127) then
      put uniDecode(tTwoByteChar, "UTF8") into tTwoByteCharDecoded
      repeat for each char tOneByteChar2 in tTwoByteCharDecoded   # v101: changed tOneByteChar to tOneByteChar2 to lessen confusion: Jan Decroos
        get binaryDecode("H2", tOneByteChar2, tOneByteCharConverted)   # v101: changed tOneByteChar to tOneByteChar2 to lessen confusion: Jan Decroos
        put "=" & toUpper(tOneByteCharConverted) after tDataOut
      end repeat
    else
      put uniDecode(tTwoByteChar, "UTF8") after tDataOut
    end if
  end repeat
  return tDataOut
end quotedPrintableFromUnicode