파워빌더.공통함수 - Token Parsing2

[ 파워빌더.공통함수 - Token Parsing2 ]

 

☞

입력된 문자열을 구분자로 분리하는 함수입니다. =========================================================================================================== global type f_parsetoken from function_object end type forward prototypes global function integer f_parsetoken (string as_source, string as_token, ref string as_parsingitems[]) end prototypes global function integer f_parsetoken (string as_source, string as_token, ref string as_parsingitems[]);/**************************************************************************************** Function    : f_parseToken [common] Purpose     : 해당문자열의 token을 찾아 문자열을 나누어 array이에 저장하여 넘김 Scope       : public Parameters  : al_source          (string/val)   - 원래의 문자열               as_token           (string/val)   - 문자열안의 분리자               as_parsingitems    (string/ref)   - 나뉘어진 문자열들을 저장하는 배열 Returns      : Description  :                   - 해당문자열의 특수문자열을 찾아 문자열을 나누어 문자배열에 저장                   - 공백을 없애지 않음        Related      : Author       : Date         : Modification:  - 2009.02 : 박기순 : Init ****************************************************************************************/ integer li_start = 1, li_pos = 1, li_idx = 1, li_tokenLen if isNull(as_source)  then  return 0 end if li_tokenLen = lenA(as_token) do while(li_pos <> 0)  li_pos = posA(as_source, as_token, li_start)  if li_pos > 0 then   as_parsingItems[li_idx] = midA(as_source, li_start, li_pos - li_start)   li_start = li_pos + li_tokenLen   li_idx ++  end if loop as_parsingItems[li_idx] = midA(as_source, li_start) return 0 end function