<pre>function findDoc docName  if docName is empty then return empty  toComputer  put liste("Documents") into theDocs  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theDocs    if item 1 of line x of theDocs is docName    then return item 2 of line x of theDocs  end repeat  answer "Document" && docName && "est introuvable."  return emptyend findDoc</pre>