Добрый день. Подобных тем не нашел, спрошу в этой. Существует ли возможность отображать данные в txt файле также как в rtf?
Находил много конвертеров, но сконвертированный текст может поплыть, если есть табы в rtf'ке. Как быть и можно ли это побороть как то?
Работу производил в делфи и конвертацию производил посредством компонента TRichEdit и наткнулся на подобную проблему с табами.

И действительно если сформировать к примеру небольшую, ровную табличку с помощью отбивок пробелами и табами в WordPad на win7, то если копирнуть и вставить в NotePad то все форматирование уплывет. Как быть?

Akina, допустим есть сформированный текст в rtf уже. если я ему выставлю моноширинный шрифт, т оформатирование уже поплывет это во первых. Во вторых даже если я сделаю выравнивание по моноширинному шрифту, то при вставке в NotePad все равно все уезжает. Только что попробовал.

Shocker.Pro,

прикрепил rtf файл. Если открыть его в WordPad - все ок. Копирнешь содержимое в NotePad, Word или еще куда - все уедет.

Казанский, да я в курсе. В этом и вопрос, УЖЕ ИМЕЮЩИЙСЯ подобный текст в rtf не перегнать без последствий в txt? Нет способов?

Казанскийнадо следить за текущей позицией символа и добавлять столько пробелов, сколько осталось до следующей позиции табуляции.

Я прошу прощения, но сходу не срастил. Можно подробнее об устройстве плавающей длины таба и его вычисления? Какой нибудь простейший пример алгоритма на словах хотя бы. Пишу на делфи надо как-то вычислять эту штуку и подменять на пробелы.

Нашел формулировку объяснения:

сторонний_форумдопустим 10 пробелов это 1 табуляция. То если ты введешь 4 символа и нажмешь табуляцию то ввод текста будет продолжаться с 11 символа(здесь нужно вставить 6 пробелов), если ты введешь 26 символов и нажмешь табуляцию то будешь печатать с 31 символа(здесь нужно вставить 4 пробела) и так далее.

Это верно?

Казанский, набросал код на делфи. кинул на форму два мемо и кнопку. В один вставляю текст как в выше прикрепленном файле нажимаю кнопку - высчитываю, подменяю и вставляю во второй. Точно алгоритм такой? Или я ошибку допустил? Уплывшее все все равно, но без табов. Длина таба 8 насколько я понимаю по умолчанию?

авторprocedure TForm1.btn1Click(Sender: TObject);
const
TabLength = 8;
var
i, j, Counter, InsertLength: Integer;
s: TStrings;
InsertStr, str: string;
begin
Counter := 0;
InsertLength:= 0;
InsertStr := '';

for i := 0 to Length(edt1.Lines.Text) - 1 do
begin

if (edt1.Text[i] <> #09) then
begin
Counter := Counter + 1; //посчитаем длину между строк табами
end
else
begin
InsertLength := TabLength - ( Counter - ( (Counter mod TabLength) * TabLength));

for j := 0 to InsertLength - 1 do//формируем строку из пробелов:
InsertStr := InsertStr + ' ';

str := edt1.Lines.Text;
Delete(str, i, 1);
Insert (InsertStr, str, i);

edt1.Lines.Text := str;


InsertStr := '';
Counter := Counter - InsertLength + 1; //компенсируем что вставили
InsertLength:= 0;
end;


end;

edt2.Text := edt1.text;
end;

Казанский,

Вычисление длины по логике должно быть такое:

InsertLength := ((Counter div TabLength) + 1) * TabLength - Counter;


Но текст все равно не правильно выравнивается. что - то не учитывается, а что, непонятно.

АП!

Казанский, ghbvth

Казанский, пример сформирован корректно. В общем вариантов пересобрать текст нет?

п.с.
Прошу прощения, выше пост случайно отправился.

АП! Прошу натолкнуть хотя бы куда копать, если есть смысл.