form Files comment 高周波数をフィルターで取り除きます。 sentence InputDir ./ comment 下で指定された周波数より高い音を取り除きます。 positive hz 8000 endform createDirectory ("original") Create Strings as file list... list 'inputDir$'*.wav numberOfFiles = Get number of strings for ifile to numberOfFiles select Strings list fileName$ = Get string... ifile Read from file... 'inputDir$''fileName$' sound_name$ = selected$ ("Sound") Write to WAV file... ./original/'fileName$' select Sound 'sound_name$' Filter (pass Hann band): 0, 8000, 100 Save as WAV file: "./'fileName$'" endfor select all Remove