DelChobo 님이 쓰신 글 :
: 06 | 01 | 10 | 78 | 53 | KMR |
: 06 | 02 | 20 | 24 | 92 | KMR |
: 06 | 03 | 30 | 34 | 14 | KMR |
: 06 | 04 | 40 | 43 | 78 | KMR |
:
: 이렇게 저장된 파일을 공백하고 ' | ' 을 빼고
:
: integer 형으로 저장을 하고 싶은데요..
:
: 어떻게 하는건지 좀 알려주세요...
:
: 제가 초보이니.. 너무 쉬운 질문이라고 .. 지나가시지 마시고요.. ^^;;

이제 델초보 라는 영문 닉도 등장했군요. ㅎㅎ

출근 일찍한 틈을 타서 작성해봤습니다.

폼에 메모장 2개 버튼 1개 놓으시고 버튼 클릭 이벤트에 아래와 같이 작성하세요.

Memo1에 델초보님이 제시한 데이터가 들어있고 Memo2는 결과 값이 들어갈 곳입니다.

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: String;
  sl: TStringList;
begin

  sl := TStringList.Create;

  for i:=0 to Memo1.Lines.Count -1 do
    begin

      s := Memo1.Lines.Strings[i];
      // 공백 제거
      s := StringReplace(s,' ','',[rfReplaceAll]);
      // 구분자 제거
      ExtractStrings(['|'], [' '], PChar(s), sl);

      // KMR 제거하기...
      for j:=0 to sl.Count -1 do
        begin
          // 값이 KMR 이라면 건너뛴다.
          if ( sl.Strings[j] = 'KMR' ) then Continue;
          // 결과값 넣기
          Memo2.Lines.Add(sl.Strings[j]);
        end;

    end;

  sl.Free;
end;


샘플을 첨부하니 참고하세요.