Функция Поле(Стр, Разделитель, Позиция) Экспорт
     Если Позиция < 1 Тогда Возврат Стр; КонецЕсли; 
     Поз = 0; Значение = ""; 
     Если СтрЧислоВхождений(Стр, Разделитель) = 0 Тогда 
          Возврат Стр; 
     ИначеЕсли СтрЧислоВхождений(Стр, Разделитель) + 1 < Позиция Тогда 
          Возврат ""; 
     КонецЕсли; 
     Для ы = 1 По СтрДлина(Стр) Цикл 
          Значение = Значение + Сред(Стр, ы, 1); 
          Если Сред(Стр, ы, 1) = Разделитель Тогда 
               Поз = Поз + 1; 
               Если Поз = Число(Позиция) Тогда
                    Возврат Лев(Значение, СтрДлина(Значение)-1); 
               Иначе Значение = ""; 
               КонецЕсли; 
         КонецЕсли; 
     КонецЦикла; 
     Возврат Значение; 
КонецФункции

' VB
Public Function Поле(chars As String, delimiter As String, position As Long)
Dim current As Long, length As Long
Dim count As Long
Dim back As String
    If position < 1 Then
        Поле = ""
        Exit Function
    End If
    ReDim Where(0 To position + 1) As Long
    Where(0) = 1
    current = 1
    length = Len(delimiter)
    For count = 1 To position
        Where(count) = InStr(current, chars, delimiter)
        If Where(count) = 0 Then Where(count) = Len(chars) + 1
        current = Where(count) + Len(delimiter)
    Next count
    If position = 1 Then
        length = 0
    End If
    If (Where(position) = Where(position - 1)) Then
        back = ""
    Else
        back = Mid(chars, (Where(position - 1) + length), (Where(position) - Where(position - 1) - length))
    End If
    Поле = back
End Function

// в 1C
Для cik=1 По m.ПолучитьРазмер1() Цикл
   Сообщить(m.Поле(m.ПолучитьПараметр1(),"|",cik)); 
КонецЦикла;

 sc = 0;  
     Для i = 0 По m.ПолучитьРазмер1() Цикл 
	 sc = sc + 1;
	 ТЗТМП.НоваяСтрока(sc);
	 ret1 = (m.ПолучитьМассив1(i)); 
     ТЗТМП.УстановитьЗначение(sc,"Nr",m.Поле(ret1,"\",1)); 
     ТЗТМП.УстановитьЗначение(sc,"NrTab",m.Поле(ret1,"\",2)); 
	 ТЗТМП.УстановитьЗначение(sc,"FIO",m.Поле(ret1,"\",3));
     ТЗТМП.УстановитьЗначение(sc,"CodFisc",m.Поле(ret1,"\",4)); 
     ТЗТМП.УстановитьЗначение(sc,"AnNs",m.Поле(ret1,"\",5)); 
     ТЗТМП.УстановитьЗначение(sc,"Sex",m.Поле(ret1,"\",6));
     ТЗТМП.УстановитьЗначение(sc,"Adresa",m.Поле(ret1,"\",7)); 
     ТЗТМП.УстановитьЗначение(sc,"CPAS",m.Поле(ret1,"\",10));
	 ТЗТМП.УстановитьЗначение(sc,"Ceh",m.Поле(ret1,"\",11));
	 КонецЦикла; 
     ТЗТМП.Выгрузить(ТЗ); //ТЗ-называние таблицы(см. свойства)