Merge pull request alei1180#137 from Stivo182/refactor/read-text-file

Использование ЧтениеТекста вместо ТекстовыйДокумента (alei1180#134)

Author: Stivo182

src/core/Классы/ГенераторПрограммногоКода1С.os

@@ -1,6 +1,6 @@
 #Использовать "../../internal"
 
-Перем Конструктор;
+Перем Конструктор; // см. КонструкторПрограммногоКода
 Перем ИсходящиеОшибки; // Массив из Структура:
                        //   * Текст - Строка - Текст ошибки
                        //   * КритичнаяОшибка - Булево - Признак критичиной ошибки 
@@ -18,9 +18,9 @@
                         //   - ПередаваемыйФайл - см. ПередаваемыйФайл
                         //   - ИмяПеременной - Строка
 Перем ИспользуетсяПрокси; // Булево
-Перем ТелоЗапросаСтрока; // Строка
-Перем ЕстьТекстовоеТелоЗапроса; // Булево
 Перем ВызванМетодПоТекущемуURL; // Булево
+Перем ТелоЗапросаСтрока; // Строка
+Перем МетодУстановкиТелаЗапроса; // Строка
 
 #Область ПрограммныйИнтерфейс
 
@@ -39,8 +39,7 @@
 
 	ОписаниеЗапроса = Описание;
 	ИспользуетсяПрокси = Ложь;
-	ЕстьТекстовоеТелоЗапроса = Ложь;
-	ТелоЗапросаСтрока = "";
+
 	ВызванМетодПоТекущемуURL = Ложь;	
 	ПрочитанныеФайлы.Очистить();
 
@@ -52,9 +51,11 @@
 
 	Конструктор = Новый КонструкторПрограммногоКода();
 
+	ОпределитьМетодУстановкиТелаЗапроса();
+
 	ВывестиЗаголовки();
-	ВывестиЧтениеФайлов();
-	ВывестиИнициализациюТекстовогоТелаЗапроса();
+	ДобавитьЧтениеФайлов();
+	ДобавитьДанныеЗапроса();
 	ВывестиЗащищенноеСоединение();
 	ВывестиИнициализациюПрокси();
 
@@ -74,11 +75,11 @@
 
 		Если ОбщегоНазначения.ЭтоHTTP(СтруктураURL.Схема) Тогда
 			ВывестиHTTPСоединение(СтруктураURL);
-			ВывестиВызовHTTPМетодаДляКаждогоФайла(ОписаниеРесурса);
+			ДобавитьПоследовательнуюОтправкуФайлов(ОписаниеРесурса);
 
 			Если Не ВызванМетодПоТекущемуURL Тогда
 				ВывестиHTTPЗапрос(СтруктураURL);
-				ВывестиУстановкуТелаЗапроса(ОписаниеРесурса);				
+				ДобавитьУстановкуТелаЗапроса(ОписаниеРесурса);				
 				ВывестиВызовHTTPМетода(ОписаниеРесурса);
 			КонецЕсли;
 		ИначеЕсли ОбщегоНазначения.ЭтоFTP(СтруктураURL.Схема) Тогда
@@ -122,10 +123,8 @@
 	ИмяПараметраПрокси = "Прокси";
 	ИмяПараметраТелоЗапросаСтрока = "ТелоЗапроса";
 
-	ПрочитанныеФайлы = Новый Массив;
+	ПрочитанныеФайлы = Новый Массив();
 	ИспользуетсяПрокси = Ложь;
-	ЕстьТекстовоеТелоЗапроса = Ложь;
-	ТелоЗапросаСтрока = "";
 	ВызванМетодПоТекущемуURL = Ложь;
 
 КонецПроцедуры
@@ -319,61 +318,6 @@
 
 КонецПроцедуры
 
-Процедура ВывестиЧтениеФайлов()
-
-	ПрочитанныеФайлы.Очистить();
-
-	ТребуетсяПрочитатьФайлыТелаЗапроса = ТребуетсяПрочитатьФайлыТелаЗапроса();
-
-	НомерФайла = 1;
-	Для Каждого ПередаваемыйФайл Из ОписаниеЗапроса.Файлы Цикл
-
-		Если Не (ПередаваемыйФайл.ПрочитатьСодержимое 
-			Или ПередаваемыйФайл.Назначение = НазначенияПередаваемыхДанных.СтрокаЗапроса) Тогда
-			Продолжить;
-		КонецЕсли;
-
-		Если ПередаваемыйФайл.Назначение = НазначенияПередаваемыхДанных.ТелоЗапроса
-			И Не ТребуетсяПрочитатьФайлыТелаЗапроса Тогда
-			Продолжить;
-		КонецЕсли;
-	
-		ИмяПеременной = "ТекстовыеДанныеИзФайла_" + Формат(НомерФайла, "ЧГ=");
-
-		Конструктор.ДобавитьПустуюСтроку();
-
-		Шаблон = "ТекстовыйДокумент = Новый ТекстовыйДокумент();
-			|ТекстовыйДокумент.Прочитать(%2);
-			|%1 = ТекстовыйДокумент.ПолучитьТекст();";
-
-		Если ПередаваемыйФайл.УдалятьПереносыСтрок Тогда
-			Шаблон = Шаблон + "
-			|%1 = СтрЗаменить(%1, Символы.ПС, """");
-			|%1 = СтрЗаменить(%1, Символы.ВК, """");";
-		КонецЕсли;
-
-		Если ПередаваемыйФайл.КодироватьСодержимое Тогда
-			Шаблон = Шаблон + "
-			|%1 = КодироватьСтроку(%1, СпособКодированияСтроки.URLВКодировкеURL);";
-		КонецЕсли;
-
-		Если ЗначениеЗаполнено(ПередаваемыйФайл.Ключ) Тогда
-			Шаблон = Шаблон + "
-			|%1 = """ + ПередаваемыйФайл.Ключ + "="" + %1;";
-		КонецЕсли;
-
-		Конструктор.ДобавитьСтроку(Шаблон,
-			ИмяПеременной,
-			Конструктор.ПараметрВСтроку(ПередаваемыйФайл.ИмяФайла));
-	
-		ПрочитанныйФайл = Новый Структура("ПередаваемыйФайл, ИмяПеременной", ПередаваемыйФайл, ИмяПеременной);
-		ПрочитанныеФайлы.Добавить(ПрочитанныйФайл);
-
-		НомерФайла = НомерФайла + 1;
-	КонецЦикла;
-
-КонецПроцедуры
-
 Процедура ВывестиHTTPЗапрос(СтруктураURL)
 
 	ПараметрыФункции = Новый Массив;
@@ -462,71 +406,57 @@
 
 КонецФункции
 
-Процедура ВывестиИнициализациюТекстовогоТелаЗапроса()
-
-	ЭлементыТелаЗапросаДляВывода = Новый Массив;
-	КонкатенацияСПереносомСтрокиИРазделителя = "
-	|	+ ""%1"" + ";
-	КонкатенацияСПереносомСтроки = "
-	|	+ ";
+Процедура ДобавитьЧтениеФайлов()
 
-	ОтправляемаяСтрока = "";
-	Для Каждого ПередаваемыйТекст Из ОписаниеЗапроса.ОтправляемыеТекстовыеДанные Цикл
-		Если ПередаваемыйТекст.Назначение = НазначенияПередаваемыхДанных.ТелоЗапроса Тогда
-			ОтправляемаяСтрока = ОтправляемаяСтрока
-				+ ?(ОтправляемаяСтрока = "", "", ПередаваемыйТекст.РазделительТелаЗапроса)
-				+ ПередаваемыйТекст.Значение;
+	ТребуетсяЧтениеФайловТелаЗапроса = Не МетодУстановкиТелаЗапроса = "ИзФайла";
+
+	ФайлыДляЧтения = Новый Массив();
+	Для Каждого ПередаваемыйФайл Из ОписаниеЗапроса.Файлы Цикл
+
+		Если Не (ПередаваемыйФайл.ПрочитатьСодержимое 
+			Или ПередаваемыйФайл.Назначение = НазначенияПередаваемыхДанных.СтрокаЗапроса) Тогда
+			Продолжить;
 		КонецЕсли;
-	КонецЦикла;
-	
-	Если ЗначениеЗаполнено(ОтправляемаяСтрока) Тогда
-		ЭлементыТелаЗапросаДляВывода.Добавить(Конструктор.ПараметрВСтроку(ОтправляемаяСтрока));
-	КонецЕсли;
 
-	Для Каждого ПрочитанныйФайл Из ПрочитанныеФайлы Цикл
-		Если ПрочитанныйФайл.ПередаваемыйФайл.Назначение = НазначенияПередаваемыхДанных.ТелоЗапроса Тогда
-			Если ЭлементыТелаЗапросаДляВывода.Количество() Тогда
-				Если Не ПустаяСтрока(ПрочитанныйФайл.ПередаваемыйФайл.РазделительТелаЗапроса) Тогда
-					ЭлементыТелаЗапросаДляВывода.Добавить(
-						СтрШаблон(КонкатенацияСПереносомСтрокиИРазделителя, ПрочитанныйФайл.ПередаваемыйФайл.РазделительТелаЗапроса)
-						+ ПрочитанныйФайл.ИмяПеременной);
-				Иначе
-					ЭлементыТелаЗапросаДляВывода.Добавить(КонкатенацияСПереносомСтроки + ПрочитанныйФайл.ИмяПеременной);
-				КонецЕсли;
-			Иначе
-				ЭлементыТелаЗапросаДляВывода.Добавить(ПрочитанныйФайл.ИмяПеременной);
-			КонецЕсли;
+		Если ПередаваемыйФайл.Назначение = НазначенияПередаваемыхДанных.ТелоЗапроса
+			И Не ТребуетсяЧтениеФайловТелаЗапроса Тогда
+			Продолжить;
 		КонецЕсли;
-	КонецЦикла;
 
-	КоличествоЭлементов = ЭлементыТелаЗапросаДляВывода.Количество();
-	Если КоличествоЭлементов = 0 Тогда
-		Возврат;
-	КонецЕсли;
+		ФайлыДляЧтения.Добавить(ПередаваемыйФайл);
 
-	ЕстьТекстовоеТелоЗапроса = Истина;
+	КонецЦикла;
 
-	Если КоличествоЭлементов = 1 Тогда
-		ТелоЗапросаСтрока = ЭлементыТелаЗапросаДляВывода[0];
-	Иначе
+	Код = УниверсальныеБлокиКода.ЧтениеТекстовыхФайлов(ФайлыДляЧтения, ПрочитанныеФайлы);
+
+	Если Не ПустаяСтрока(Код) Тогда
 		Конструктор
 			.ДобавитьПустуюСтроку()
-			.ДобавитьСтроку("%1 = %2;", 
-				ИмяПараметраТелоЗапросаСтрока, 
-				СтрСоединить(ЭлементыТелаЗапросаДляВывода));
+			.ДобавитьСтроку(Код);
 	КонецЕсли;
 
 КонецПроцедуры
 
+Процедура ДобавитьДанныеЗапроса()
 
-Процедура ВывестиУстановкуТелаЗапроса(ОписаниеРесурса)
+	ТелоЗапросаСтрока = "";
+	ТелоЗапроса = УниверсальныеБлокиКода.СборкаТелаЗапроса(
+		ОписаниеЗапроса.ОтправляемыеТекстовыеДанные, 
+		ПрочитанныеФайлы);
 
-	ВывестиУстановкуТелаЗапросаТекстовымиДанными();
-	ВывестиУстановкуТелаЗапросаИзФайла(ОписаниеРесурса);
+	Если ЗначениеЗаполнено(ТелоЗапроса) Тогда
+		Если СтрЧислоСтрок(ТелоЗапроса) = 1 Тогда
+			ТелоЗапросаСтрока = ТелоЗапроса;
+		Иначе
+			Конструктор
+				.ДобавитьПустуюСтроку()
+				.ДобавитьСтроку("%1 = %2;", ИмяПараметраТелоЗапросаСтрока, ТелоЗапроса);
+		КонецЕсли;
+	КонецЕсли;
 
 КонецПроцедуры
 
-Процедура ВывестиВызовHTTPМетодаДляКаждогоФайла(ОписаниеРесурса)
+Процедура ДобавитьПоследовательнуюОтправкуФайлов(ОписаниеРесурса)
 
 	ДлинаИмениФайлаВКомментарии = 100;
 
@@ -575,9 +505,16 @@
 
 КонецПроцедуры
 
-Процедура ВывестиУстановкуТелаЗапросаТекстовымиДанными()
+Процедура ДобавитьУстановкуТелаЗапроса(ОписаниеРесурса)
+
+	ДобавитьУстановкуТелаЗапросаТекстовымиДанными();
+	ДобавитьУстановкуТелаЗапросаИзФайла(ОписаниеРесурса);
+
+КонецПроцедуры
+
+Процедура ДобавитьУстановкуТелаЗапросаТекстовымиДанными()
 
-	Если Не ЕстьТекстовоеТелоЗапроса Тогда
+	Если Не МетодУстановкиТелаЗапроса = "ИзСтроки" Тогда
 		Возврат;
 	КонецЕсли;
 
@@ -587,7 +524,11 @@
 
 КонецПроцедуры
 
-Процедура ВывестиУстановкуТелаЗапросаИзФайла(ОписаниеРесурса)
+Процедура ДобавитьУстановкуТелаЗапросаИзФайла(ОписаниеРесурса)
+
+	Если Не МетодУстановкиТелаЗапроса = "ИзФайла" Тогда
+		Возврат;
+	КонецЕсли;
 
 	Файлы = Новый Массив();
 	ОбщегоНазначения.ДополнитьМассив(Файлы, ОписаниеЗапроса.Файлы);
@@ -763,7 +704,7 @@
 
 КонецФункции
 
-Функция ТребуетсяПрочитатьФайлыТелаЗапроса()
+Процедура ОпределитьМетодУстановкиТелаЗапроса()
 
 	КоличествоФайлов = 0;
 	Для Каждого ПередаваемыйФайл Из ОписаниеЗапроса.Файлы Цикл
@@ -781,13 +722,14 @@
 		КонецЕсли;
 	КонецЦикла;
 
-	Если КоличествоФайлов <= 1
-		И Не ЕстьТекстовоеТелоЗапроса Тогда
-		Возврат Ложь;
+	Если КоличествоФайлов > 1 Или ЕстьТекстовоеТелоЗапроса Тогда
+		МетодУстановкиТелаЗапроса = "ИзСтроки";
+	ИначеЕсли КоличествоФайлов = 1 И Не ЕстьТекстовоеТелоЗапроса Тогда
+		МетодУстановкиТелаЗапроса = "ИзФайла";
+	Иначе
+		МетодУстановкиТелаЗапроса = "";
 	КонецЕсли;
 
-	Возврат Истина;
-
-КонецФункции
+КонецПроцедуры
 
 #КонецОбласти