char_convert.m

MATLAB编写的汉字繁体简体转换程序

function char_out=char_convert(char_in,flag)
complex_character;
simplified_character;
if flag
    for i=1:length(char_in)
    [row,col]=find(C==char_in(i));
    if length(row)
        char_out(i)=S(row,col);
    else
        char_out(i)=char_in(i);
    end
    end
else
    for i=1:length(char_in)
    [row,col]=find(S==char_in(i));
    if length(row)
        char_out(i)=C(row,col);
    else
        char_out(i)=char_in(i);
    end
    end
end