Вам необходимо преобразовать множество старых программ для новой версии компилятора. Для...

Question

Вам необходимо преобразовать множество старых программ для новой версии компилятора. Для этого необходимо заменить "->" на "." везде, кроме комментариев. Комментарии в данном языке программирования начинаются с символов "//" и продолжаются до конца строки. Напишите программу, выполняющую такое преобразование. Входной файл содержит от 1 до 500 строк длиной не более 50 символов с ASCII-кодами от 32 до 127 – текст программы, которую нужно преобразовать. В выходной файл вывести преобразованный текст программы.

Пример ввода

Test* t = new Test(); t->a = 1; t->b = 2; t->go(); // a=1, b=2 -> a=2, b=3

Вывод для примера

Test* t = new Test(); t.a = 1; t.b = 2; t.go(); // a=1, b=2 -> a=2, b=3

Comments

var a,b,c:real; i,n:integer;beginreadln(n);if n>0 then beginif n=0 then writeln;for i:=0 to n-2 do begin readln(a,b,c);if (a+b>=c)and(b+c>=a)and(a+c>=b) then writeln('yes')else writeln('no');end;end;writelnend.

---

ошибка у меня через каждые три цифры выводит и цикл должен повторяться пока значение не равно 0

Answer 1

Var  sFile: array of string := System.IO.File.ReadAllLines('in.txt');
  sComm, str2: string;
begin
  foreach str: string in sFile do
  begin
    sComm := System.Text.RegularExpressions.Regex.Matches
      (str, '.*(//.*)').Item[0].Groups[1].Value;
    System.IO.File.AppendAllText('out.txt', String.Format('{0}{1}', sComm.Insert(0, System.Text.RegularExpressions.Regex.Replace(str, '(.*)//.*', '$1').Replace('->', '.')), System.Environment.NewLine));
  end;
end.

Comments

Аццки, знаю

---

Зато работает и довольно лаконично вышло

---

Я пока не знаю, как String.Format заменять, плюс не подходит, запятая - тоже

---

спасибо. сейчас проверю

---

какой язык у меня просто ошибку компиляции выдает

---

на паскале

---

Pascal + .NET

---

Например PascalABC.NET запросто берёт