Download Franck LAURENT

MPTK2.praat :
form Découpe du son
comment destination
text destination ~/projet/script_praat/test2/
comment commande MPTK
text commande_MPTK mpd -C /usr/local/bin/path.xml -D ~/projet/script_praat/dico.xml -n 200
comment commande xml2txt.pl
text xml2txt ~/projet/script_praat/xml2txt.pl
endform
system mkdir -p 'destination$'/XML
echo _________
Extract non-empty intervals... 1 no
nb=numberOfSelected()
id = selected (1)
for i from 0 to 'nb'-1
select 'id'+'i'
fileName$=fixed$('i'+1,0)+"_"+selected$("Sound")
file$ = destination$+"/"+fileName$+".wav"
Resample... 88200 1
Write to WAV file... 'file$'
plus 'id'+'i'
Remove
nomxml$ = destination$+"/XML/"+fileName$+".xml"
mptk_suite$=commande_MPTK$+" "+file$+" - > "+nomxml$
printline 'mptk_suite$'
system_nocheck 'mptk_suite$'
comxml$ = xml2txt$+" "+nomxml$
printline 'comxml$'
system_nocheck 'comxml$'
endfor
33