Есть текстовый файл. В нем строки типа:
ячтситьи;чиыриори;ыапрпарпа;
Как мне разделить эту строку так:
Перем1 = ячтситьи;
Перем2 = чиыриори;
перем3 = ыапрпарпа;
?
эх...совсем народ разленился...
и прада не умееете работать со строками?
нет говтов...мсамому функцию написать 5-10 строчек
Функция Разпарсить(Стр)
Разделитель = ";";
ТЗ = СоздатьОбъект("ТаблицаЗначний");
ТЗ.НоваяКОлонка("СуперСтрока", );
Стр = СокрЛП(Стр)
Пока Найти(Стр, Разделитель) Цикл
гы = Лев(Стр,Найти(Стр, Разделитель) - 1);
Стр = Прав(Стр, СтрДлина(Стр) - Найти(Стр, Разделитель));
ТЗ.НоваяСтрока();
ТЗ.СуперСтрока = гы;
КонецЦикла
возврат ТЗ;
КонецФункции
--------------
з.ы. писал тут в окне...может и ругнется
возвращает Таблицу с строками разделенными раздилителем (
Просто зачем изобретать велосипед, если для этого есть специальная функция
Ладно, тогда вопрос такой:
как поризвести поиск в строке до определённого символа?
А зачем по "букавкам" перебирать строку?
ИМХО, zetovich достаточно точно описал разбитие строки с помощью функции Найти
Т = СоздатьОбъект("Текст");
Сп = СоздатьОбъект("СписокЗначений");
Т.Открыть(ИмяФайла);
Для Сч=1 По Т.КоличествоСтрок() Цикл
Стр = Т.ПолучитьСтроку(Сч);
Сп.УдалитьВсе();
Сп.ИзСтрокиСРазделителями(Стр);
Если Сп.РазмерСписка() <= 0 Тогда
Продолжить;
КонецЕсли;
НомерПП = Сред(Сп.ПолучитьЗначение(1),13);
КонецЦикла
Может я не прав но текстовый файл можно использовать для обмена данных между программами 1С и внешними
например файл типа
Строка1+СимволТабуляции+Строка2+СимволТабуляции+Строка3
отлично открывается любой версией мийкрософт екселя для дополнительнях вычислений или отчётов.
кроме того он прекрасно вноситься в другие базы данных Access , MS SQL ...
С функция ВСтрокуСРазделителями() не разгонишься.
Ктото делал связь такого файла с MS Access?
Процедура РазделитьСтроку(Строчка, Разделитель)
ЕДРПОУ = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
МФОА = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
РСчетА = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
Валюта = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
ДатаОперации = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
КодОперации = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
МФОБ = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
НазваниеБанка = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
СчетКорр = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
ЕДРПОУКорр = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
Корр = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
НомерДок = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
ДатаДокумента = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
Дебет = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
Кредит = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
ПризначенняПлатежу = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
ГривневеПокриття = Лев(Строчка, Найти(Строчка, Разделитель)-1);
Строчка = Прав(Строчка, СтрДлина(Строчка) - Найти(Строчка, Разделитель));
КонецПроцедуры
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua