редактирование текста в блокноте.

[Kio]

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

Я бы немного не так сделал. Перезаписывать файл, значит его утратить, а вдруг понадобится. Поэтому лучше записать в новый файл, писанины даже меньше.
Вот исходный файл:

Вот новый файл:

Я как раз хотел так сделать, но не знал как. В коде я половины операторов не знаю. А как запустить программу в Pascal ABC (http://sunschool.math.rsu.ru/) файл на С:\f.txt

[puporev]

Если Вам нужно обязательно в Паскаль АВС, то тут я вам не помогу. Пользуюсь классическим Турбо Паскаль или Делфи. Все АВС и FreePaskal считаю суррогатами и мне жаль времени на их освоение.
Вот пояснения к программе:
Исхожу из того, что исходный файл лежит в одной папке с программой, иначе нужно будет кроме имени указывать полный путь к нему.

uses crt; //модуль для работы с клавиатурой и экраном в Турбо Паскаль
Var
 F,G:Text; //две переменные типа текстовый файл (сдесь и далее все в Турбо Паскаль)
 S:string;  //переменная строкового типа
 I:Integer;  //счетчик целочисленного типа, можно Word
 Begin
  Assign(F,'text.txt');//связываем переменную с существующим файлом
  Reset(F); //открываем файл для чтения
  Assign(G,'text1.txt'); //связываем переменную с именем файла, который будет создан
  Rewrite(G);//открываем его для записи
  while not eof(F) do  //пока не конец файла
   Begin
    ReadLn(F,S); //считываем очередную строку из файла в переменную
    Delete(S,1,3); //удаляем первые три символа
    for i:= 1 to length(s) do //просматриваем строку от первого до последнего символа
	  if s[i]='_' then s[i]:=' ';//если символ знак подчеркивания, заменяем его на пробел
    writeln(G,s);//записываем измененную строку в новый файл
   End;
  Close(F);//закрываем оба файла
  Close(G);
writeln('Fail G zapisan!');//выводим сообщение о том, что файл записан, это больше для понта.
Readln //нажимаем клавишу Enter, программа завершает рабоу. Смотрим новый файл. У меня он будет в одной папке с программой.
end.
End.

[Kio]

Спасибо, спасибо. Всё работает. положило файл в папку C:\PABCWork
если вопросы появятся по паскалю, я ещё спрошу, можно ?
И Вас имя, отчество не написано, напишите пожалуйста, я не знаю как обращаться.

Var
 f,G:Text;
 S:string;
 I:Integer;
 Begin
  Assign(f,'f.txt');
  Reset(f);
  Assign(G,'f1.txt');
  Rewrite(G);
  while not eof(f) do
   Begin
    ReadLn(F,S);
    Delete(S,1,3);
    for i:= 1 to length(s) do
      if s[i]='_' then s[i]:=' ';
    writeln(G,s);
   End;
  Close(F);
  Close(G);
end.

[puporev]

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

[ЛомиК]

А, раз пошла такая пья., тема, а можно както изменить свойства области выделения изменить, чтобы выделялись не все строки от начала и до конца выделенной области, а только то, что находится непосредственно в прямоугольнике выделенной области? Ничего подобного не встречал.
Мне не сам код интересен, я сам факт, кто нить видел такую реализацию? В случае как у автора, это было бы просто, да и работай такая прога со всеми текстовыми приложениями, частенько была бы полезна.

[Stilet]

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

Открой Ворд зажми ALT и выделяй прямоугольником - сам все увидишь.

[ЛомиК]

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

Открой Ворд зажми ALT и выделяй прямоугольником - сам все увидишь.

Незнал, действительно, думаю свою проблему автор темы мог решить имея Ворд...
Благодарю.