clear;
clc;
[fn,pn]=uigetfile({'*.txt'},'选择一个文件');
if fn~=0
f=fopen(strcat(pn,fn),'r');
data=fread(f,inf,'*char');
fclose(f);
data=data';
str=inputdlg('请输入要统计的单词','对话框',1);
if ~isempty(str)
n=length(regexp(data,strcat('(?<=\W+)',str{1},'(?=\W+)')));
msgbox(sprintf('文件中共有%d个单词%s',n,str{1}));
end
end