clc
[fn，pn]=uigetfile({'*。txt'}，'選擇壹個文件')；
如果fn~=0
f=fopen(strcat(pn，fn)，' r ')；
data=fread(f，inf，' * char ')；
fclose(f)；
數據=數據'；
Str=inputdlg('請輸入要統計的單詞'，' Dialog '，1)；
if ~isempty(str)
n=length(regexp(data，strcat((？& lt=\W+)'，str{1}，'(？= \ W+)'))))；
Msgbox(sprintf('文件* * *，n，str {1})中有%d個單詞% s)；
結束
結束