Ответ

Misha v.3 03.11.2006 14:40 / 03.11.2006 14:40

@main[]
$iCount(0)
^goDir[]
Total $iCount files were converted.


@goDir[sDir][tList]
$tList[^file:list[$sDir]]
^tList.menu{
	^if(-d "$sDir/$tList.name"){
		^goDir[$sDir/$tList.name]
	}
	^if(-f "$sDir/$tList.name"){
		^convert[$sDir/$tList.name]
	}
}
^memory:compact[]
$result[]


@convert[sFileName][fFile]
$request:charset[windows-1251]
$fFile[^file::load[text;$sFileName]]
$request:charset[UTF-8]
^fFile.save[text;$sFileName]
^iCount.inc(1)
$result[]