Praat置換寸法の内容

学習の過程で、いくつかの表示現象に出会って、表示する時、表示員は大量のIPAなどの音声描写記号を覚えにくくて、英語の単語あるいは中国語のピンインの原始記号を使う傾向がありますが、学術の執筆の過程の中で、あるいは学術の教育の中で、これらの記号は音声ユニットをもっとよく説明することができません.IPA記号を統一的に使うのが良い選択です.このように、マークアップ時に通常のマークアップを使用し、次のスクリプトを使用して、音セグメント層のマークアップをIPA記号にすべて置き換えるより良い方法があります.

############################################################
### By Shaopf 2014 4 3  [email protected]
###          
### version Praat 5.3.63 
############################################################

form Information
	comment   TextGrid       :
	text read_path D:\txt
	comment            
	text list_path D:\list.txt
	comment        :
	positive reference_tier 2
	comment         TextGrid    :
	text save_path D:\txt1
endform
path$=read_path$
reference_tier=reference_tier

createDirectory:save_path$

Read Table from tab-separated file: list_path$
numOfTableRows=Get number of rows
for nt from 1 to numOfTableRows
	select Table list
	tableOld'nt'$=Get value: nt, "old"
	tableNew'nt'$=Get value: nt, "new"
endfor
select Table list
Remove

Create Strings as file list... fileList 'path$'\*.TextGrid
numberOfFiels=Get number of strings
for i from 1 to numberOfFiels
	select Strings fileList
	fileName$=Get string... 'i'
	simpleName$=fileName$-".TextGrid"
	Read from file... 'path$'\'fileName$'
	numberOfIntervals=Get number of intervals... 'reference_tier'
	for j from 1 to numberOfIntervals
		select TextGrid 'simpleName$'
		sTime=Get start point... 'reference_tier' 'j'
		eTime=Get end point... 'reference_tier' 'j'
		duration=eTime-sTime
		labelOfInterval$=Get label of interval... 'reference_tier' 'j'
		for nt from 1 to numOfTableRows
		temp2$=tableOld'nt'$
		if labelOfInterval$=temp2$
			newValue$=tableNew'nt'$
			Set interval text: reference_tier, j, newValue$
		endif
		endfor
	endfor
	select TextGrid 'simpleName$'
	save_total_path$=save_path$+"\"+fileName$
	Save as text file: save_total_path$
	Remove
endfor
select Strings fileList
Remove
exit       ! Congratulations! -Shaopf

このスクリプトでは、Praat 5.3.63が使用されていることに注意し、いくつかのコマンド文が変化しています.