opc_server_browse.sci

SCILab的OPC扩展包, SCILab编程大赛获奖作品.

////////////////////////////////////////////////////////////////
//  		function for Read OPC Item Value
//     	Developed by Zhe.Peng & Longhua.Ma
//     	http://pengzhe1113.googlepages.com/
//     	Email:[e-mail]
//     	Zhejiang Univ. Hangzhou, China
//     	Dec.2006
////////////////////////////////////////////////////////////////

function ttt=opc_server_browse()

t=call('opc_server_browse','out',[1,600],1,'c');
tt=tokens(t,code2str(100));
ttt=strsubst(tt,'  ','');
s=size(ttt);

for i=1:s(1)

ind=strindex(ttt(i),' ');

if ind(1)==1 then 
tttt=strsplit(ttt(i),[1]) ;
ttt(i)=tttt(2) ;
end

if length(ttt(i))>0 then
len_l=length(ttt(i))-1;
ttttt=strsplit(ttt(i),[len_l]);

if ttttt(2)==' ' then 
ttt(i)=ttttt(1) ;
end

end

end

endfunction