/******************************************************************************/ //函數名： gf_Split //功能說明：解析分割字符串序列 //輸入參數：1、as_Sequence 待解析的字符序列 // 2。as_Separator 分隔符 //輸出參數：1. as_Str[] 解析後得到的字符串數組（注意參數調用方式） //返回值： 0_成功 -1_失敗 //函數完成：woods //調用關係：本函數爲公共外部函數，可被系統開發的任何地方調用 /******************************************************************************/ Long ll_len //字符長度 long i,j String ls_Sequence String ls_Separator integer li_position
ls_Sequence = as_Sequence ls_Separator= as_Separator
//取字符串長度 ll_len=len(ls_Sequence)
j=1
for i=1 to ll_len li_position=pos(ls_Sequence,ls_Separator,i) if li_position=0 then //沒有找到符合要求的位置 as_Str[j]=mid(ls_Sequence,i,ll_len) exit elseif li_position=1 then //如果第一個位置爲分隔符 else as_Str[j]=mid(ls_Sequence,i,li_position - i) j=j+1 end if i=li_position next
return 0