разделителей » Поиск

Результаты по ключевому слову: разделителей

Как строку вида 2023-07-24T15:35:34+03:00 (формат ISO 8601) преобразовать в дату?

Стандарт ISO 8601, составлен таким образом, что:

Строка даты-времени сплошная без пробельных разделителей
Латинские символы используются в качестве разделителей/идентификаторов: D - дни, Y - годы, Z - идентификатор UTC и т.д., например можно задать промежуток времени: P4Y3M2D1H - 4 года, 3 месяца, 2 дня и 1 час.
Буква T выбрана в качестве уникального разделителя времени, остальные буквы латинского алфавита (почти все) задействованы под разные цели и они не пересекаются. Соответственно упрощается парсинг ISO-8601 строки: имеется заранее известный набор флагов/символов/маркеров, опираясь на которые, можно достаточно быстро разбить строку на нужные составляющие и при этом сохраняется требование к human readability самой строки.

Конвертация даты из формата ISO8601 в дату 1С:

Код 1C v 8.3

 //Простой пример

Дата1С = XMLЗначение(Тип("Дата"), "2023-07-24T15:35:34+03:00");



// еще Функция Возвращает структуру с полями "Дата" и "Миллисекунды", стандартный способ преобразования даты округляет время, а в некоторых случаях важна особая точность

Функция КонвертироватьДатуISO8601ВДату(Дата) Экспорт

	КонвертированнаяДата = Новый Структура("Дата, Миллисекунды");

	АвтоконвертированнаяДата = XMLЗначение(Тип("Дата"), Дата);



	Миллисекунды = Сред(Дата, 21);

	Миллисекунды = СокрЛП(СтрЗаменить(Миллисекунды, "Z", ""));



	Если НЕ ПустаяСтрока(Миллисекунды) Тогда

		

		ЧислоМиллисекунд = Число(Миллисекунды);

		

		Если ЧислоМиллисекунд >= 500 Тогда

			

			АвтоконвертированнаяДата = АвтоконвертированнаяДата - 1;

			

		КонецЕсли;

		

	КонецЕсли;

	

	КонвертированнаяДата.Дата = АвтоконвертированнаяДата;

	

	КонвертированнаяДата.Миллисекунды = Миллисекунды;

	

	Возврат КонвертированнаяДата;

КонецФункци

Категория: Работа с Датами (Временем)

Как преобразовать данные текстового файла с единым разделителем в ТЗ

Код 1C v 8.2 УП

 &НаСервере

//Текст - содержание текстового файла

//Разделитель - символ разделителя

//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем

Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)

	

	ТаблицаЗначений = Новый ТаблицаЗначений;

	

	МаксимальноеКвоРазделителей = 0;

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);

		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда

	          МаксимальноеКвоРазделителей = КвоРазделителей;

		КонецЕсли;	  

	КонецЦикла;	

	

	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);

	Ном = 0;

	Пока Ном < КвоКолонок Цикл

		 Ном = Ном+1;

		 ИмяКолонки = "Колонка"+Ном;

		 ТаблицаЗначений.Колонки.Добавить(ИмяКолонки);

	КонецЦикла;

	

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		НоваяСтрока = ТаблицаЗначений.Добавить();

		

		Ном = 0;

		Пока Найти(Стр,Разделитель) > 0 Цикл

			Ном = Ном+1;

			ПозицияРазделителя = Найти(Стр,Разделитель);

			//получим значение

			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);

			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);

			

			//теперь запишем значения

			ИмяКолонки = "Колонка"+Ном;

			НоваяСтрока[ИмяКолонки] = ТекЗначение;

		КонецЦикла;

		

		Если ЕстьЗакрывающийСимвол = Ложь Тогда

			ИмяКолонки = "Колонка"+(Ном+1);

			НоваяСтрока[ИмяКолонки] = Стр;

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат  ТаблицаЗначений;

	

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

Категория: Работа с Таблицей Значений

Как преобразовать данные текстового файла с единым разделителем в ТЗ

Код 1C v 8.2 УП

 &НаСервере

//Текст - содержание текстового файла

//Разделитель - символ разделителя

//ЕстьЗакрывающийСимвол - последнее значение заканчивается разделителем

