Numbers to CSV export script: how to specify the encoding?

Question

Hi,
I'm using the following script to export a Numbers document to CSV:
# Command-line tool to convert an iWork '09 Numbers
# document to CSV.
# Parameters:
# - input: Numbers input file
# - output: CSV output file
# Attik System, Philippe Lang
# Creation date: 31 mai 2012
# Modification date:
on run argv
  # We retreive the path of the script
          set myPath to (path to me)
          tell application "Finder" to set myFolder to folder of myPath
  # We get the command line parameters
          set input_file to item 1 of argv
          set output_file to item 2 of argv
  # We retreive the extension of the file
          set theInfo to (info for (input_file))
          set extname to name extension of (theInfo)
  # Paths
          set input_file_path to (myFolder as text) & input_file
          set output_file_path to (myFolder as text) & output_file
          if extname is equal to "numbers" then
    tell application "Numbers"
      open input_file_path
      save document 1 as "LSDocumentTypeCSV" in output_file_path
      close every window saving no
    end tell
          end if
end run
It works fine, except that I don't know how to specify the encoding of the text in the CSV file (Latin1, MacRoman, Unicode). This option is available in the export dialog of Numbers. Any hint on how to do that is welcome. (GUI Scripting?)
Where can I find documentation on the iWork "vocabulary" available? Is there a definitive documentation somewhere? I tried to record an manual export in the script editor, without success. Script is more or less empty.
Thanks!
Philippe Lang

Answer 1

A further note from Yvan. He's made some revisions to the script sent earlier.
--{code}
--[SCRIPT export to CSV with selected encoding]
I added some features.
(1) Defining the encoding thru the preferences file apply only if
the application is not in use because the file is read only once in a session.
A test urge you to quit Numbers if it is running.
(2) info for is deprecated so it may be removed by Apple tomorrow.
I no longer use it.
(3) just for the fun, I added a piece of code allowing you to select the encoding on the fly.
Thanks to the property chooseEncodingInScript, at this time the script use Unicode (UTF-8)
(4) I'm wondering which tool is used to launch this script,
I don't know the way to pass arguments when I run one.
Yvan KOENIG (VALLAURIS, France)
2012/06/13
property chooseEncodingInScript : false
true = the script will ask you to select the encoding
false = the script use the embedded encoding
on run argv
  set input_file to (item 1 of argv) as text
  set output_file to (item 2 of argv) as text
  set myPath to (path to me) as text
          tell application "System Events"
  set theProcesses to name of every application process
  set myFolder to path of container of (disk item myPath)
  set input_file_path to myFolder & input_file
  set output_file_path to myFolder & output_file
  set extname to name extension of (disk item input_file)
  end tell
          if extname is "numbers" then
                    if "Numbers" is in theProcesses then error "Please, quit “Numbers” before running this script !"
  if chooseEncodingInScript then
                              set theList to {"Mac OS Roman", "Unicode (UTF-8)", "Windows Latin 1"}
                              set maybe to choose from list theList with prompt "Choose the default encoding applying to export as CSV"
  if maybe is false then
  error number -128
  else if item 1 of maybe is item 1 of theList then
                                        30 -- Mac OS Roman
  else if item 1 of maybe is item 2 of theList then
                                        4 -- Unicode (UTF-8)
  else
                                        12 -- Windows Latin 1
  end if
  else
                              4 -- Unicode (UTF-8)
  end if
                    do shell script "defaults write com.apple.iWork.Numbers CSVExportEncoding  -int " & result
  tell application "Numbers"
  open input_file_path
                              save document 1 as "LSDocumentTypeCSV" in output_file_path
  close every window saving no
  end tell
  end if
end run
--{code}
Regards,
Barry