Yoko

sub contents()
   Dim m[255]
   var i=1,k=1
   var f,s

   uo.print('!!Выбери Контейнер!! ') 
   uo.exec('addobject Searchcont') 
   while uo.targeting() 
   wait(100) 
   wend 

   
   f=file("c:\test.txt") 
   f.Open() 
   f.Create() 

   UO.IgnoreReset()
   UO.FindType(-1,-1,'Searchcont')
   While UO.GetQuantity('finditem')>0
      UO.Click('finditem')
      m[i]=UO.GetName('finditem')
      i=i+1
      UO.Ignore('finditem')
      UO.FindType(-1,-1,'Searchcont')
   wend
   UO.IgnoreReset()   
   k=1
   While k<i
      s=safe call f.Writeln(m[k]) 
      k=k+1
   WEnd

   f.Close()
end sub