var vasyaName:CasedWord = new CasedWord();

vasyaName.nominative = "Вася";            // именительный

vasyaName.genitive = "Васи";              // родительный

vasyaName.dative = "Васе";                // дательный

vasyaName.accusative = "Васю";            // винительный

vasyaName.instrumentative = "Васей";      // творительный

vasyaName.preposition = "Васе";           // предложный

var templateText:String = "Серый заяц и ${CasedWord=nominative} выскочили из-за кустов и напугали ${CasedWord=accusative}... ";

var casedName:Object = new Object();

casedName.nominative = "Клавдия Петровна";            // именительный

casedName.genitive = "Клавдии Петровны";              // родительный

casedName.dative = "Клавдии Петровне";                // дательный

casedName.accusative = "Клавдию Петровну";            // винительный

casedName.instrumentative = "Клавдией Петровной";     // творительный

casedName.preposition = "Клавдии Петровне";           // предложный

 

 

trace( fillTemplateText( templateText, casedName ) );

 

 

function fillTemplateText( temp:String, caseWord:Object ):String

{

        var outText = temp;

        var reCasedWord:RegExp = /\$\{CasedWord\=(\w+)\}/g;

        var m:Object;

        while( true )

        {

                m = reCasedWord.exec( outText );

 

                if( !m )

                        break;

                else if( !(m[1] in caseWord) )

                        continue;

 

                outText = outText.substring(0, m.index) + caseWord[m[1]] + outText.substring(m.index + m[0].length);

                reCasedWord.lastIndex = 0;

        }

        return outText;

}