Besoin d'un AppleScript pour ignorer une ligne supplémentaire dans un fichier d'entrée TAB

La première méthode aspire le texte sous forme de paragraphes dans une liste, puis supprime le dernier élément. La seconde méthode lit l'ensemble du texte et saisit tous les caractères sauf le dernier (c'est-à-dire le saut de ligne superflu), puis établit une liste de paragraphes.

Mise à jour : Ajout de if then pour tester si le fichier d'entrée se termine par une ligne vide.

Méthode 1

use scripting additions
-- two test files, one ends with linefeed
set theInputFile to "MacHD:Users:username:fmempty.txt"
-- set theInputFile to "MacHD:Users:username:fmtext.txt"

set readFile to (get paragraphs of (read file theInputFile))
if last item of readFile is "" then
    set lastPara to -2
else
    set lastPara to -1
end if

set fileList to items 1 thru lastPara of readFile
repeat with eachFilePath in fileList
[…]

Méthode 2

use scripting additions
-- two test files, one ends with linefeed
set theInputFile to "MacHD:Users:username:fmempty.txt"
-- set theInputFile to "MacHD:Users:username:fmtext.txt"

set readFile to (read file theInputFile)
if last character of readFile is linefeed then
    set fileText to text 1 thru -2 of readFile
else
    set fileText to text of readFile
end if

set fileList to paragraphs of fileText
repeat with eachFilePath in fileList
[…]

NB le read fait partie des ajouts standard, d'où l'ouverture de la page d'accueil. use scripting additions ligne.

J'ai téléchargé votre "Testing Input.tab" dans mon dossier de téléchargements. Cela dit, pour éviter d'avoir à utiliser des boucles conditionnelles pour vérifier la présence de paragraphes vides... Mon approche a été de simplement supprimer les paragraphes vides dès le départ en utilisant la fonction do shell script et définir le fileList à ce résultat.

set theInputFile to POSIX path of ¬
    ((path to downloads folder as text) & "Testing Input.tab")

set fileList to paragraphs of ¬
    (do shell script "cat " & quoted form of theInputFile & " |sed '/^$/d'")

repeat with eachFilePath in fileList
    --process eachFilePath
    delay 0.1
end repeat

Option 2 : À mon avis, la solution suivante est probablement la plus facile à comprendre et à dépanner si nécessaire (pour ceux qui sont novices en matière de AppleScript )

set fileList to paragraphs of (read theInputFile)

if last item of fileList = "" then set fileList to reverse of ¬
    rest of reverse of paragraphs of (read theInputFile)

repeat with eachFilePath in fileList
    -- set inFile to POSIX file (pathPrefix & eachFilePath as text)
    tell application "Finder"

    end tell
end repeat