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

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

Как строку вида 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);
			НоваяСтрока[ИмяКолонки] = Стр;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат  ТаблицаЗначений;
	
КонецФункции

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

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

Код 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 Категория: Работа с Числами

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