space4 wrote:

> 예를 들어 한글 세 자리 가 있읍니다.

> **동, **면, **읍, ***동, *면, *읍 ....... > 계속있읍니다.

> 이중에서 제일 끝자리만을 파악해서 동이면 동 , 면이면 면을 뽑아 낼수는 없을까요?

> 부탁합니다. 몇줄안되는 것으로 간단하게 할수있는 방법은 없나요?

>



이재식 Wrote :

안녕하세요?



이런 token분리문제는 하실때 생각을 잘 하셔야 합니다.

컴파일러 방식으로(보통 look up를 1번하는방식이죠...) 문제를 풀것인지,

아님 일반 자료구조의 문자열 찾기 알고리즘으로문제를 풀것인지...

아님 자신만의 그런 어떤 약간의 무대포(?)정신으로 문제를 풀것인지...



저는 위 세가지 방법중 3번째 방식으로 잠시 설명을 드리겠습니다.

제가 보니까, 전에 코딩해달라는 그런 유사 질문을 하시면

많은 분들이 혼을 내더라구요.... ^-^



먼저 폼위에 에디터박스1개를 올려놓고요, 메모컴포넌트 2개를 올려놓습니다.

그런다음 버튼박스를 한개 올려놓습니다.

버튼 클릭 이벤트에 아래처럼 코딩하세요.

procedure TForm1.Button1Click(Sender: TObject);

var

ExtString : string ;

FindComma : Integer ;

CurrString : string ;

begin

CurrString := Trim(Memo1.Lines.Text) ;

ExtString := Trim(Edit1.Text) ;

Memo2.Lines.Clear ;



Repeat

FindComma := pos(',', CurrString) ;

if FindComma > 0 then

begin

if Copy(CurrString, FindComma-2, 2) = ExtString then

Memo2.Lines.Add((Copy(CurrString, 1, FindComma-1))) ;



Delete(CurrString, 1, FindComma) ;

CurrString := Trim(CurrString) ;

end ;

Until (FindComma = 0) ;



if copy(CurrString, Length(CurrString)-1, 2) = ExtString then

Memo2.Lines.Add(CurrString) ;

end;



메모컴포넌트1에는 님께서 말씀하신

**읍, **동, **동, **면, **군, **동 이런식의 데이터를 미리 입력해 두세요.

실행시 에디터박스1에 원하는 것(읍 or 동 or 군)등을 입력하세요.

그런다음 버튼1을 클릭하시면

검색된 내용들이 메모2에 있을 것입니다.



제가 완전히 테스트해보질 않았지만, 잠시 테스트해보았을때

에러는 없었습니다.



위 코딩을 응용하시면 님께서 하시려는 실제적인 의도에 맞는

코딩이 나올 것입니다.



그럼...

space4 wrote:

> 예를 들어 한글 세 자리 가 있읍니다.

> **동, **면, **읍, ***동, *면, *읍 ....... > 계속있읍니다.

> 이중에서 제일 끝자리만을 파악해서 동이면 동 , 면이면 면을 뽑아 낼수는 없을까요?

> 부탁합니다. 몇줄안되는 것으로 간단하게 할수있는 방법은 없나요?

>

답이 될지 모르겠는데

if(copy(sString, length(sString) - 1, 2) = '면') then

begin

어쩌구.....

end

else

begin

어쩌구 저쩌구...

end;



너무 무식한가요...?