Yoko

Posted: **2005-10-03 16:07:55**

Чтобы он запрашивал контейнер, открывал его, смотрел всё, что лежит внтури и выписывал названия в отдельный файл? Кто может помочь с таким чудом, буду оч признателен

Posted: **2005-10-03 16:18:03**

скажи плз аську

Posted: **2005-10-04 04:21:38**

я итак у тебя в асе

Posted: **2005-10-04 13:10:33**

Возможно, токо нах оно тебе? Я бы написал, но мне леень -)

Posted: **2005-10-04 20:14:39**

Code: Select all

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

Yoko

Возможно ли сделать такой скрипт?

Возможно ли сделать такой скрипт?