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

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

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