kaydet.m

来自「ok &ouml nemli bir kaybnkao lasdhlas sdo」· M 代码 · 共 28 行

function giris=kaydet(fig6,tag,onay)
giris=get(fig6,'UserData');

switch tag
case 'push1'
   if onay == 0   % savefile i鏸n
      dizi=get(giris.h(4),'String');
 		kkk=0;
      Matrix=[kkk];
  		fid7=fopen('kkk.txt','w'); 
	   fprintf(fid7,'%d\n',Matrix);
  		kapat=fclose(fid7);
    
   	if isempty(dizi) | (~ischar(dizi))
         HataMesaj;
	   else
	      dizi=strcat(dizi, '.txt');
	      fid=fopen(dizi,'r');
	      % savefile ile aldigi dizinin ismini ge鏸ci olarak 'diziismi.txt' dosyas齨a kaydediyor...
	      fid2=fopen('diziismi.txt','w');
	   	fprintf(fid2,dizi); 
			kapa=fclose(fid2);
         if fid == -1
            %h_figs=get(0,'children');
				%h_fig=findobj(h_figs,'flat','tag','Fig1')
            h_fig=1; 
            ozdeger2(h_fig,'push6');
	         d=strcat(dizi, '  dosyas