Yoko
http://forum.yoko.com.ua/

Возможно ли сделать такой скрипт?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5352		 Page 1 of 1
Author:  Loken [ 2005-10-03 16:07:55 ]
Post subject:  Возможно ли сделать такой скрипт?
Чтобы он запрашивал контейнер, открывал его, смотрел всё, что лежит внтури и выписывал названия в отдельный файл? Кто может помочь с таким чудом, буду оч признателен
Author:  ForwarD [ 2005-10-03 16:18:03 ]
Post subject: 
скажи плз аську
Author:  Loken [ 2005-10-04 04:21:38 ]
Post subject: 
я итак у тебя в асе 8)
Author:  Destruction [ 2005-10-04 13:10:33 ]
Post subject: 
Возможно, токо нах оно тебе? Я бы написал, но мне леень -)
Author:  agem [ 2005-10-04 20:14:39 ]
Post subject: 
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/