da_load.m

王小平《遗传算法——理论、应用与软件实现》随书光盘

function [data,tags,data_loaded,df_name]=da_load
%
% [data]=da_load
%
% Displays a file dialog box and
% loads the specified file into
% memory.
%
% data=0 if the loading procedure
% was unsuccesful or interupted
%


[df_name df_path]=uigetfile('*.dat','Please select a data file to load');

%
% Uncomment the next line if the programme is not running
% on PC-NFS
%
%[D L]=size(df_path);
%df_path=df_path(:,1:L-1);

if df_name ~= 0
	%
	% Display a message that says data is being loaded
	%
	clg;
	drawnow;
	text1=uicontrol(gcf,...
		'Style','text',...
		'Position',[200 300 200 15],...
		'BackGroundColor',[1 0 0],...
		'ForeGroundColor',[1 1 1],...
		'String','Loading data.... PLEASE WAIT!');

	


	%
	% Change into the relevant directory
	%

	eval(['cd ' num2str(df_path)]);
	
	%
	% Load the data file
	%
	df_name=lower(df_name);
	eval(['load ' num2str(df_name)]);
	
	%
	% Strip out the .dat file extension
	%
	[D L]=size(df_name);
	
	if L >= 5
	if num2str(df_name(L-3:L)) == '.dat'
		df_name=df_name(1:L-4);
	end
	end
	
	%
	% Copy this into the variable called
	% data
	%

	[D L]=size(df_name);

	if L ~= 4 
		eval(['data = ' num2str(df_name) ';']);
		eval(['clear ' num2str(df_name) ]);
	elseif L == 4
		if df_name ~= 'data'
			eval(['data = ' num2str(df_name) ';']);
			eval(['clear ' num2str(df_name)]);
		end
	end

	delete(text1);
	data_loaded=1;

	%
	% Generate a tag file
	%
	tags=[];
	[D L]=size(data);
	for i=1:L
		if i==1
			tags=['Var ' num2str(i)];
		else
			tags=str2mat(tags,['Var ' num2str(i)]);
		end
	end
	f=fopen([df_name '.tag'],'w');
	for i=1:L
		fprintf(f,num2str(tags(i,:)) ,'\n \l');
	end
	fclose(f);

else

	data_loaded=0;
	data=0;
end