Q&A

  • 특정 문자열에서 한글만 축출할려면..


안녕하세요...

칼라입니다..



다른것이 아니라... 작업 할 일이 생겼는데 너무 막연해서

프로그램을 만들어서 할려구합니다



일단은 텍스트 파일내용중에서 한글만 축출하고 싶습니다..

당연히 텍스트 파일 불러오는 거야 알죠..



근데.. 불러온 내용중에서 한글로 된 글짜만 축출할려규 하는데..

막막하네요...



고수님들의 답을 기다리겠습니다..



그럼 좋은 하루 보내시고... 수고하세요..

2  COMMENTS
  • Profile
    박장용 2001.06.29 09:56
    아래는 제가 이곳에 예전에 올려 놓은 건데요..

    참고 하시기 바랍니다..

    이곳은 저도 자주 애용하느 곳인데요.

    왠만한 자료는 찾으려는 의지만 있으시면..

    (희박한 정보의 경우 좀 머리를 굴려야 합니다..쩝..)

    거의 모든 정보가 있는것 같습니다..

    물론 없는 경우도 있지만요..^^;



    그럼 이만..

    -----------------------------------------------------------------

    델파이에서 한글문자의 앞과 끝을 알수 있는 함수는 ByteType입니다..

    델파이 Help에서 MBCS utilities를 찾으시면 이 함수에 대해서

    그리고 그 리턴값인 TMbcsByteType에 대해서 알 수 있습니다.

    그리고 샘플로 만들어 본건데요.. 저두 기억이 가물가물 해서요..

    자주 쓰지 않는것이라...

    잘 동작 하는군요... 응용하시면 원하시는 것을 만드실 수 있을거라

    생각됩니다...

    그럼 이만....



    procedure TForm1.Button1Click(Sender: TObject);

    begin

    case ByteType(edit1.text, strtoint(edit2.text)) of

    mbSingleByte : Label1.Caption := '이것은 single Byte!';

    mbLeadByte : Label1.Caption := '이것은 한글 앞자리!';

    mbTrailByte : Label1.Caption := '이것은 한글 뒷자리!';

    end;

    end;





    칼라 wrote:

    >

    > 안녕하세요...

    > 칼라입니다..

    >

    > 다른것이 아니라... 작업 할 일이 생겼는데 너무 막연해서

    > 프로그램을 만들어서 할려구합니다

    >

    > 일단은 텍스트 파일내용중에서 한글만 축출하고 싶습니다..

    > 당연히 텍스트 파일 불러오는 거야 알죠..

    >

    > 근데.. 불러온 내용중에서 한글로 된 글짜만 축출할려규 하는데..

    > 막막하네요...

    >

    > 고수님들의 답을 기다리겠습니다..

    >

    > 그럼 좋은 하루 보내시고... 수고하세요..

  • Profile
    칼라 2001.06.29 21:15
    박장용 wrote:

    > 아래는 제가 이곳에 예전에 올려 놓은 건데요..

    > 참고 하시기 바랍니다..

    > 이곳은 저도 자주 애용하느 곳인데요.

    > 왠만한 자료는 찾으려는 의지만 있으시면..

    > (희박한 정보의 경우 좀 머리를 굴려야 합니다..쩝..)

    > 거의 모든 정보가 있는것 같습니다..

    > 물론 없는 경우도 있지만요..^^;

    >

    > 그럼 이만..

    > -----------------------------------------------------------------

    > 델파이에서 한글문자의 앞과 끝을 알수 있는 함수는 ByteType입니다..

    > 델파이 Help에서 MBCS utilities를 찾으시면 이 함수에 대해서

    > 그리고 그 리턴값인 TMbcsByteType에 대해서 알 수 있습니다.

    > 그리고 샘플로 만들어 본건데요.. 저두 기억이 가물가물 해서요..

    > 자주 쓰지 않는것이라...

    > 잘 동작 하는군요... 응용하시면 원하시는 것을 만드실 수 있을거라

    > 생각됩니다...

    > 그럼 이만....

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > case ByteType(edit1.text, strtoint(edit2.text)) of

    > mbSingleByte : Label1.Caption := '이것은 single Byte!';

    > mbLeadByte : Label1.Caption := '이것은 한글 앞자리!';

    > mbTrailByte : Label1.Caption := '이것은 한글 뒷자리!';

    > end;

    > end;

    >

    >

    > 칼라 wrote:

    > >

    > > 안녕하세요...

    > > 칼라입니다..

    > >

    > > 다른것이 아니라... 작업 할 일이 생겼는데 너무 막연해서

    > > 프로그램을 만들어서 할려구합니다

    > >

    > > 일단은 텍스트 파일내용중에서 한글만 축출하고 싶습니다..

    > > 당연히 텍스트 파일 불러오는 거야 알죠..

    > >

    > > 근데.. 불러온 내용중에서 한글로 된 글짜만 축출할려규 하는데..

    > > 막막하네요...

    > >

    > > 고수님들의 답을 기다리겠습니다..

    > >

    > > 그럼 좋은 하루 보내시고... 수고하세요..