#107: Функция СтрЧислоВхождений

Author: EvilBeaver

src/ScriptEngine/Compiler/Compiler.cs

@@ -1411,6 +1411,8 @@ private OperationCode BuiltInFunctionCode(Token token)
                     return OperationCode.EmptyStr;
                 case Token.StrReplace:
                     return OperationCode.StrReplace;
+                case Token.StrEntryCount:
+                    return OperationCode.StrEntryCount;
                 case Token.Year:
                     return OperationCode.Year;
                 case Token.Month:

src/ScriptEngine/Compiler/Tokens.cs

@@ -132,6 +132,7 @@ static LanguageDef()
             _stringToToken.Add("кодсимвола", Token.ChrCode);
             _stringToToken.Add("пустаястрока", Token.EmptyStr);
             _stringToToken.Add("стрзаменить", Token.StrReplace);
+            _stringToToken.Add("стрчисловхождений", Token.StrEntryCount);
 
             _stringToToken.Add("год", Token.Year);
             _stringToToken.Add("месяц", Token.Month);
@@ -329,6 +330,7 @@ enum Token
         ChrCode,
         EmptyStr,
         StrReplace,
+        StrEntryCount,
         Year,
         Month,
         Day,

src/ScriptEngine/Machine/BuiltinFunctions.cs

@@ -53,6 +53,7 @@ private static void InitParametersInfo()
             map.Add(OperationCode.ChrCode, SingleDefaultParamInfo);
             map.Add(OperationCode.EmptyStr, SingleDefaultParamInfo);
             map.Add(OperationCode.StrReplace, StrReplaceParamInfo);
+            map.Add(OperationCode.StrEntryCount, TwoDefaultParamsInfo);
             // date
             map.Add(OperationCode.Year, SingleDefaultParamInfo);
             map.Add(OperationCode.Month, SingleDefaultParamInfo);

src/ScriptEngine/Machine/Core.cs

@@ -79,6 +79,7 @@ enum OperationCode
         ChrCode,
         EmptyStr,
         StrReplace,
+        StrEntryCount,
         Year,
         Month,
         Day,

src/ScriptEngine/Machine/MachineInstance.cs

@@ -434,6 +434,7 @@ private void InitCommands()
                 ChrCode,
                 EmptyStr,
                 StrReplace,
+                StrEntryCount,
                 Year,
                 Month,
                 Day,
@@ -1613,6 +1614,28 @@ private void StrReplace(int arg)
             NextInstruction();
         }
 
+        private void StrEntryCount(int arg)
+        {
+            var what = _operationStack.Pop().AsString();
+            var where = _operationStack.Pop().AsString();
+
+            var pos = where.IndexOf(what);
+            var entryCount = 0;
+            while(pos >= 0)
+            {
+                entryCount++;
+                var nextIndex = pos + what.Length;
+                if (nextIndex >= where.Length)
+                    break;
+
+                pos = where.IndexOf(what, nextIndex);
+            }
+
+            _operationStack.Push(ValueFactory.Create(entryCount));
+
+            NextInstruction();
+        }
+
         private void Year(int arg)
         {
             var date = _operationStack.Pop().AsDate().Year;

tests/global-funcs.os

@@ -43,6 +43,8 @@
 	ВсеТесты.Добавить("Тест_ДолженПроверитьЧтоФункцияМаксНеСравниваетРазнотипныеЗначения");
 
 	ВсеТесты.Добавить("Тест_ДолженПроверитьЧтоКопированиеФайлаПерезаписываетПриемник");
+	ВсеТесты.Добавить("Тест_ДолженПроверитьСтрЧислоВхожденийВхожденийНет");
+	ВсеТесты.Добавить("Тест_ДолженПроверитьСтрЧислоВхождений");
 
 	Возврат ВсеТесты;
 КонецФункции
@@ -338,3 +340,21 @@
 	УдалитьФайлы(Источник);
 
 КонецПроцедуры
+
+Процедура Тест_ДолженПроверитьСтрЧислоВхожденийВхожденийНет() Экспорт
+	
+	ГдеИскать = "Здесь был Ежик. Ежик любит грибы, Я Ежик!!!";
+	ЧтоИскать = "колбаса";
+	
+	юТест.ПроверитьРавенство(0, СтрЧислоВхождений(ГдеИскать, ЧтоИскать));
+	
+КонецПроцедуры
+
+Процедура Тест_ДолженПроверитьСтрЧислоВхождений() Экспорт
+	
+	ГдеИскать = "Здесь был Ежик. Ежик любит грибы, Я Ежик!!!";
+	ЧтоИскать = "Ежик";
+	
+	юТест.ПроверитьРавенство(3, СтрЧислоВхождений(ГдеИскать, ЧтоИскать));
+	
+КонецПроцедуры