CAD text style on operations to get all text styles (com Interface Web version)

The following code through all text style character style sheet, and text style to give all names in the traversal cycle, to give each record text style objects, can modify its properties

  function GetAllText () {
     var Database = mxOcx.GetDatabase ();
     // get all the layer name 
    var SRET is = null ;
     // return the database text style sheet object 
    var spTextStyleTable = database.GetTextStyleTable ();
     // Create a traverse all layers in the hierarchy table walker 
    var spIter = spTextStyleTable.NewIterator ();
     // moving the current traverse position 
    for (;! spIter.Done (); spIter.Step ( to true , to true ))
    {
        // returns the current position of the walker recording 
        var spTextStyleRec = spIter.GetRecord ();
         // symbol table record name attribute 
        var sName = spTextStyleRec.Name;
         // 0 does not participate in the comparison level zero 
        IF (sName = "0"! )
        {
            if(sRet == null)
                sRet = sName;
            else
            {
                sRet = sRet +","+sName;
            }
        }
    }
    alert (Sreten);
}