% 北太天元按條件合并兩個excel表格

% regex 插件提供了正則表達式的regex_match, regex_search, regex_replace(估計會在2023年5月中旬發(fā)布)

clear

load_plugin("regex");

工資數(shù)據(jù) = [

???"工號", "姓名", "工資"; "A01" , "張生", "5000"; "A02" , "李四", "6000"

???"A03" , "王二", "7000"; "A03" , "張龍", "7000"; "A03" , "趙虎", "7200"

???];

職位數(shù)據(jù) = [

???"姓名", "職位"; "王二", "項目經(jīng)理"; "張龍", "總經(jīng)理"; "趙虎", "董事長"

???];

writematrix(工資數(shù)據(jù), '工資數(shù)據(jù).xlsx', "FileType", "spreadsheet")

writematrix(職位數(shù)據(jù), '職位數(shù)據(jù).xlsx', "FileType", "spreadsheet")

工資數(shù)據(jù) = readmatrix('工資數(shù)據(jù).xlsx',"OutputType","string");

職位數(shù)據(jù) = readmatrix('職位數(shù)據(jù).xlsx',"OutputType","string");

職位 = 工資數(shù)據(jù)(:,2); % 職位先賦值為一個列向量，長度和姓名列一致

職位(1) = "職位";?% 把這一列的標簽修改為職位

len = length(職位);

len_職位數(shù)據(jù) = length(職位數(shù)據(jù)(:,1));

for i=2:len

???for j=2:len_職位數(shù)據(jù)?

?????????match_result = regex_match(職位數(shù)據(jù)(j,1), 職位(i));

?????????if(length(match_result) > 0 )

????????????職位(i) = 職位數(shù)據(jù)(j,2);

????????????break; % 已經(jīng)在職位數(shù)據(jù)里找到了第i行職工的姓名

?????????end

???end

???% 到了這兒，表明沒有在職位表里發(fā)現(xiàn)這個員工

???if(j == len_職位數(shù)據(jù) && length(match_result) == 0)

?????????職位(i) = "無";

???end

end

合并數(shù)據(jù) = [ 工資數(shù)據(jù), 職位 ]

writematrix(合并數(shù)據(jù), '合并數(shù)據(jù).xlsx', "FileType", "spreadsheet")

unload_plugin("regex")