Функция ИзСтрокиСРазделителями(Знач стр, ном =0, р =";", ВернутьМассив = Ложь) Экспорт
Если ВернутьМассив Тогда
TextScript="
|Function Run
| run = split("""+стр+""", """+р+""")
|End Function
|";
Иначе
TextScript="
|Function Run
| myarr = split("""+стр+""", """+р+""")
| run = myarr("+СокрЛП(ном-1) +")
|End Function
|";
КонецЕсли;
ScrptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language ="vbscript";
ScrptCtrl.AddCode(TextScript);
Возврат ScrptCtrl.Run("Run");
КонецФункции
