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

[Kio]

В файле блокнота список песен из 7 папок. Мне надо удалить первые 3 цифры слева и заменить _ на пробел около 500 названий. С программированим почти не сталкивался. Подскажите как проще решить такую задачу. Спасибо.
34_LAS_KETCHUP_-_THE_KETCHUP_SONG_SPANGLISH_VERSION

[puporev]

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

Мне надо удалить первые 3 цифры слева

а в примере(если это пример)

34_LAS_KETCHUP

всего две цифры слева.

[Kio]

здраствуйте. там понятно не 3 цифры, а первые 3 знака слева надо удалить.
Язык программирования, у нас в школе паскаль начался. Паскаль значит. Я просто не знаю, как в текстовом редакторе сделать нужную замену или в Excel.
04_ITALIA_SECRET_SERVICE_-_VIA_BEATO_ANGELICO.MP3
05_ELIADES_OCHOA_-_EL_CUARTO_DE_TULA.MP3
06_GADJO_-_BESAME_MUCHO.MP3
07_OLAV_BASOSKI_-_OPIUM_SCUMBAGS.MP3
таких строк примерно 500.

[puporev]

Не понимаю, если нужно один раз изменить данные в файле, то при чем тут программирование. Сделайте это руками.

[The_Darkness]

Если надо именно через паскаль проделать такую операцию тогда примерно так:

Const
 Max_Rec=500//кол-во элементов в файле
Var
 F:Text;
 S:Array[1..Max_Rec]of string;//Если у нас количество записей 500
 I,Ind:Integer;
 Begin
  Assign(F,'Документ.txt');
  Reset(F);
  For I:=1 to Max_Rec do
   Begin
    ReadLn(F,St[I]);
    Delete(St[I],1,3);
    Ind:=Pos('_',St[I]);
    While I<>0 do 
     Begin
      St[I][Ind]:=' ';
      Ind:=Pos('_',St[I]);
     End;
   End;
  Close(F);
  Rewrite(F);
  For I:=1 to Max_Rec do
   WriteLn(F,St[I]);
  Close(F);
 End.

При большом желании можно все в один цикл объеденить.

[puporev]

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

uses crt;
Var
 F,G:Text;
 S:string;
 I:Integer;
 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);
end.
End.

Вот исходный файл:

04_ITALIA_SECRET_SERVICE_-_VIA_BEATO_ANGELICO.MP3
05_ELIADES_OCHOA_-_EL_CUARTO_DE_TULA.MP3
06_GADJO_-_BESAME_MUCHO.MP3
07_OLAV_BASOSKI_-_OPIUM_SCUMBAGS.MP3

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

ITALIA SECRET SERVICE - VIA BEATO ANGELICO.MP3
ELIADES OCHOA - EL CUARTO DE TULA.MP3
GADJO - BESAME MUCHO.MP3
OLAV BASOSKI - OPIUM SCUMBAGS.MP3

[The_Darkness]

Перезаписывать файл, значит его утратить, а вдруг понадобится

Ну нам же вроде надо изменить содержимое файла). А вообще пофиг, и то и то работает =)

[puporev]

А вообще пофиг, и то и то работает =)

Это неверно, Ваш код вообще не работает, т.к. в нем несколько ошибок.
1.Max_Rec=500//нужно поставить ;
S:Array[1..Max_Rec]of string;//в Паскале такой большой массив не потянет, нужно или брать массив порядка 200, или ограничить длину строки, например String[80];
2.

While I<>0 do    
     Begin   
      St[i][Ind]:=' ';   
      Ind:=Pos('_',St[i]);   
     End;

Этот цикл никогда не завершится, т.к. I никогда не будет =0.

[The_Darkness]

Этот цикл никогда не завершится, т.к. I никогда не будет =0.

Очепятался, там Ind а не I =)

Const
 Max_Rec=500;//кол-во элементов в файле
Var
 F:Text;
 St:Array[1..Max_Rec]of string;//Если у нас количество записей 500
 I,Ind:Integer;
 Begin
  Assign(F,'doc.txt');
  Reset(F);
  For I:=1 to Max_Rec do
   Begin
    ReadLn(F,St[i]);
    Delete(St[i],1,3);
    Ind:=Pos('_',St[i]);
    While Ind<>0 do
     Begin
      St[i][Ind]:=' ';
      Ind:=Pos('_',St[i]);
     End;
   End;
  Close(F);
  Rewrite(F);
  For I:=1 to Max_Rec do
   WriteLn(F,St[i]);
  Close(F);
 End.

вот. только что проверил, все работает

[puporev]

Кстати насчет опечаток, объявляете переменную S, по ходу она превращается в St. Когда пишите код для человека, плохо в этом разбирающегося, прогоняйте программу перед тем, как публиковать. Это я все Ваши ошибки сразу вижу, а начинающий будет ломать себе голову, думая, что он там неправильно переписал.