|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#26
|
||||
|
||||
Код:
procedure TForm1.Button1Click(Sender: TObject); function CopyFromTo(S: String; C: Char; BeginPos, EndPos: Integer): String; function NumPos(S: String; C: Char; Num: Integer): Integer; var i, CurPos: Integer; begin CurPos:=0; Result:=0; for i:=1 to Length(S) do begin if S[i] = C then Inc(CurPos); if CurPos = Num then begin Result:=i; Break; end; end; end; begin Result:=Copy(S, NumPos(S, C, BeginPos) + 1, NumPos(S, ',', EndPos) - NumPos(S, ',', BeginPos) - 1); end; var TmpStr: String; begin AssignFile(Input, 'f.txt'); Reset(Input); AssignFile(Output, 'result.txt'); Rewrite(Output); while not Eof(Input) do begin Readln(Input, TmpStr); Writeln(Output, CopyFromTo(TmpStr, ',', 2, 3)); end; CloseFile(Input); CloseFile(Output); end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |