01.08.2008, 11:44
|
|
Продвинутый
|
|
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
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;
function CopyFromTo(S: String; C: Char; BeginPos, EndPos: Integer): String;
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, 'num.txt');
Rewrite(Output);
AssignFile(ErrOutput, 'price.txt');
Rewrite(ErrOutput);
while not Eof(Input) do
begin
Readln(Input, TmpStr);
Writeln(Output, CopyFromTo(TmpStr, ',', 2, 3));
Writeln(ErrOutput, Copy(TmpStr, Pos('№', TmpStr) + 1, NumPos(TmpStr, ',', 7) - Pos('№', TmpStr) - 1));
Writeln(ErrOutput, Copy(TmpStr, Pos(': ', TmpStr) + 2, NumPos(TmpStr, ',', 9) - Pos(': ', TmpStr) - 2));
end;
CloseFile(Input);
CloseFile(Output);
CloseFile(ErrOutput);
end;
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|