function?ConvertHaarcasadexmlOpenCV（filename）
%?This?function?ConvertHaarcasadexmlOpenCV?converts?a?openCV?.xml?file
%?into?a?matlab?data?file?and?script?with?the?same?structure?inside.
%
%?Example
%??filename=‘haarcascade_eye‘;
%??ConvertHaarcasadexmlOpenCV（filename）;
%
%?Example
%??f=dir（‘*.xml‘）;
%??for?i=1:length（f）
%?????filename=f（i）.name;?
%?????ConvertHaarcasadexmlOpenCV（filename（1:end-4））;?
%??end
%
%?Function?is?written?by?D.Kroon?University?of?Twente?（November?2010）

j=find（filename==‘.‘）;?if（~isempty（j））?filename=filename（1:j-1）;?end

fid?=?fopen（[filename?‘.xml‘]?‘r‘）;
c?=?fread（fid?inf?‘char=>char‘）‘;
fclose（fid）;
c（c==13）=[];
c（c==10）=[];
fl?=?regexp（c?‘<‘?‘split‘）;

fid?=?fopen（[filename?‘.m‘]?‘w‘）;

h=0;?nw=0;
infoname=cell（110）;
infocount=zeros（110）;
for?i=2:length（fl）
????str=fl{i};
????if（length（str）>1）?st=str（1）;??else?st=‘‘;?end
????switch（st）
????????case?{‘!‘‘‘‘?‘}
????????????continue
????????case?‘/‘
????????????t=find（str==‘>‘1‘first‘）;
????????????name=str（2:t-1）;
????????????infocount（h）=0;
????????????h=h-1;
????????????continue
????????otherwise
????????????t1=find（str==‘>‘1‘first‘）;
????????????t2=find（str（1:t1-1）==‘?‘）;
????????????if（~isempty（t2））
????????????????t=t2;
????????????else
????????????????t=t1;
????????????end
????????????name=str（1:t-1）;
????????????
????????????data=str（t+1:end）;
????????????h=h+1;
????????????if（name==‘_‘）
????????????????infocount（h-1）=infocount（h-1）+1;
????????????????name=‘value‘;
????????????end
????????????infoname{h}=name;
????????????while（~isempty（data）&&（data（1）==‘?‘））;?data=data（2:end）;?end
????????????while（~isempty（data）&&（data（end）==‘?‘））;?data=data（1:end-1）;?end
????end
????if（~isempty（data））
????????in=‘‘;
????????for?j=1:h
????????????if（infocount（j）>0）
????????????????count=[‘（‘?num2str（infocount（j））?‘）‘];
????????????else
????????????????count=‘‘;
????????????end
????????????
????????????if（j==1）
????????????????in=[infoname{j}?count];
????????????else
????????????????in=[in?‘.‘?infoname{j}?count];
????????????end
????????end
????????in=strrep（in‘.value.‘‘.‘）;
????????num=str2num（data）;
????????if（~isempty（num））
????????????if（length（num）==1）
????????????????str=[in?‘?=?‘?data?‘;‘];
????????????else
????????????????str=[in?‘?=?[‘?data?‘];‘];
????????????end
????????else
????????????str=[in?‘?=?‘‘‘?data?‘‘‘;‘];
????????end
????????nw=nw+1;
????????if（nw==1）?str=[‘%‘?str];?end
????????fprintf（fid‘%s\r\n‘str）;
????????if（nw>1）
????????????eval（str）
????????end
????end
end
fclose（fid）;
save（[filename?‘.mat‘]‘opencv_storage‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????2674??2010-11-18?10:32??ConvertHaarcasadexmlOpenCV.m

?????文件????????847??2011-02-22?15:05??empty.JPG

?????文件???????1335??2010-11-18?04:41??license.txt

?????文件??????13513??2013-05-09?14:17??Match.asv

?????文件??????22376??2013-05-09?15:12??Match_best.asv

?????文件??????11636??2013-05-15?23:13??Match_best_gui.fig

?????文件??????23670??2013-05-15?22:49??Match_best_gui.m

?????文件???????3496??2013-05-15?22:05??objectDetection.m

?????文件????????237??2013-05-08?16:21??testHSV.p

?????文件????1421616??2013-05-15?13:36??HaarCascades\haarcascade_frontalface_alt.m

?????文件?????111836??2013-05-15?13:36??HaarCascades\haarcascade_frontalface_alt.mat

?????文件?????919871??2010-11-02?15:47??HaarCascades\haarcascade_frontalface_alt.xml

?????文件???????1907??2010-11-17?18:08??SubFunctions\GetHaarCasade.m

?????文件???????1379??2010-11-17?18:08??SubFunctions\GetIntergralImages.m

?????文件????????385??2010-11-17?18:09??SubFunctions\GetSumRect.m

?????文件???????2200??2013-05-15?14:03??SubFunctions\HaarCasadeobjectDetection.m

?????文件???????1817??2011-11-21?20:43??SubFunctions\OneScaleobjectDetection.asv

?????文件???????1818??2010-11-17?18:08??SubFunctions\OneScaleobjectDetection.m

?????文件???????3568??2013-05-15?22:52??SubFunctions\ShowDetectionResult.asv

?????文件???????3710??2013-05-15?23:11??SubFunctions\ShowDetectionResult.m

?????文件???????1606??2010-11-17?17:44??SubFunctions\TreeobjectDetection.m

?????文件?????350144??2013-05-15?21:27??人臉圖\1.jpg

?????文件??????42717??2013-05-15?21:43??人臉圖\10.jpg

?????文件?????102085??2013-03-17?10:34??人臉圖\2.jpg

?????文件?????147468??2013-05-15?21:27??人臉圖\3.jpg

?????文件??????52373??2013-05-15?21:27??人臉圖\4.jpg

?????文件??????44928??2013-05-15?21:27??人臉圖\5.jpg

?????文件??????36423??2013-05-15?21:27??人臉圖\6.jpg

?????文件??????31480??2013-05-15?21:27??人臉圖\7.jpg

?????文件??????35902??2013-05-15?21:27??人臉圖\8.jpg

............此處省略27個文件信息