¿Cómo introducir un objeto de lista que está almacenado en un archivo .txt en un AppleScript?

Obviamente, no sé el alcance total de lo que está haciendo o cómo tiene otras cosas codificadas, ya que no proporcionó todos los detalles y el código; sin embargo, tomaría un enfoque diferente.

Descargué el Moby Thesaurus de la página vinculada en su pregunta y realicé las siguientes acciones en él.

1. Extrajo el contenido del mthes.tar.Zarchivo.
2. Abrió el ./mthes/mobythes.aurarchivo en TextWrangler y notó dos cosas para cambiar.
   • Cambie los finales de línea de Classic Mac (CR) a Unix (LF).
   • Se eliminaron las comas finales no deseadas de 6 líneas.

Tenga en cuenta que si bien pude hacer estos cambios en TextWrangler, prefiero usar Terminal y lo hice con el siguiente comando:

tr "\r" "\n" < mobythes.aur | sed -E 's/[,]{1,}$//' > mobythes.txt

Lo que tomó literalmente un segundo (ya que en realidad prediqué el comando anterior con time, por curiosidad). Ahora que el mobythes.aurarchivo ha sido procesado, guardado mobythes.txty copiado en mi carpeta Documentos, usaré este nuevo archivo CSV sin formato tal como está, para consultar la cadena de búsqueda en busca de una coincidencia con el primer campo de cada registro y devolver el registro, sin el primer campo, como una lista para elegir en AppleScript. Encontré que este método es extremadamente rápido, mientras buscaba "acercar" el último registro en el archivo CSV, solo tomó un segundo regresar y crear la lista para ese registro sobre la marcha.

En AppleScript Editor utilizo el siguiente código para compararlo con el archivo CSV simple como un solo archivo que contiene las 30 260 líneas con 2,5 millones de sinónimos y palabras relacionadas.

set AppleScript's text item delimiters to ""
set theMobyThesaurus to POSIX path of (path to documents folder) & "mobythes.txt"

set theSearchString to the text returned of (display dialog "Find synonyms for:" default answer "" buttons {"Cancel", "Search"} default button 2 with title "Search Moby Thesaurus")

if theSearchString is not equal to "" then

    try
        set theSearchResults to (do shell script "grep -i -m 1 '^" & theSearchString & ",' " & theMobyThesaurus)
    on error
        display dialog "No match for \"" & theSearchString & "\" available." buttons {"OK"} default button 1
        return
    end try

    if theSearchResults is not equal to "" then
        set AppleScript's text item delimiters to ","
        set theSynonymsList to items 2 thru -1 of text items of theSearchResults as list
        set AppleScript's text item delimiters to ""

        choose from list theSynonymsList with prompt "Choose a synonym for: " & linefeed & theSearchString
        if the result is not false then
            set theChosenWord to (item 1 of the result)
        end if
    end if

end if

En este ejemplo, suponiendo que se hizo una coincidencia de búsqueda y no se canceló nada, la theChosenWordvariable ahora contiene lo que se eligió de la lista mostrada y se puede procesar más según sea necesario o deseado.

Tenga en cuenta que, por supuesto, este es un código estrictamente de ejemplo para fines de prueba y deberá adaptarse a su escenario de caso de uso al tiempo que incorpora el manejo de errores adecuado según sea necesario.

Creo que esta será la forma más rápida mientras deja el Tesauro de Moby como un solo archivo CSV, y probablemente sea más rápido que cualquier método que haya probado hasta ahora.

Había ideado una solución antes de que el usuario 3439894 publicara su respuesta.

A pesar de que la solución de user3439894 es superior a mi solución en todos los sentidos, creo que también puedo publicar mi código, aunque solo sea para resaltar el rápido tiempo de respuesta de la solución de user3439894 .

Ajustes de archivo:

Aquí están las dos modificaciones que hice al archivo fuente, mobythes.aur , para mi solución:

1. Convertí el archivo .aur en un archivo .txt, simplemente cambiando el nombre de la extensión del archivo en Finder.

2. Inserté (1) retorno de carro antes del primer carácter del archivo .txt (en caso de que el usuario alguna vez busque la primera entrada del diccionario de sinónimos, es decir, a cappella).

Me di cuenta de que estaba ladrando en el árbol equivocado en mi publicación original: no hay necesidad (ni beneficio, en realidad) de formatear previamente el contenido del archivo .txt en el formato de AppleScript, listdentro del archivo mismo. Por lo tanto, no modifiqué la estructura delimitadora original del archivo en absoluto (de la forma en que lo había hecho en mi publicación original).

Mi código:

display dialog "Find synonyms of:" default answer ""
set theSearchQuery to text returned of the result

-- Referencing the default delimiters of the "mobythes.txt" file:
set theOuterListDelimiter_oneCarriageReturn to (ASCII character 13)
set theInnerListDelimiter_oneComma to ","

set theSearchQueryAsAThesaurusEntry to (theOuterListDelimiter_oneCarriageReturn & theSearchQuery & theInnerListDelimiter_oneComma)

set theThesaurusAsString to (read POSIX file "/Users/Me/Desktop/mobythes.txt")

if theThesaurusAsString contains theSearchQueryAsAThesaurusEntry then

    set theSynonymsAsText to extractBetween(theThesaurusAsString, theSearchQueryAsAThesaurusEntry, theOuterListDelimiter_oneCarriageReturn)
    set theSynonymsInList to splitStringIntoList(theSynonymsAsText, theInnerListDelimiter_oneComma)

    choose from list theSynonymsInList
else
    display dialog "No thesaurus entry exists for \"" & theSearchQuery & "\"!"
end if


-- Subroutines:

to extractBetween(SearchText, startText, endText)
    --  Source: http://macscripter.net/viewtopic.php?id=24725
    set tid to AppleScript's text item delimiters -- save them for later.  
    set AppleScript's text item delimiters to startText -- find the first one.  
    set endItems to text of text item -1 of SearchText -- everything after the first.  
    set AppleScript's text item delimiters to endText -- find the end one.  
    set beginningToEnd to text of text item 1 of endItems -- get the first part.  
    set AppleScript's text item delimiters to tid -- back to original values.  
    return beginningToEnd -- pass back the piece.  
end extractBetween

on splitStringIntoList(theString, theDelimiter)
    -- Source: http://erikslab.com/2007/08/31/applescript-how-to-split-a-string/
    -- save delimiters to restore old settings:
    set oldDelimiters to AppleScript's text item delimiters
    -- set delimiters to delimiter to be used:
    set AppleScript's text item delimiters to theDelimiter
    -- create the array:
    set theArray to every text item of theString
    -- restore the old setting:
    set AppleScript's text item delimiters to oldDelimiters
    -- return the result:
    return theArray
end splitStringIntoList

Comparación de rendimiento en tiempo de ejecución:

Por curiosidad, realicé un "tiroteo" de los tiempos de ejecución entre el enfoque de user3439894 y mi enfoque.

Comenté cada diálogo en nuestras dos soluciones. Configuré el término de búsqueda de prueba como la cadena fija, "planet".

Ingresando time osascript /Users/Me/Desktop/MyOriginalSolution.scpten Terminal.app devolvió:

real    0m1.257s
user    0m0.728s
sys     0m0.409s

Entrando time osascript /Users/Me/Desktop/user3439894Solution.scptdevuelto:

real    0m0.250s
user    0m0.193s
sys     0m0.030s

Según esta prueba, la solución de user3439894 es 5 veces más rápida que la mía, con una diferencia de 1,007 segundos.