самый простой способ - это сесть и написать...я проще не знаю...:)))..

agat 18.11.2002 15:38 / 18.11.2002 15:51

изменено 3 раза..:))

нууу...или украсть где нибудь (но за это и по шапке можно схватить).

Или выпросить у кого нибудь...

Здесь тебе просто так ничего не дадут...да и нигде не дадут...:)

А если по делу - зная парсер, тут делов-то...

хотя зависит от планируемых возможностей архива, в простенький интерфейс...5 сек.

вот кое-какие идеи...

@getfiles[]
$dir[/]
$search[^file:list[$dir]]
^if($search){
	^search.menu{
		$str[$search.name]
		^if(^str.match[\.html^$] || !^str.match[\.] && !^str.match[^^admin^$] && !^str.match[^^i^$] && !^str.match[^^classes^$]){
			^if(!^str.match[\.]){
			<ul>
			$search.name<br>
			^getsub[${dir}${str}]
			</ul>
			}{
			$search.name
			$f[^file::load[text;${dir}${str}]] $f.size<br>
			}
		}
	}
}

@getsub[subdir]
$subs[^file:list[$subdir/]]
^if($subs){
	^subs.menu{
		$str[$subs.name]
		^if(^str.match[\.html^$] || !^str.match[\.]){
			^if(!^str.match[\.]){
				<li>$subs.name
				<ul>
				$subdir[${subdir}/${str}]
				^getsub[$subdir]
				</ul>
			}{
				<li>$subs.name
				$f[^file::load[text;${subdir}/${str}]] $f.size
			}
		}
	}
}

---