Функция ПреобразоватьТекстВТЗ(Текст,Разделитель,ЕстьЗакрывающийСимвол)

	

	ТаблицаЗначений = Новый ТаблицаЗначений;

	

	МаксимальноеКвоРазделителей = 0;

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		КвоРазделителей = СтрЧислоВхождений(Стр,Разделитель);

		Если  КвоРазделителей > МаксимальноеКвоРазделителей Тогда

	          МаксимальноеКвоРазделителей = КвоРазделителей;

		КонецЕсли;	  

	КонецЦикла;	

	

	КвоКолонок = ?(ЕстьЗакрывающийСимвол = Истина,МаксимальноеКвоРазделителей,МаксимальноеКвоРазделителей+1);

	Ном = 0;

	Пока Ном < КвоКолонок Цикл

		 Ном = Ном+1;

		 ИмяКолонки = "Колонка"+Ном;

		 ТаблицаЗначений.Колонки.Добавить(ИмяКолонки);

	КонецЦикла;

	

	Для НомерСтроки=1 по Текст.КоличествоСтрок() Цикл

		

		Стр = Текст.ПолучитьСтроку(НомерСтроки);

		НоваяСтрока = ТаблицаЗначений.Добавить();

		

		Ном = 0;

		Пока Найти(Стр,Разделитель) > 0 Цикл

			Ном = Ном+1;

			ПозицияРазделителя = Найти(Стр,Разделитель);

			//получим значение

			ТекЗначение = ЛЕВ(Стр,ПозицияРазделителя - 1);

			Стр = Прав(Стр,СтрДлина(Стр) - ПозицияРазделителя);

			

			//теперь запишем значения

			ИмяКолонки = "Колонка"+Ном;

			НоваяСтрока[ИмяКолонки] = ТекЗначение;

		КонецЦикла;

		

		Если ЕстьЗакрывающийСимвол = Ложь Тогда

			ИмяКолонки = "Колонка"+(Ном+1);

			НоваяСтрока[ИмяКолонки] = Стр;

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат  ТаблицаЗначений;

	

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

Категория: XML, DBF, TXT, CSV

Выгрузка результата запроса в текстовый файл с разделителями

Код 1C v 8.х

 Запрос = Новый Запрос();

Запрос.УстановитьПараметр("ДатаНач",НачалоДня(ДатаНач));

Запрос.УстановитьПараметр("ДатаКон",КонецДня(ДатаКон));

Запрос.УстановитьПараметр("Организация",Организация);

Запрос.Текст = "ВЫБРАТЬ

|	ПоступлениеТоваровУслугТовары.Номенклатура КАК Номенклатура,

|	ПоступлениеТоваровУслугТовары.Количество КАК Количество,

|	ПоступлениеТоваровУслугТовары.Цена КАК Цена,

|	ПоступлениеТоваровУслугТовары.Ссылка.Номер КАК Номер,

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата КАК Дата,

|	ПоступлениеТоваровУслугТовары.Ссылка.Контрагент КАК Контрагент,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Код КАК НоменклатураКод,

|	ПоступлениеТоваровУслугТовары.Номенклатура.Артикул КАК НоменклатураАртикул

|ИЗ

|	Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары

|ГДЕ

|	ПоступлениеТоваровУслугТовары.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон

|	И ПоступлениеТоваровУслугТовары.Ссылка.Организация = &Организация

|	

|УПОРЯДОЧИТЬ ПО	

|	Контрагент,

|	Номер,

|	Дата,

|	НоменклатураКод,

|	Номенклатура,

|	НоменклатураАртикул,

|	Количество,

|	Цена";	

Результат = Запрос.Выполнить().Выбрать();	

Текст = Новый ЗаписьТекста("c:\vigruz.txt", КодировкаТекста.ANSI);

РезультатДок = Запрос.Выполнить().Выбрать();	

Пока РезультатДок.Следующий() Цикл		

	ОбработкаПрерыванияПользователя();

	// В качестве разделителей необходимо использовать Символы. ВК (CR),ВТаб (VTab),НПП (NBSp),ПС (LF),ПФ (FF),Таб (Tab)

	

	//Если нам нужна строка вида " helpf.pro    07.08.2009   13 " в качестве разделителя используется табуляция

	//то пишем так:

	Текст.ЗаписатьСтроку(Строка(РезультатДок.Контрагент)+Символы.Таб+Строка(Формат((РезультатДок.Дата),"ДЛФ=D"))+Символы.Таб+Строка(РезультатДок.Номер));	

	// При загрузке строку можно будет разложить в массив для дальнейшей работы, РазложитьСтрокуВМассивПодстрок( ТекСтр, Символы.Таб). Ссылка на функцию ниже



	//Если нужен вид 

	// helpf.pro 

	// 07.08.2009

	// 13 

	// здесь в качестве разделителя используется перевод каретки (следующая строка), то пишем

	Текст.ЗаписатьСтроку(РезультатДок.Контрагент);

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(Формат((РезультатДок.Дата),"ДЛФ=D"));      

	Текст.ЗаписатьСтроку(Символы.ПС);	

	Текст.ЗаписатьСтроку(РезультатДок.Номер);          

	

КонецЦикла;		

Текст.Закрыть();

При загрузке для разбора строки используйте: Функция разбирает строку на подстроки, используя заданный разделитель и возвращает массив

Еще посмотрите пример: Загрузка данных из Текстового файла

Категория: Работа с Текстом (Строкой)

Функция преобразует числа с разделителями 1 256 735 в 1256735 Категория: Работа с Числами

Как указать нужную,конкретную дату? Категория: Работа с Датами (Временем)