#按录音列表录音，text左边一栏提示录音，右边一栏命名录音文件，中间用tap隔开
#witten by YuzhuLiang 2020.10.30
#自己调一下Font size 为24以便录音人好看
#要是录音终断，从选择的录音开始录，不过要自己看一下顺序，运行程序后检查一下info里是不是你要的录音

form 参数设定
        comment 请输入新产生的wave文件的保存路径：
	text savepath C:\Users\LIANG\Desktop\luyinbaocun

	comment 请输入文本文档所在的路径和文件名称：
	comment (格式是TAB间隔)
	text textPath C:\Users\LIANG\Desktop\luyinbaocun
	text textFileName 声母录音文本.txt
        
        comment 从第几个录音开始录
        real i 1 
	
endform


if right$(savepath$,1)<>"\"
	savepath$=savepath$+"\"
endif
if right$(textPath$,1)<>"\"
	textPath$=textPath$+"\"
endif
textPath$=textPath$+textFileName$

createDirectory: savepath$



# 读内容列表
Read Table from tab-separated file... 'textPath$'
txtSimpleName$=selected$("Table",1)
numOfRows=Get number of rows

Record mono Sound...
for iRows from i to numOfRows
       Read Table from tab-separated file... 'textPath$'
	
        #自己调一下Font size
       Get value... 'iRows' wenben

pause
#录音录好后，再自己save to list，可以查看下录音质量，然后continue继续下一个。所以读错了不save to list 可以重复录。
Read Table from tab-separated file... 'textPath$'
        mingzi$=Get value... 'iRows' mingzi
        selectObject: "Sound untitled"
	Write to WAV file... 'savepath$''mingzi$'.wav
Record mono Sound...

select all
Remove

endfor


#要是偶尔哪个录音不好，就直接录吧，无需用脚本

select all
Remove