Commit e0d02d3c authored by Pärtel Lippus's avatar Pärtel Lippus

paar näpukat parandatud

parent 650af151
......@@ -37,7 +37,9 @@ i = 1
repeat
i$ = Get label of interval: sonaKiht, i
if index(i$, ".")
repeat
if index(i$, "/") < rindex(i$, "/")
repeat
endif
selectObject: "TextGrid " + fail$
alg = if index(i$, "/") < index(i$, ".") then index(i$, "/") +1 else index(i$, ".") fi
i$ = mid$(i$, alg, length(i$))
......@@ -48,7 +50,9 @@ repeat
@kontrolliTextGridi: "on imelik lisamärk 'i$'"
endif
i$ = mid$(i$, lop+1, length(i$))
until index(i$, "/") = 0
if index(i$, "/") < rindex(i$, "/")
until index(i$, "/") = 0
endif
endif
i += 1
intd = Get number of intervals: 1
......
......@@ -28,6 +28,7 @@ form Silbitamine
endform
clearinfo
kontrolliTegevus = 0
logo$ = "'newline$'#################---Silbitatud!---#####################'newline$'# _____ _ __ ___ _ __ _____ _ __ #'newline$'# | ___| | |/ / / __| | |/ / | ___| | |/ / #'newline$'# | |___ | / | /_ | / | |___ | / #'newline$'# | ___| | < \_ \ | < | ___| | < #'newline$'# | |___ | \ __| | | \ | | | \ #'newline$'# |_____| |_|\_\ |___/ |_|\_\ |_| |_|\_\ #'newline$'# TÜ eesti keele spontaanse kõne foneetiline korpus #'newline$'# #'newline$'#######################################################'newline$'"
# Loeme seadete kataloogist võimalikud SAMPA sümbolid
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment