-
Notifications
You must be signed in to change notification settings - Fork 1
/
Loop_save_labeled_intervals_to_wav_sound_files2.praat
161 lines (150 loc) · 5.05 KB
/
Loop_save_labeled_intervals_to_wav_sound_files2.praat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
# This script saves each interval in the selected IntervalTier of a TextGrid to a separate WAV sound file.
# The source sound must be a LongSound object, and both the TextGrid and
# the LongSound must have identical names and they have to be selected
# before running the script.
# Files are named with the corresponding interval labels (plus a running index number when necessary).
#
# NOTE: You have to take care yourself that the interval labels do not contain forbidden characters!!!!
#
# This script is distributed under the GNU General Public License.
# Copyright 8.3.2002 Mietta Lennes
#
#This a modified version of Lennes' script
#The one allows you to specify the directory of sound files and their corresponding textgrids
#The script will cut all the sound files for you and save the cutted files into another folder
#There's no need to import anything to praat anymore.
#Note that the cutted files will be named in the following fashion
#original file name-interval name.wav
#for example, if the orignial file is named as "subject1.wav",
#and the intervals in the textgrid are labeled as "please call", "ask her",
#then the result files will be:
#subject1-please call.wav
#subject1-ask her.wav
#
#Sep.17, 2016, Zhiyan Gao
form Save intervals to small WAV sound files
comment Which IntervalTier in this TextGrid would you like to process?
integer Tier 1
sentence Sound_folder private_speech/
sentence TextGrid_folder private_speech/
comment Starting and ending at which interval?
integer Start_from 1
integer End_at_(0=last) 0
boolean Exclude_empty_labels 1
boolean Exclude_intervals_labeled_as_xxx 1
boolean Exclude_intervals_starting_with_dot_(.) 1
comment Give a small margin for the files if you like:
positive Margin_(seconds) 0.01
comment Give the folder where to save the sound files:
sentence Folder private_speech/seg/
comment Give an optional prefix for all filenames:
sentence Prefix
comment Give an optional suffix for all filenames (.wav will be added anyway):
sentence Suffix
endform
#gridname$ = selected$ ("TextGrid", 1)
#soundname$ = selected$ ("LongSound", 1)
#select TextGrid 'gridname$'
myStrings = Create Strings as file list... LongSounds 'sound_folder$'/*.wav
nLongSounds = Get number of strings
item = 0
for iLongSound from 1 to nLongSounds
select myStrings
sound_name$ = Get string... iLongSound
textGrid_name$ = sound_name$ - "wav" + "TextGrid"
longsound$ = sound_folder$ + "/" + sound_name$
textGrid$ = textGrid_folder$ + "/" + textGrid_name$
start_from = 1
end_at = 0
if fileReadable(textGrid$)
call treatment
endif
endfor
procedure treatment
Open long sound file... 'longsound$'
mySound = selected("LongSound")
soundname$ = selected$ ("LongSound",1)
Read from file... 'textGrid$'
myTextGrid = selected("TextGrid")
select myTextGrid
numberOfIntervals = Get number of intervals... tier
if start_from > numberOfIntervals
exit There are not that many intervals in the IntervalTier!
endif
if end_at > numberOfIntervals
end_at = numberOfIntervals
endif
if end_at = 0
end_at = numberOfIntervals
endif
# Default values for variables
files = 0
intervalstart = 0
intervalend = 0
interval = 1
intname$ = ""
intervalfile$ = ""
endoffile = Get finishing time
# ask if the user wants to go through with saving all the files:
for interval from start_from to end_at
xxx$ = Get label of interval... tier interval
check = 0
if xxx$ = "xxx" and exclude_intervals_labeled_as_xxx = 1
check = 1
endif
if xxx$ = "" and exclude_empty_labels = 1
check = 1
endif
if left$ (xxx$,1) = "." and exclude_intervals_starting_with_dot = 1
check = 1
endif
if check = 0
files = files + 1
endif
endfor
interval = 1
pause 'files' sound files will be saved. Continue?
# Loop through all intervals in the selected tier of the TextGrid
for interval from start_from to end_at
select myTextGrid
intname$ = ""
intname$ = Get label of interval... tier interval
intname2$ = ""
intname2$ = Get label of interval... tier 2
check = 0
if intname$ = "xxx" and exclude_intervals_labeled_as_xxx = 1
check = 1
endif
if intname$ = "" and exclude_empty_labels = 1
check = 1
endif
if left$ (intname$,1) = "." and exclude_intervals_starting_with_dot = 1
check = 1
endif
if check = 0
intervalstart = Get starting point... tier interval
if intervalstart > margin
intervalstart = intervalstart - margin
else
intervalstart = 0
endif
intervalend = Get end point... tier interval
if intervalend < endoffile - margin
intervalend = intervalend + margin
else
intervalend = endoffile
endif
select LongSound 'soundname$'
Extract part... intervalstart intervalend no
filename$ = intname$
intervalfile$ = "'folder$'" + "'soundname$'" + "-" + "'filename$'" + "'intname2$'"+"'suffix$'" + ".wav"
indexnumber = 0
while fileReadable (intervalfile$)
indexnumber = indexnumber + 1
intervalfile$ = "'folder$'" + "'soundname$'" + "-"+"'filename$'" + "'intname2$'"+"'suffix$''indexnumber'" + ".wav"
endwhile
Write to WAV file... 'intervalfile$'
Remove
endif
endfor
endproc