파워빌더/공통함수
파워빌더.공통함수 - Token Parsing2
농부지기
2017. 1. 26. 23:48
[ 파워빌더.공통함수 - 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 |