lremove.m

用于非线性时间序列分析的软件包。可用于计算：时间延迟重构

function status = lremove(handles)

% tstool/lremove
% function status = lremove(handles)
% Loeschen des aktuellen Eintrags aus der Listbox und den UserData-Field der Figure, aber keine physik. Entfernung
% des Files

lhandle = handles.lboxhandle;

String = get(lhandle, 'String');

if ~isempty(String)
	Value =get(lhandle, 'Value');
	String(Value) = []; 	% Dies ist der Syntax, um ein Element in einem Cell-Array zu loeschen
else
	Value = 1;
end

newsize = length(String);

if isempty(String)		% letzter Eintrag wurde geloescht
	set(lhandle, 'Value', 1);
	set(lhandle, 'String', String);
	setcurrentfile('', handles.lboxhandle, handles.currfilehandle); % jetzt ist kein File mehr der current working file
	status = 'no entry to remove';
elseif Value <= newsize
	set(lhandle, 'Value', Value);
	set(lhandle, 'String', String);
	String = get(lhandle, 'String');
	Value =get(lhandle, 'Value');	% aus Uebervorsicht wird  nochmal gecheckt
	filename = String{Value};		% so muss der Name wieder retrieved werden, nicht mittels ()
	setcurrentfile(filename, handles.lboxhandle, handles.currfilehandle);
	status = 0;	
else
	Value = newsize;	% letzter Eintrag wird zum current working file
	set(lhandle, 'Value', Value);
	set(lhandle, 'String', String);
	String = get(lhandle, 'String');
	Value = get(lhandle, 'Value');	% aus Uebervorsicht wird  nochmal gecheckt
	filename = String{Value};		% so muss der Name wieder retrieved werden, nicht mittels ()
	setcurrentfile(filename, handles.lboxhandle, handles.currfilehandle);
	status = 0;		
end