opc_item_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_item_browse()

t=call('opc_item_browse','out',[1,6000],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 
if ttt(i) <> ' ' then
tttt=strsplit(ttt(i),[1]) ;
ttt(i)=tttt(2) ;
end
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