﻿form dialogue
	sentence openpath C:\Users\lenovo\Desktop\脚本试验文件夹\姐姐的电话2
endform


if right$(openpath$,1)<>"\"
	openpath$=openpath$+"\"
endif


Read Strings from raw text file... C:\Users\lenovo\Desktop\脚本试验文件夹\姐姐的电话2\content.txt
#Read Table from tab-separated file... C:\Á·Ï°\content - ¸±±¾.txt



Create Strings as file list... fileList 'openpath$'*.wav
numberOffiles=Get number of strings
for ifile from 1 to numberOffiles
	select Strings fileList
	fileName$=Get string... 'ifile'
	
	simpleName$=fileName$-".wav"

	Read from file... 'openpath$''fileName$'

	To TextGrid... Sen

	select Strings content
	contentOfSen$=Get string... 'ifile'
	
	#select Table content_-_¸±±¾
	#Set column label (label)... "" 
	#´ËÖÖÇé¿öÏÂ£¬contentÎÄ¼þÀïÐèÒª¼ÓÈë±íÍ·£¬ÕâÑù¿ÉÒÔ·ÖÁÐÑ¡Ôñµ¼Èë


	select TextGrid 'simpleName$'
	Set interval text... 1 1 'contentOfSen$'
	Write to text file... 'openpath$''simpleName$'.TextGrid


	select TextGrid 'simpleName$'
	Remove
	select PitchTier 'simpleName$'
	Remove

endfor