한 문자열의 부분 문자열을 추출해 낸다. S 문자열의 Index 위치에서부터 Count 문자분의 부분 문자열이 추출된다. Index가 문자열의 전체 길이보다 길 경우 빈 문자열을 리턴하며 Count가 문자열의 남은 부분보다 클 경우 문자열의 끝까지 추출해 낸다. Dest 문자열이 'Orange'일 경우 Copy(Dest,2,3)은 Dest 문자열의 두 번째 문자에서부터 3문자분의 부분 문자열인 'ran'을 추출해낸다.
일정한 (규칙이 있는) 자료인거 같은데요... ","로 구분되고 다음 "("를 만날때까지 Copy 써서 저장하시면 될건데...
var
Source, Dest, Value: string;
P: Integer;
begin
Source := '원빈(20020809), 김희선(20020807)';
P := Pos(',', Source);
if P <> 0 then
begin
Dest := Copy(Source, P+1, Length(Source) - P);
P := Pos('(', Dest);
Value := Trim(Copy(Dest, 1, P-1));
ShowMessage('결과값 = ' + Value);
end;
end;
1295 특정 문자로 나누기
1294 [답변] 이런것도 있습니다.^^
를 참조하세요.