이성철 wrote:

> 다른 분이 질문을 했는데 답변이 없어서 다시 올립니다.

> ==============================================================

> VB에서 Split()와 유사한 함수가 있는지 궁금합니다.

> 참고로 Split() 함수는

> 지정된 하위 문자열의 개수를 포함하는 0을 기수로 하는 1차원 배열입니다.

> e.g) s = '123 456'

> t = split(s," ")

> t(0) = "123"

> t(1) = "456' 의 내용이 출력됩니다.

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

이 function 을 사용하시면 될겁니다.

잘 만들어 놓았더라구요...

아래 심동훈님이 만드신것 같은데..

저도 잘 쓰고 있습니다...



SubStr 함수...(비베의 Split과 비슷)



안녕하세요?

델파이세상(http://www.freechal.com/delphiworld)심동훈입니다.



function SubStr(Str:string;const Position:integer;const Delimiter:string=','):string;

var

Strlen,ZeichenIdx,SubIdx,kompos:integer;

begin

Result:='';

Str:=Str+Delimiter;

StrLen:=Length(Str);

ZeichenIdx:=1;

SubIdx:=1;

While ZeichenIdx<=StrLen do

begin

KomPos:=Pos(Delimiter,Str);

if KomPos<>0 then

begin

if SubIdx=Position then

begin

result:=Copy(Str,1,KomPos-1);

break;

end;

delete(Str,1,KomPos);

inc(SubIdx);

end;

inc(ZeichenIdx);

end;

end;



...



사용법

SubStr('심/동/훈',2,'/')

결과는 '동'