파워빌더 구분값으로 텍스트 자르기

http://blog.naver.com/PostView.nhn?blogId=ahnkhoon&logNo=220661845947&categoryNo=246&parentCategoryNo=0&viewDate=¤tPage=1&postListTopCurrentPage=1&from=postView

파워빌더 구분값으로 텍스트 자르기

위 사이트를 참조하여 실행했지만 오류가 있어서 다시 수정한 부분입니다

String ls_text, ls_gubun, ls_msg

Long   ll_i, ll_len, ll_cnt

ls_text = '123;456;789;987;654;321'

ll_cnt = 0

ll_len = Len(ls_text)

ls_gubun = ';'

//:> 구분값 카운트

FOR ll_i = 1 TO ll_len

    IF Mid(ls_text, ll_i, 1) = ls_gubun THEN

        ll_cnt ++

    END IF

NEXT

//:> FOR문을 이용하여 출력

FOR ll_i = 1 TO ll_cnt

    ls_msg = string(wf_search(ls_text,ls_gubun))

    MessageBox('확인', String(ll_i) + '번째 값은 : ' + ls_msg)

NEXT

//--------------------------------------------------------------//

아래는 Funstion 설정추가 입니다.

//--------------------------------------------------------------//

Access : public

Return Type : string

Function Name : wf_search

Pass By : reference

Argument Type : string

Argument Name : as_text

Pass By : value

Argument Type : string

Argument Name : as_gubun

//--------------------------------------------------------------//

아래는 Funstion 내용입니다.

//--------------------------------------------------------------//

Integer li_pos

String ls_return

li_pos = pos(as_text, as_gubun)

IF li_pos > 0 THEN

    ls_return = Left(as_text, li_pos - 1)

    as_text = Mid(as_text, li_pos + 1)

END IF

Return ls_return

아래는 그냥 테스트용이니 안보셔도됩니당

IF li_pos > 0 THEN

    ls_return = Left(as_text, li_pos - 1)

    //as_text = Mid(as_text, li_pos + 1)

END IF

IF li_pos > 0 THEN

    ls_return = Left(as_text, li_pos )

    //as_text = Mid(as_text, li_pos + 1)

END IF

IF li_pos > 0 THEN

    ls_return = Left(as_text, li_pos + 1)

    //as_text = Mid(as_text, li_pos + 1)

END IF