Skip to content

fix: Привести поведение ЧтениеТекста по умолчанию к совместимости с 1С 8.3.11+ #1668

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
johnnyshut wants to merge 3 commits into
base: develop
Choose a base branch
from
+15 −12
Open

fix: Привести поведение ЧтениеТекста по умолчанию к совместимости с 1С 8.3.11+ #1668

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
9490621
fix(text-read): remove legacy constructor defaults
johnnyshut Apr 28, 2026
ce3e465
test(text-read): update compatibility expectations for default params
johnnyshut Apr 28, 2026
126d144
test(text-write): update expected line count in text reading test
johnnyshut May 1, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 2 additions & 5 deletions src/OneScript.StandardLibrary/Text/TextReadImpl.cs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -171,8 +171,7 @@ private void RequireOpen()
public static TextReadImpl Constructor (IValue input)
{
var reader = new TextReadImpl ();
reader.AnalyzeDefaultLineFeed = false;
reader.Open (input, null, "\n", "\r\n");
reader.Open(input);
return reader;
}

Expand All @@ -183,9 +182,7 @@ public static TextReadImpl Constructor (IValue input)
[ScriptConstructor(Name = "Формирование неинициализированного объекта")]
public static TextReadImpl Constructor()
{
var reader = new TextReadImpl();
reader.AnalyzeDefaultLineFeed = false;
return reader;
return new TextReadImpl();
}

/// <summary>
Expand Down
18 changes: 12 additions & 6 deletions tests/text-read.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -144,8 +144,10 @@

// В конструкторе не указываем конвертируемый перевод строк
Ч = Новый ЧтениеТекста(ИмяВременногоФайла);
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через конструктор без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");

Ч.Закрыть();
Expand All @@ -163,17 +165,21 @@
// Используем конструктор по-умолчанию и открытие без указания конвертируемого перевода строк
Ч = Новый ЧтениеТекста;
Ч.Открыть(ИмяВременногоФайла);
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие без параметров по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");

Ч.Закрыть();

// Используем конструктор по-умолчанию и открытие с указанием конвертируемого перевода строк "по-умолчанию"
Ч = Новый ЧтениеТекста;
Ч.Открыть(ИмяВременногоФайла,,,);
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123\r", "\r в конце строки (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6\r", "\r в конце строки (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "123123123", "Нет \r в конце строки (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "45/645/645/6", "Нет \r в конце строки (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "", "Пустая строка вместо \r (через открытие с параметрами по-умолчанию)");
юТест.ПроверитьРавенство(ЭкранироватьПереводыСтрок(Ч.ПрочитатьСтроку()), "789789789");

Ч.Закрыть();
Expand Down
2 changes: 1 addition & 1 deletion tests/text-write.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -274,7 +274,7 @@
Текст.Открыть(ПутьФайла,"UTF-8");
Стр = Текст.Прочитать();

юТест.ПроверитьРавенство(6, КоличествоСтрок);
юТест.ПроверитьРавенство(10, КоличествоСтрок);
юТест.ПроверитьРавенство(125, СтрДлина(Стр));

КонецПроцедуры
Expand Down