|  | /* Copyright (C) 2011  Jan Källman | 
|  | * | 
|  | * This library is free software; you can redistribute it and/or | 
|  | * modify it under the terms of the GNU Lesser General Public | 
|  | * License as published by the Free Software Foundation; either | 
|  | * version 2.1 of the License, or (at your option) any later version. | 
|  |  | 
|  | * This library is distributed in the hope that it will be useful, | 
|  | * but WITHOUT ANY WARRANTY; without even the implied warranty of | 
|  | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. | 
|  | * See the GNU Lesser General Public License for more details. | 
|  | * | 
|  | * The GNU Lesser General Public License can be viewed at http://www.opensource.org/licenses/lgpl-license.php | 
|  | * If you unfamiliar with this license or have questions about it, here is an http://www.gnu.org/licenses/gpl-faq.html | 
|  | * | 
|  | * All code and executables are provided "as is" with no warranty either express or implied. | 
|  | * The author accepts no liability for any damage or loss of business that this product may cause. | 
|  | * | 
|  | * Code change notes: | 
|  | * | 
|  | * Author							Change						Date | 
|  | ******************************************************************************* | 
|  | * Mats Alm   		                Added		                2013-12-03 | 
|  | *******************************************************************************/ | 
|  | using System; | 
|  | using System.Collections.Generic; | 
|  | using System.Linq; | 
|  | using System.Text; | 
|  | using OfficeOpenXml.FormulaParsing.ExpressionGraph; | 
|  |  | 
|  | namespace OfficeOpenXml.FormulaParsing.Excel.Functions.Math | 
|  | { | 
|  | public class CountA : HiddenValuesHandlingFunction | 
|  | { | 
|  | public override CompileResult Execute(IEnumerable<FunctionArgument> arguments, ParsingContext context) | 
|  | { | 
|  | ValidateArguments(arguments, 1); | 
|  | var nItems = 0d; | 
|  | Calculate(arguments, context, ref nItems); | 
|  | return CreateResult(nItems, DataType.Integer); | 
|  | } | 
|  |  | 
|  | private void Calculate(IEnumerable<FunctionArgument> items, ParsingContext context, ref double nItems) | 
|  | { | 
|  | foreach (var item in items) | 
|  | { | 
|  | var cs = item.Value as ExcelDataProvider.IRangeInfo; | 
|  | if (cs != null) | 
|  | { | 
|  | foreach (var c in cs) | 
|  | { | 
|  | _CheckForAndHandleExcelError(c, context); | 
|  | if (!ShouldIgnore(c, context) && ShouldCount(c.Value)) | 
|  | { | 
|  | nItems++; | 
|  | } | 
|  | } | 
|  | } | 
|  | else if (item.Value is IEnumerable<FunctionArgument>) | 
|  | { | 
|  | Calculate((IEnumerable<FunctionArgument>)item.Value, context, ref nItems); | 
|  | } | 
|  | else | 
|  | { | 
|  | _CheckForAndHandleExcelError(item, context); | 
|  | if (!ShouldIgnore(item) && ShouldCount(item.Value)) | 
|  | { | 
|  | nItems++; | 
|  | } | 
|  | } | 
|  |  | 
|  | } | 
|  | } | 
|  |  | 
|  | private void _CheckForAndHandleExcelError(FunctionArgument arg, ParsingContext context) | 
|  | { | 
|  | if (context.Scopes.Current.IsSubtotal) | 
|  | { | 
|  | CheckForAndHandleExcelError(arg); | 
|  | } | 
|  | } | 
|  |  | 
|  | private void _CheckForAndHandleExcelError(ExcelDataProvider.ICellInfo cell, ParsingContext context) | 
|  | { | 
|  | if (context.Scopes.Current.IsSubtotal) | 
|  | { | 
|  | CheckForAndHandleExcelError(cell); | 
|  | } | 
|  | } | 
|  |  | 
|  | private bool ShouldCount(object value) | 
|  | { | 
|  | if (value == null) return false; | 
|  | return (!string.IsNullOrEmpty(value.ToString())); | 
|  | } | 
|  | } | 
|  | } |