Tutorial de Praat: Como extraer texto de un Textgrid

Tutorial de Praat: Como extraer texto de un Textgrid Erik Willis, Indiana University

A veces es útil hacer una transcripción dentro del programa Praat porque se puede escuchar al trozo específico las veces necesarias. El siguiente script extrae el texto de un textgrid y crea un documento .txt con todo el texto del textgrid. Otra ventaja de este script es que si hay fronteras en el textgrid, el texto que corresponde a cada trozo aparece en una línea nueva en el archivo Text que se ha creado.

1. Abre un archivo 2. Crea un textgrid 3. Escribe el texto correspondiente en el Textgrid.

4. Guarda el textgrid 5. Abre el script TextExtractor 6. Marca únicamente el Textgrid en la ventana Praat objects—si el Sound está marcado, el script no funcionará y recibirás un advertencia que algo está mal cierta línea del script.

7. Pulsa Run en el script ExtractText.

8. Identifica el tier o nivel que tiene el texto. Lo bueno de este script es que se puede sacar el texto de cualquier nivel. En este caso el texto está en el primer nivel.

9. Identifica la dirección “path” dónde se quiere guardar el nuevo archivo de Texto.

Ojo: recuerda la barra inclinada al final.

10. Pulsa ok

11. Un nuevo archivo está creado en la carpeta designada con el nombre del Textgrid original.

12. El script está a continuación. Se puede copiar y pegar en praat como script nuevo. #This script will write the text of a selected tier (in the form) #to a text document in the folder that you specify. You must #include a backslash at the end of the path for the file. form Write tier text to text file comment Which tier do you want to write out? integer Tier 1 comment Where do you want to save the file? sentence Folder endform filename$ = selected$ ("TextGrid", 1) folder$ = "'folder$'" + "'filename$'" + ".txt"

if fileReadable(folder$) pause File 'folder$' exists! Delete it and continue? filedelete 'folder$' endif numberOfIntervals = Get number of intervals... tier for interval from 1 to numberOfIntervals line$ = "" line$ = Get label of interval... tier interval # This script excludes empty labels, labels that start with a dot . and labels that are equal to 'xxx'. if line$ "" and left$ (line$, 1) "." and line$ "xxx" line$ = line$ + newline$ fileappend "'folder$'" 'line$' endif line$ = "" endfor