интересная программа на паскале

[kaka]

нужно заменить все табуляции в тексте на соответствующее количество пробелов. Суть в том что я в первый ра написал эту прогу так что одна табуляция заменялась на один пробел. но нужно по другому и я не знаю как))) помогите пожалуйста

[D-mon]

А код можно посмотреть?

[kaka]

короче вот что у меня получилось но это не правильно...
Program TabIntoSpace;

var
MyTextFile: Text;
MyNewTextFile: Text;
i: Integer;
S,O: String;

begin
Assign (MyTextFile, 'C:\File2tab.txt');
Assign (MyNewTextFile, 'C:\NewFileS.txt');

Reset(MyTextFile);
Rewrite(MyNewTextFile);
while not EOF(MyTextFile) do
begin
Readln(MyTextFile, S);
for i:=0 to Length(S) do
begin
O[i]:=S[i];
if S[i]=chr(9) then
O[i]:=' ';
end;
WriteLn(MyNewTextFile, O);
end;

Close(MyTextFile);
Close(MyNewTextFile);
end.

[zetrix]

но нужно по другому и я не знаю как)))

И что же нужно? Что в этом исходнике не правильно?

[kaka]

надо чтобы одна табуляция в зависимости от позиции заменялась на соответствующее кооличество пробелов а в исходнике заменяется только на один пробел....

[D-mon]

Program TabIntoSpace;

var
MyTextFile: Text;
MyNewTextFile: Text;
i,j: Integer;
S,O,prom: String;

begin
Assign (MyTextFile, 'C:\File2tab.txt');
Assign (MyNewTextFile, 'C:\NewFileS.txt');

Reset(MyTextFile);
Rewrite(MyNewTextFile);
while not EOF(MyTextFile) do
begin
Readln(MyTextFile, S);
for i:=0 to Length(S) do
begin
O[i]:=S[i];
if S[i]=chr(9) then
prom:='';
for j:=1 to i do prom:=prom+' ';
O[i]:=prom;
end;
WriteLn(MyNewTextFile, O);
end;

Close(MyTextFile);
Close(MyNewTextFile);
end.

Может ты это имел ввиду.

[alexBlack]

Пусть P - позиция символа #09 в строке
N - Следующая позиция после табуляции = ближайшая (кратная 8) + 1
например:
// P - N
// 1 - 9
// 2 - 9
// 3 - 9
// 8 - 9
// 9 - 17
// ...

N := (P-1) div 8 * 8 + 9;

Нужно убрать символ #09 и заменить его C пробелами
C := N-P;

[evg_m]

o:='';
for i=1 to length(s) do // нумерация в строке начинается с 1
if s[i]=#9 then o:=o+copy(' ',1,x) //чему равен x считаем сами
else o:=o+s[i];