<pre>function linesToItems lineListe  toComputer  if lineListe is empty then return "Doit fournir une table!"  repeat with x = 1 to the number of lines of lineListe    put line x of lineListe & "," after itemList  end repeat  delete last char of itemList  return itemListend linesToItems</pre>