В начало

Сократить двойные кавычки

 

При редактировании CSV-файлов в Иксель, а также при преобразовании из XSL-файлов в CSV формат Иксель добавляет лишние двойные кавычки к текстовым строкам, которые потом трудно обрабатывать, например преобразовывать в число и сравнивать со строковыми данными.

 

Нужно преобразовать выражения следующего вида:

""0,00""

"0,00"

""МУП ""УК Подольск"" (МУП ЖПЭТ-2)" "

"МУП "УК Подольск" (МУП ЖПЭТ-2) "

что примечательно, в начале и конце строк стоят лишние двойные кавычки.

 

Листинг. Функция

Функция СократитьДвойныеКавычки(Знач вхСтрока)

           

            Пока СтрНачинаетсяС(вхСтрока, """") Цикл

                        вхСтрока = Сред(вхСтрока, 2);

            КонецЦикла;

           

            Пока СтрЗаканчиваетсяНа(вхСтрока, """") Цикл

                        вхСтрока = Лев(вхСтрока, СтрДлина(вхСтрока) - 1);

            КонецЦикла;

                       

           

            Возврат СтрЗаменить(вхСтрока, """""", """");

           

КонецФункции

 


Рейтинг@Mail.ru