代码部分
function qqbiaoqing(word,shortcut,space_num)
if nargin<3
space_num=3; %空格数默认 3
if nargin<2
shortcut='[img]file:///C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\GNN%4C}{72S~B2}4MI%[A`N.gif[/img]'; %表情快捷键
if nargin<1
word='心'; %表情字
end
end
end
data=wordmatrix(word);
str=[];
str2=[];
for i=1:16
for j=1:16
if data(i,j)==1;
str=[str sprintf(shortcut)];
else
str=[str sprintf(repmat(' ',1,space_num))];
end
end
disp(str);
str2=[str2 sprintf('\n') str];
str=[];
end
clipboard('copy',str2);
function y=wordmatrix(word)
%%getwordmatrix(word)生成一个16*16的字模矩阵数据。1表示亮点，0表示暗点
h=figure('visible','off');
hold on
imshow(ones(16,16));
htext=text(10,10,word);
set(htext,'HorizontalAlignment','center','VerticalAlignment','middle','margin',eps);
axis equal
frame=getframe;
cdata=frame.cdata;
cdata=im2bw(cdata); %cdata 80*81
y=zeros(16,16);
for i=1:16
for j=1:16
if cdata(i,j)==1
y(i,j)=1;
end
end
end
y=1-y;
close(h);
复制代码
折腾qq示例：
qqbiaoqing('安','file:///C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\U2]%50TOT_CDDX%BSA{59Y6.gif',3);
复制代码
人性化：本程序能够直接将输出字符串复制到剪切板上，只需在qq聊天窗口粘贴即可。
需要说明的是，qq聊天窗口需要右键选中允许快捷键输入表情。
