如何使用 audioread 读取一系列文件然后合并它们？

Question

我正在尝试读取文件夹中的所有 wav 文件，然后合并这些文件。我了解audioread和audiowrite。我正在努力自动处理文件夹中的一系列文件，以便我只需要更改 dirin 名称并可以移动到下一个文件夹。这里的代码显然不起作用，但试图演示我想要做什么。

DirIn = 'C:\Users\24hr sound analysis\17';

eval(['filelist=dir(''' DirIn '/*.wav'')']);

for i = 1:length(filelist);
[f(i),fs] = audioread(strcat(DirIn,'/',filelist(i).name)); % read in wav file
end

combined = [f1;f(i)]; 

audiowrite('combined.wav',combined, fs)

编辑：我在下面实现了建议，但现在有一个新问题。我组合了 6 个 1 分钟的 wav 文件，我的输出是 6 分 36 秒。额外的 26 秒是从哪里来的？

DirIn = 'C:\Users\24hr sound analysis\17';

eval(['filelist=dir(''' DirIn '/*.wav'')']);

cd(DirIn);

combined = [];

fs = 44800

for i = 1:length(filelist);
        Filename = filelist(i).name;
        aud_file = audioread(Filename);
        combined = [combined;aud_file];
end

audiowrite('combined.wav', combined, fs)

Answer 1

您可以执行以下操作并在其中插入 audioread 函数：

dir_name = 'full path to the main folder';
sub_dir_names = dir(fullfile(dir_name,'*'));
N = setdiff({sub_dir_names([sub_dir_names.isdir]).name},{'.','..'}); % list of only subfolders of D.
combined = [];
for ii = 1:numel(N)
    T = dir(fullfile(dir_name,N{ii},'*')); % improve by specifying the file extension.
    C = {T(~[T.isdir]).name}; % files in subfolder.
    for jj = 1:numel(C)
        F = fullfile(dir_name,N{ii},C{jj})
        % do whatever with file F.
        % simple implementation assuming all the files are .wav
        aud_file = audioread(F);
        combined = [combined;aud_file];
    end
end
audiowrite(combined, Fs);

当您在内部循环中使用 audioread 连接您读取的文件时。

当你离开循环时，只需使用audiowrite 写入文件；它应该执行您之后的任务。

注意

这里只是为了给你展示如何遍历目录中所有子目录的逻辑，当然还有更多的方法可以做你想做的事情。