Преобразование csv в таблицу значений, продолжение

Использую данный вариант

Функция ИзСтрокиСРазделителями(S,Delimiter=",",QuoteChar="""") Экспорт
перем aList;
ExtractFields(S,aList,Delimiter,QuoteChar);
Возврат aList
КонецФункции

Функция НайтиВПодстроке(Стр1,Поз1,ИскомыйСимвол)
Стр=Сред(Стр1,поз1);
поз=Найти(Стр,ИскомыйСимвол);
Если поз=0 Тогда
возврат СтрДлина(стр1)+1
КонецЕсли;
Возврат поз1+поз-1
КонецФункции

Процедура ExtractFields(S,aList,Delimiter,QuoteChar)
FieldStart=0; ScanField=1; ScanQuoted=2; EndQuoted=3;

//{initialize by clearing the string list, and

// starting in FieldStart state}

// Assert(aList <> nil, 'TDExtractFields: list is nil');

aList= новый Массив;
if ( (S=неопределено) или (СтрДлина(S) =0 )) Тогда

aList.Add("");
return;
КонецЕсли;

State = FieldStart;
// RStringBuilder SB= new RStringBuilder();

SB="";
StartPos=1;
EndPos=СтрДлина(S);
Inx=1;
// {read through all the characters in the string}

while (Inx <=EndPos) Цикл

// {get the next character}

Ch = Сред(S,Inx,1);
// {switch processing on the state}

Если State =FieldStart Тогда

if ( Ch = QuoteChar) Тогда

State = ScanQuoted;
StartPos=Inx+1;
SB="";
Inx=НайтиВПодстроке(S,StartPos,QuoteChar);
продолжить;
else
if ( Ch = Delimiter) Тогда

aList.Add("");

else

State = ScanField;
StartPos=Inx;
Inx=НайтиВПодстроке(S,StartPos,Delimiter);
продолжить
КонецЕсли;
КонецЕсли;
ИначеЕсли State =ScanField Тогда
if ( Ch = Delimiter ) Тогда
CopyCount=Inx-StartPos;
aList.Add(Сред(S,StartPos,CopyCount));
State = FieldStart;
КонецЕсли
ИначеЕсли State = ScanQuoted Тогда

if ( Ch = QuoteChar) Тогда
State = EndQuoted;
CopyCount=Inx-StartPos;
// SB.Append(S,StartPos,CopyCount);

SB=SB+Сред(S,StartPos,CopyCount);
КонецЕсли;
ИначеЕсли State = EndQuoted Тогда

if (Ch = Delimiter) Тогда
aList.Add(SB);
State = FieldStart;

ИначеЕсли (Ch = QuoteChar) Тогда

State = ScanQuoted;
SB=SB+QuoteChar;
StartPos=Inx+1;
Inx=НайтиВПодстроке(S,StartPos,QuoteChar);
продолжить
else
ВызватьИсключение("Нет "+Delimiter+ "в позиции ="+Inx );

КонецЕсли;
КонецЕсли;
Inx=Inx+1;
КонецЦикла;

// {if we are in the ScanQUoted or GotError state at the end

// of the string, there was a problem with a closing quote}

if (State = ScanQuoted) Тогда
ВызватьИсключение("Нет закрывающей скобки от поз="+Строка(StartPos-1)+
" до конца строки");
КонецЕсли;

// {if the current field is not empty, add it to the list}

if (State = EndQuoted) Тогда
aList.Add(SB);
ИначеЕсли (State = ScanField) Тогда

CopyCount=Inx-StartPos;
aList.Add(Сред(S,StartPos,CopyCount));
КонецЕсли
КонецПроцедуры