NAD+CZ+++发货人1+发货人2:发货人3:发货人4:发货人5'
发货人1（35）：shipper；发货人的前35个字符（小于等于35个字符）
发货人2~5（35）：以35个字符（小于等于35个字符）为一段，对发货人进行分割；需要保持单词的完整性，
保持数值的完整性；
若发货人超长（大于35*5个字符），则在品名的后面添加 “*超长的发货人信息”
我们平常对字符串的分割都会给出分割的特殊符号,而它要求的则是要根据长度,和保持单词完整性和数值的完整性,
比如一字符串:”this is a test string ” 现在要求是每5个字符为一段,则分割出来的应该是:this : is a : test: string”也就是说任一单词不能被分割开.如果超过了,则取前面完整的单词,如果不足,则拼凑单词.
最关键的是把要分割的字符串分割出其完整的单词,(用数组来保存,ORACLE中可以定义数组变量).
自己写了个函数(oracle中的函数:D).代码贴在下面.
CREATE OR REPLACE FUNCTION FUC_PRATITION_STR
( PI_PARTITION_STR IN VARCHAR2
, PI_PARTITION_LEN IN INT --分割的长度
, PI_GET_PARTITION IN INT --取分割第几段的字符
) RETURN VARCHAR2
AS
BEGIN
DECLARE TYPE WORD_PARTITION IS TABLE OF VARCHAR2(32767)
INDEX BY BINARY_INTEGER;
V_WORD_PARTITION WORD_PARTITION;
V_WORD_SECTION WORD_PARTITION;
V_INDEX INT := 0;
V_START INT := 0;
V_FILTER_STR VARCHAR2(4000);
V_COUNT INT := 0;
V_NUM INT := 1;
V_WORD VARCHAR2(1000) := ' ';
V_IND INT := 0;
BEGIN
--分割字符串，保证单词完整性和数据完整性。
V_FILTER_STR := LTRIM(RTRIM(PI_PARTITION_STR));
IF( V_FILTER_STR IS NOT NULL) THEN
WHILE(V_FILTER_STR IS NOT NULL) LOOP
V_INDEX := INSTR(V_FILTER_STR,' ');
IF(V_INDEX > 0) THEN
V_WORD_PARTITION(V_COUNT) := SUBSTR(V_FILTER_STR,V_START,V_INDEX);
V_FILTER_STR :=RTRIM(LTRIM(SUBSTR(V_FILTER_STR,V_INDEX+1,LENGTH(V_FILTER_STR)- V_INDEX+1)));
ELSE
V_WORD_PARTITION(V_COUNT) := V_FILTER_STR;
V_FILTER_STR := '';
END IF;
V_COUNT := V_COUNT + 1;
END LOOP;
END IF;
--拼凑字符串使之满足一定的长度
IF V_WORD_PARTITION.COUNT = 1 THEN
V_WORD_SECTION(0) := V_WORD_PARTITION(0);
ELSE
FOR V_NUM IN 0..V_WORD_PARTITION.COUNT-1 LOOP
IF(V_NUM = V_WORD_PARTITION.COUNT -1) THEN
V_WORD_SECTION(V_IND) := V_WORD_PARTITION(V_NUM);
ELSE IF((LENGTH(REPLACE(V_WORD_PARTITION(V_NUM),' '))+LENGTH(V_WORD_PARTITION(V_NUM+1))) > PI_PARTITION_LEN) THEN
V_WORD_SECTION(V_IND) := V_WORD_PARTITION(V_NUM);
V_IND := V_IND + 1;
ELSE
V_WORD := V_WORD_PARTITION(V_NUM) ||' '||V_WORD_PARTITION(V_NUM+1);
V_WORD_PARTITION(V_NUM +1) := V_WORD;
END IF;
END IF;
END LOOP;
END IF;
-- GET THE SECTION WORD YOU WANT
IF(PI_GET_PARTITION < V_WORD_SECTION.COUNT) THEN
RETURN V_WORD_SECTION(PI_GET_PARTITION);
ELSE RETURN '';
END IF;
END;
END FUC_PRATITION_STR;
/
