在MATLAB或Fortran中如何将一行元素相等的数据文本文件拆分成多个文件？

% 读取文本文件
fileID = fopen('data.txt', 'r');
data = textscan(fileID, '%s', 'Delimiter', '\n');
fclose(fileID);

% 将数据行分组
groups = {};
currentGroup = {};
prevLine = '';
for i = 1:length(data{1})
    line = data{1}{i};
    if strcmp(line, prevLine)
        currentGroup = [currentGroup; line];
    else
        if ~isempty(currentGroup)
            groups = [groups; currentGroup];
        end
        currentGroup = {line};
    end
    prevLine = line;
end
groups = [groups; currentGroup];

% 将每个分组写入不同的文件
for i = 1:length(groups)
    group = groups{i};
    filename = sprintf('group%d.txt', i);
    fileID = fopen(filename, 'w');
    for j = 1:length(group)
        fprintf(fileID, '%s\n', group{j});
    end
    fclose(fileID);
end