Demo entry 3548956

Simple praat script

   

Submitted by jjatria on Jan 20, 2016 at 13:13
Language: Praat. Code size: 522 Bytes.

form Copy selected files...
  word Prefix
  word Suffix _copy
  boolean Keep_original 1
endform

total_objects = numberOfSelected()
for i to total_objects
  my_object[i] = selected(i)
endfor
for i to total_objects
  selectObject: my_object[i]
  @copy()
  new[i] = selected()
endfor
if total_objects
  selectObject: new[1]
  for i from 2 to total_objects
    plusObject: new[i]
  endfor
endif

procedure copy ()
  .name$ = extractWord$(selected$(), " ")
  Copy: prefix$ + .name$ + suffix$
endproc

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).