how to run my conversion program using loops

1 回表示 (過去 30 日間)
Ishak Oussama
Ishak Oussama 2019 年 6 月 29 日
編集済み: Rik 2019 年 6 月 30 日
Hi
I have a program of resampling and conversion wav to pcm
so I have a main folder that contains several subfolders
and each subfolder contains a wav file and a text file
I want to run my program on all wav files in all subfolders, I can not do it,Thank you very much for your help.
here is my program:
[x, fs] = audioread(a_filename);
% resample:
fsin = fs;
fsout = 22050;
m = lcm(fsin,fsout);
up = m/fsin;
down = m/fsout;
x_22 = resample(x, up, down);
audiowrite([a_filename,'_22050','.wav'], x_22, fsout);
% convert to PCM 16 bit
precision = 'int16';
fidr = fopen([a_filename(1:11), '_22050','.wav'], 'r'); % open .wav file to read
fidw = fopen([a_filename(1:11), '_22050','.pcm'], 'wb'); % open .pcm file to write
w = int16(fread(fidr, inf, precision));% read .wav file
fwrite(fidw, w, precision); % write .pcm file
fclose(fidr);
fclose(fidw);
thank you in advance

回答 (1 件)

per isakson
per isakson 2019 年 6 月 29 日
編集済み: per isakson 2019 年 6 月 29 日
Try this
%%
main_folder = 'c:\whatever\mainfolder';
sad = dir( fullfile( main_folder, '**', '*.wav' );
sad = reshape( sad, 1,[] );
for wav = sad
ffs = fullfile( wav.folder, wav.name );
disp( ffs )
end
If recursive dir call, "**", is not avaiable in your Matlab release try Recursive directory listing - Enhanced RDIR . (There are several rdir() in the File Exchange.)
  3 件のコメント
per isakson
per isakson 2019 年 6 月 30 日
Recursive directory listing by Gus Brown is "Created with R2007a, Compatible with any release". I've used it for a long time and cannot remember it having caused me any problem.
Rik
Rik 2019 年 6 月 30 日
I just meant you do indeed need to use such a function, instead of using built-in Matlab tools. I'll edit the comment to make it more clear.

サインインしてコメントする。

カテゴリ

Help Center および File ExchangeStartup and Shutdown についてさらに検索

製品


リリース

R2014a

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by