public static function ExtractList($sListName){
            $oThis = self::CreateInstanceIfNotExists();
            $iStart = strpos($oThis->sBuffer, "{list:{$sListName}}");

            if($iStart > 0)
                $iEnd = strpos($oThis->sBuffer, "{end}", $iStart);

            if($iStart > 0 && $iEnd > 0){
                $sNewBuffer = substr($oThis->sBuffer, $iStart, $iEnd-$iStart);
                $oThis->sBuffer = $sNewBuffer."{end}";
            }
        }