# Prog. Version..: '5.10.12-10.02.03(00002)' #
#
# Library name...: ccl_pos
# Descriptions...: 傳入字串以及要比對的文字,傳回開始的位置,如果位置=0 表示不存在
# Input parameter: p_str1,p_str2
# RETURN code....: 字串的位置(0 字串不存在)
#
# Usage .........: if ccl_pos(p_str1,p_str2)
# Date & Author..: 2010/09/23 By Darren Shen
# Revise record..:
DATABASE ds #FUN-6C0017
GLOBALS "../../config/top.global"
FUNCTION ccl_pos(p_str1,p_str2)
DEFINE l_pos integer
DEFINE l_str base.StringBuffer
define p_str1, p_str2 string
LET l_str = base.StringBuffer.create()
CALL l_str.append(p_str1)
LET l_pos = l_str.getIndexof(p_str2,1)
RETURN l_pos
END FUNCTION
沒有留言:
張貼留言