v_source_string      varchar2(2000);
  v_separator_position integer; --分割符位置
  v_source_length      integer; --要分割的字符串的长度
  v_separator_length   integer; --分割符的长度
  v_result             TABLETYPE_VARCHAR2 := TABLETYPE_VARCHAR2();
  v_subset             varchar2(2000);
  v_count              integer := 0;
begin
  if trim(var_separator) is null then
    raise_application_error(-20001, '必须输入分割符！');
  end if;
  v_source_string := trim(var_source_string);
  --判断分割符的位置
  v_separator_position := instr(v_source_string, var_separator);
  --分隔符的长度
  v_separator_length := length(var_separator);
  --源分割字符串的长度
  v_source_length := length(var_source_string);
  --源字符串最后必须有分隔符
  if substr(v_source_string,
            v_source_length - v_separator_length + 1,
            v_separator_length) <> var_separator then
    raise_application_error(-20002,
                            '''' || v_source_string || '''字符串最后必须有分隔符！');
  end if;
  while v_separator_position > 0 loop
    --截取分割后的字符串
    v_subset := substr(v_source_string, 1, v_separator_position - 1);
    if trim(v_subset) is not null then
      v_result.extend; --数组添加一个空下标
      v_result(v_result.last) := v_subset; --为数组最后一位赋值
    end if;