將字元型別a與陣列型別b組合在一起，輸出為csv檔案。

1、將表tem1與表tem2中的15id連在一起。

2、當tem2中15id與tem1中相同時，將tem1的第16列賦為1；

3、輸出csv。

clc;
clear;
[a,b,c] = xlsread('F:\tem1.csv');
[A,B,C] = xlsread('F:\tem2.csv');

h1 = c(1,:);%tem1的表頭，是字元量
h2 = C(1,:);
id928 = find(strcmp(h1,'15id'));%將tem1中的表頭是‘15id’的那一列列號給提出。
idchange = find(strcmp(h2,'15id'));

[n1,m1] = size(a);
[n2,m2] = size(A);
o1 = a(:,id928);
o2 = A(:,idchange);
j = 1;

%若tem1與tem2的15id相同，則tem1的第16列的值賦為1.
for i=1:n2
    for j=i:n1
        if o2(i) == o1(j)
            a(j,16) = 1;
        end
    end
end

%將字元h1與矩陣a連在一起
H = cell(1+n1,m1);
H(1,:) = h1;
aa = num2cell(a); %記住矩陣轉cell
H(2:n1+1,:) = aa;
xlswrite('F:\tem.csv',H);