#! praat
#
# Play an example from the directory
form Enter pinyin
    sentence sourceDirectory examples
    word pinyin dian4hua4
endform

Create Strings as file list... Examples 'sourceDirectory$'/'pinyin$'/'pinyin$'*.wav
Randomize
numberOfExamples = Get number of strings
if numberOfExamples > 0
    select Strings Examples
    exampleFile$ = Get string... 1
    Open long sound file... 'sourceDirectory$'/'pinyin$'/'exampleFile$'
    Rename... currentExample
    duration = Get total duration
    Play part... 0.0 'duration'
    
    select LongSound currentExample
    Remove
endif

select Strings Examples
Remove