Подскажите, как настройки взять из *.ini файла

Как я считаю (может быть неверно) данный код разбивает строки 8,11 , получается 2 (два) списка значений
Как из этих списков значений получить один - соответствие фирма-склад?


Перем Путь;
Функция гмРазобратьСтроку(Стр, Рзд) Экспорт
Перем _сз, _Цикл;

Если ПустаяСтрока(Стр) = 1 Тогда
Возврат "";
КонецЕсли;

_сз = СоздатьОбъект("СписокЗначений");
_КолВхожд = СтрЧислоВхождений(Стр,Рзд);
_ДлСтр = СтрДлина(Стр);
_СтПрав = _ДлСтр;

Для _Цикл = 1 По (_КолВхожд) Цикл
_ГтПоз = Найти(Прав(Стр,_СтПрав), Рзд);
_СтЛев = _ГтПоз - 1;
_сз.ДобавитьЗначение(Лев(Прав(Стр,_СтПрав), _СтЛев));
_СтПрав = _СтПрав - _ГтПоз;
КонецЦикла;

_сз.ДобавитьЗначение(Прав(Стр,_СтПрав));

Возврат _сз;
КонецФункции // гмРазобратьСтроку()
//_________________________________________________________
Функция ЧтениеИНИ()
Ткст = СоздатьОбъект("Текст"); // ИНИфайл
ФайлИНИ = Путь + "Tools\Sets.ini";
Если ФС.СуществуетФайл(ФайлИНИ) = 1 Тогда
Ткст.Открыть(ФайлИНИ);
КатПОС1 = СокрЛП(Ткст.ПолучитьСтроку(8));
КатПОС2 = СокрЛП(Ткст.ПолучитьСтроку(11));

Если (ПустоеЗначение( КатПОС1 ) = 0) И (ПустоеЗначение( КатПОС2 ) = 0) Тогда
СписНастроек1 = гмРазобратьСтроку( КатПОС1, ";" );
СписНастроек2 = гмРазобратьСтроку( КатПОС2, ";" );
КонецЕсли;
Иначе
Предупреждение("Файл с настройками " + ФайлИНИ + "' не обнаружен!",60);
Возврат 0;
КонецЕсли;
КонецФункции //ЧтениеИНИ()

Спецы помогите найти ошибку (цикл в Функция ЧтениеИНИ() не перебирает все строки), хотелось бы услышать мнение спеца под ником VasilyKushnir)
Функция гмРазобратьСтроку(Стр, Рзд, номерСтр) Экспорт
Перем _сз, _Цикл;

Если ПустаяСтрока(Стр) = 1 Тогда
Возврат "";
КонецЕсли;

//_сз = СоздатьОбъект("СписокЗначений");
_сз = СоздатьОбъект("ТаблицаЗначений");
_Сз.НоваяКолонка("Зн1");
_Сз.НоваяКолонка("Зн2");
_КолВхожд = СтрЧислоВхождений(Стр,Рзд);
_ДлСтр = СтрДлина(Стр);
_СтПрав = _ДлСтр;

Для _Цикл = 1 По (_КолВхожд) Цикл
_ГтПоз = Найти(Прав(Стр,_СтПрав), Рзд);
_СтЛев = _ГтПоз - 1;
//_сз.ДобавитьЗначение(Лев(Прав(Стр,_СтПрав), _СтЛев));
ст = Лев(Прав(Стр,_СтПрав), _СтЛев);
если НомерСтр = 8 Тогда
_Сз.НоваяСтрока();
_Сз.Зн1 = Сред(ст, 1,1); //склад
_Сз.Зн2 = Сред(ст, 3,1); //касса
ИначеЕсли НомерСтр = 11 Тогда
_Сз.НоваяСтрока();
_Сз.Зн1 = Сред(ст, 1,1); //касса
_Сз.Зн2 = Сред(ст, 3,2); //фирма
КонецЕсли;
_СтПрав = _СтПрав - _ГтПоз;
КонецЦикла;

//_сз.ДобавитьЗначение(Прав(Стр,_СтПрав));

Возврат _сз;
КонецФункции // гмРазобратьСтроку()
//__________________________________________________________­________________________
Функция ЧтениеИНИ()

Ткст = СоздатьОбъект("Текст"); // ИНИфайл
Путь = КаталогИБ()+"ExtForms\Tools\";
ФайлИНИ = Путь + "Sets.ini";
Если ФС.СуществуетФайл(ФайлИНИ) = 1 Тогда
Ткст.Открыть(ФайлИНИ);
КатПОС1 = СокрЛП(Ткст.ПолучитьСтроку(8));
КатПОС2 = СокрЛП(Ткст.ПолучитьСтроку(11));
Если (ПустоеЗначение( КатПОС1 ) = 0) И (ПустоеЗначение( КатПОС2 ) = 0) Тогда
СписНастроек1 = гмРазобратьСтроку( КатПОС1, ";" ,8); //скл-касса
СписНастроек2 = гмРазобратьСтроку( КатПОС2, ";" ,11); //касса-фирма
СкладФирма = СоздатьОбъект("ТаблицаЗначений");
СкладФирма.НоваяКолонка("Склад");
СкладФирма.НоваяКолонка("Фирма");
СписНастроек2.ВыбратьСтроки();
Пока СписНастроек2.ПолучитьСтроку() = 1 Цикл
К2 = СписНастроек2.Зн1;
Ф2 = СписНастроек2.Зн2;
с=0;
к=0;
есть = СписНастроек1.НайтиЗначение(к2, с,2);
Если есть=1 Тогда
//СкладФирма.НоваяСтрока();
СкладФирма.Склад = СписНастроек1.ПолучитьЗначение(с,"Зн1") ;
СкладФирма.Фирма = Ф2;
Сообщить(СкладФирма.Склад+" = "+Ф2);
Иначе
Сообщить(к2+ " - не найдено");


КонецЕсли;

КонецЦикла;


КонецЕсли;
Иначе
Предупреждение("Файл с настройками " + ФайлИНИ + " не обнаружен!",60);
Возврат 0;
КонецЕсли;
КонецФункции //ЧтениеИНИ()