Работа С TXT

[ken8888]

Здравствуйте!
Такая задачи стоит:
Создать программу в pascal'е , чтобы программа открывала текстовый файл, и меняла все + на -, и наоборот. После чего записывала в новый файл.
ПОМОГИТЕ ПЛИЗ!!!

[spamer]

ken8888 ну и что не получается?
Открываешь файл1, идешь в цикле по файлу пока не достигнешь конца, и если встречаешь "+", то меняешь на "-", иначе "-" на "+", и все это пишешь в файл2. В конце закрываешь файл1 и файл2.

[alex_fcsm]

const plus='+';
      minus='-';
var f1,f2:text;
    s:string;
    i:integer;
begin
assign(f1,'c:\1.txt');
reset(f1);
assign(f2,'c:\2.txt');
rewrite(f2);
while not(eof(f1)) do
 begin
   readln(f1,s);
   for i:=1  to length(s) do
    if s[i]=plus then s[i]:=minus
       else if s[i]=minus then s[i]:=plus;
   writeln(f2,s);
 end;
 close(f1);
 close(f2);
 assign(f1,'c:\1.txt');
 Erase(f1);
 Rename(f2,'c:\1.txt');
end.

[ken8888]

alex_fcsm
Cпасибо золотой человек!!!

P.S:
Суть: в файле идут строчки, в каждой строчке по +/-n +/-m
Но попадаются строчки +/-n
Так вот их надо пропускать, тоесть только по 2 символа менять в строке, по одному не надо.
Можно ли такое сделать???
ЗЗЫ. А как поднять репутацию?

[alex_fcsm]

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

P.S:
Суть: в файле идут строчки, в каждой строчке по +/-n +/-m
Но попадаются строчки +/-n
Так вот их надо пропускать, тоесть только по 2 символа менять в строке, по одному не надо.
Можно ли такое сделать???
ЗЗЫ. А как поднять репутацию?

Не понял что надо менять?
+/-n на +/-m?
Репутация - весы под аватаркой

[ken8888]

Пример файла:

+40
8
+50-10
+100+40
-20+40

Сейчас программа меняет все знаки, а надо, чтобы только парами (+50-10) -менять, (+100+40) - тоже
А вот где ( +40 ) не надо.

[alex_fcsm]

Что-то в этом духе

const plus='+';
      minus='-';
var f1,f2:text;
    s:string;
    i,j:integer;
begin
assign(f1,'c:\1.txt');
reset(f1);
assign(f2,'c:\2.txt');
rewrite(f2);
while not(eof(f1)) do
 begin
   readln(f1,s);
   j:=0;
    for i:=1  to length(s) do
    if (s[i]=plus) or (s[i]=minus) then inc(j);
  if j=2 then begin
   for i:=1  to length(s) do
    if s[i]=plus then s[i]:=minus
       else if s[i]=minus then s[i]:=plus;
  end;
   writeln(f2,s);
 end;
 close(f1);
 close(f2);
 assign(f1,'c:\1.txt');
 Erase(f1);
 Rename(f2,'c:\1.txt');
end.

[ken8888]

alex_fcsm
Вот СПАСИБО тебе БОЛЬШОЕ!!!
А то я сижу мучаюсь.

[alex_fcsm]

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

alex_fcsm
Вот СПАСИБО тебе БОЛЬШОЕ!!!
А то я сижу мучаюсь.

кстати скорее всего нужно условие

if j=2 then

поменять на

if j mod 2=0 then

...

[ken8888]

Спасибо, и так норм, просто тут фиксированно либо 1 -\+ либо 2 -/+

И такой вопрос: Я уже сам сделаю как путь задавать,менять. Но а можно например, файлик кидать на .exe и он сам конвертил.
Просто прога, уже написаная не мной будет работать в досе, из-под волковкомандера, и хотелось бы как-то упростить это.
Например выбрали файл в командере, как-нить его оп на вот эту программу. и он сам проконвертил, и сохранил. (наверное вы поняли, что я хотел alex_fcsm )