Тестовые Файлы

[Ranger]

Помогите написать начинаещиму программисту
Программу по текстовому файлам.
Штобы она удаляла во всех строках Пробелы и запетые.
зарание спасибо!

[Hollander]

Короч открываешь файл, проходишь посимвольно и смотришь твой ли символ для удаления и удаляешь. Потом сохраняешь то что осталось.

[Ranger]

Сообщение от Hollander

Короч открываешь файл, проходишь посимвольно и смотришь твой ли символ для удаления и удаляешь. Потом сохраняешь то что осталось.

я так тоже предложил но в палитехе мне сказали программу делать ><

[Hollander]

Ты же начинающий программист, начни, а остальные тебе обязательно помогут.

[Ranger]

program del;
uses Crt;
var
te1,te2 :text;
st,st1 :string;
n,i :byte;

begin

ClrScr;
assign(te1, 'te1.txt');
assign(te2, 'te2.txt');
append(te2);
rewrite(te1);
Write('ВВод строки:>);
Readln(st);
writeln(te1,st);
close(te1);
reset(te1);
while not eof (te1) do
begin
readln(te1,st);
Writeln('Исходная строка:');
Writeln(st);
n:=length(st);
st1:='';
for i:=1 to n do
if st[i]<>' ' then st1:=st1+st[i];
Writeln('Строка, не содержащая пробелов:');
Writeln(st1);
writeln(te2,st1);
end;


close(te1) ;
close(te2) ;
readln;
end.

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

[Hollander]

if (st[i]<>' ') and (st[i] <>',') then st1:=st1+st[i];

А чтобы записать в этот же файл, то после всех действий, открывай исходный файл на запись и пиши туда st1

[Ranger]

Спосибо счас попробую

[Ranger]

Сообщение от Hollander

А чтобы записать в этот же файл, то после всех действий, открывай исходный файл на запись и пиши туда st1

неполучается записывается токо одна строка.
а с запетой получилось огромное спасибо.

[Hollander]

Так у тебя же st1 и есть одна строка.
Если ты весь код делаешь в каком-то цикле, то файл открывай на дозапись