oracle中字符串分解为数组并遍历数组插入表中代码,PLSQL代码库,德仔网

代码语言
代码分类
【PLSQL】 oracle中字符串分解为数组并遍历数组插入表中
作者:Dezai.CN / 发布于2012/5/9/ 597
oracle中字符串分解为数组并遍历数组插入表中
<div>
1、定义一个自定义类型
<div class="cnblogs_code">
<pre><span style="color: rgb(0, 0, 255);">CREATE</span> <span style="color: rgb(128, 128, 128);">OR</span> <span style="color: rgb(255, 0, 255);">REPLACE</span> TYPE ty_str_split <span style="color: rgb(0, 0, 255);">IS</span> <span style="color: rgb(0, 0, 255);">TABLE</span> <span style="color: rgb(0, 0, 255);">OF</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span> (<span style="color: rgb(128, 0, 0); font-weight: bold;">4000</span>);</pre>
</div>
2、定义一个函数
<div class="cnblogs_code">
<div class="cnblogs_code_toolbar"></div>
<pre><span style="color: rgb(0, 0, 255);">CREATE</span> <span style="color: rgb(128, 128, 128);">OR</span> <span style="color: rgb(255, 0, 255);">REPLACE</span> <span style="color: rgb(0, 0, 255);">FUNCTION</span> fn_split (p_str <span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span>, p_delimiter <span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span><span style="color: rgb(0, 0, 0);">)       </span><span style="color: rgb(0, 0, 255);">RETURN</span><span style="color: rgb(0, 0, 0);"> ty_str_split PIPELINED </span><span style="color: rgb(0, 0, 255);">IS</span><span style="color: rgb(0, 0, 0);">       j </span><span style="color: rgb(0, 0, 255);">INT</span> :<span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(128, 0, 0); font-weight: bold;">0</span><span style="color: rgb(0, 0, 0);">;     i </span><span style="color: rgb(0, 0, 255);">INT</span> :<span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(128, 0, 0); font-weight: bold;">1</span><span style="color: rgb(0, 0, 0);">;     </span><span style="color: rgb(255, 0, 255);">len</span> <span style="color: rgb(0, 0, 255);">INT</span> :<span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(128, 0, 0); font-weight: bold;">0</span><span style="color: rgb(0, 0, 0);">;     len1 </span><span style="color: rgb(0, 0, 255);">INT</span> :<span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(128, 0, 0); font-weight: bold;">0</span><span style="color: rgb(0, 0, 0);">;     </span><span style="color: rgb(255, 0, 255);">str</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span> (<span style="color: rgb(128, 0, 0); font-weight: bold;">4000</span><span style="color: rgb(0, 0, 0);">); </span><span style="color: rgb(0, 0, 255);">BEGIN</span>
      <span style="color: rgb(255, 0, 255);">len</span> :<span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);"> LENGTH (p_str);     len1 :</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);"> LENGTH (p_delimiter);        </span><span style="color: rgb(0, 0, 255);">WHILE</span> j <span style="color: rgb(128, 128, 128);"><</span> <span style="color: rgb(255, 0, 255);">len</span><span style="color: rgb(0, 0, 0);">       LOOP           j :</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);"> INSTR (p_str, p_delimiter, i);            </span><span style="color: rgb(0, 0, 255);">IF</span> j <span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(128, 0, 0); font-weight: bold;">0</span>
          <span style="color: rgb(0, 0, 255);">THEN</span><span style="color: rgb(0, 0, 0);">               j :</span><span style="color: rgb(128, 128, 128);">=</span> <span style="color: rgb(255, 0, 255);">len</span><span style="color: rgb(0, 0, 0);">;             </span><span style="color: rgb(255, 0, 255);">str</span> :<span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);"> SUBSTR (p_str, i);             </span><span style="color: rgb(0, 0, 255);">PIPE</span> ROW (<span style="color: rgb(255, 0, 255);">str</span><span style="color: rgb(0, 0, 0);">);                </span><span style="color: rgb(0, 0, 255);">IF</span> i <span style="color: rgb(128, 128, 128);">>=</span> <span style="color: rgb(255, 0, 255);">len</span>
              <span style="color: rgb(0, 0, 255);">THEN</span>
                <span style="color: rgb(0, 0, 255);">EXIT</span><span style="color: rgb(0, 0, 0);">;             </span><span style="color: rgb(0, 0, 255);">END</span> <span style="color: rgb(0, 0, 255);">IF</span><span style="color: rgb(0, 0, 0);">;           </span><span style="color: rgb(0, 0, 255);">ELSE</span>
            <span style="color: rgb(255, 0, 255);">str</span> :<span style="color: rgb(128, 128, 128);">=</span> SUBSTR (p_str, i, j <span style="color: rgb(128, 128, 128);">-</span><span style="color: rgb(0, 0, 0);"> i);             i :</span><span style="color: rgb(128, 128, 128);">=</span> j <span style="color: rgb(128, 128, 128);">+</span><span style="color: rgb(0, 0, 0);"> len1;             </span><span style="color: rgb(0, 0, 255);">PIPE</span> ROW (<span style="color: rgb(255, 0, 255);">str</span><span style="color: rgb(0, 0, 0);">);         </span><span style="color: rgb(0, 0, 255);">END</span> <span style="color: rgb(0, 0, 255);">IF</span><span style="color: rgb(0, 0, 0);">;     </span><span style="color: rgb(0, 0, 255);">END</span><span style="color: rgb(0, 0, 0);"> LOOP;        </span><span style="color: rgb(0, 0, 255);">RETURN</span><span style="color: rgb(0, 0, 0);">; </span><span style="color: rgb(0, 0, 255);">END</span> fn_split;</pre>
<div class="cnblogs_code_toolbar"></div>
</div>
3、字符串数组的应用
<div class="cnblogs_code">
<div class="cnblogs_code_toolbar"></div>
<pre><span style="color: rgb(0, 128, 128);">/*</span><span style="color: rgb(0, 128, 128);">   description:车机联控下发到责任单位   </span><span style="color: rgb(0, 128, 128);">*/</span>
  <span style="color: rgb(0, 0, 255);">PROCEDURE</span><span style="color: rgb(0, 0, 0);"> CJLK_UNIT_DOWN(             P_ERRCD </span><span style="color: rgb(128, 128, 128);">IN</span> OUT <span style="color: rgb(0, 0, 255);">NUMBER</span><span style="color: rgb(0, 0, 0);">,             P_ERRMSG </span><span style="color: rgb(128, 128, 128);">IN</span> OUT <span style="color: rgb(0, 0, 255);">VARCHAR2</span><span style="color: rgb(0, 0, 0);">,             P_CJLK_XH </span><span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span><span style="color: rgb(0, 0, 0);">,             P_JSDWBH </span><span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span><span style="color: rgb(0, 0, 0);">,             P_JSDWMC </span><span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR2</span><span style="color: rgb(0, 0, 0);">,             P_ZT </span><span style="color: rgb(128, 128, 128);">IN</span> <span style="color: rgb(0, 0, 255);">VARCHAR</span> <span style="color: rgb(0, 0, 255);">DEFAULT</span> <span style="color: rgb(255, 0, 0);">'</span><span style="color: rgb(255, 0, 0);">A</span><span style="color: rgb(255, 0, 0);">'</span><span style="color: rgb(0, 0, 0);">             )</span><span style="color: rgb(0, 0, 255);">AS</span>
    <span style="color: rgb(0, 0, 255);">CURSOR</span> L_JSDWBH <span style="color: rgb(0, 0, 255);">IS</span> <span style="color: rgb(0, 0, 255);">SELECT</span> <span style="color: rgb(128, 128, 128);">*</span> <span style="color: rgb(0, 0, 255);">FROM</span> <span style="color: rgb(0, 0, 255);">TABLE</span> (<span style="color: rgb(255, 0, 255);">CAST</span> (FN_SPLIT(P_JSDWBH,<span style="color: rgb(255, 0, 0);">'</span><span style="color: rgb(255, 0, 0);">;</span><span style="color: rgb(255, 0, 0);">'</span>) <span style="color: rgb(0, 0, 255);">AS</span><span style="color: rgb(0, 0, 0);"> ty_str_split));     </span><span style="color: rgb(0, 0, 255);">BEGIN</span><span style="color: rgb(0, 0, 0);">       P_ERRCD:</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(128, 0, 0); font-weight: bold;">0</span><span style="color: rgb(0, 0, 0);">;       P_ERRMSG:</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(255, 0, 0);">''</span><span style="color: rgb(0, 0, 0);">;       </span><span style="color: rgb(0, 0, 255);">UPDATE</span> AQGL.CJLK <span style="color: rgb(0, 0, 255);">SET</span> JSDWBH<span style="color: rgb(128, 128, 128);">=</span>P_JSDWBH,JSDWMC<span style="color: rgb(128, 128, 128);">=</span>P_JSDWMC,ZT<span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(255, 0, 0);">'</span><span style="color: rgb(255, 0, 0);">B</span><span style="color: rgb(255, 0, 0);">'</span> <span style="color: rgb(0, 0, 255);">WHERE</span> XH<span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);">P_CJLK_XH;       </span><span style="color: rgb(0, 0, 255);">FOR</span> I <span style="color: rgb(128, 128, 128);">IN</span><span style="color: rgb(0, 0, 0);"> L_JSDWBH LOOP         </span><span style="color: rgb(0, 0, 255);">INSERT</span> <span style="color: rgb(0, 0, 255);">INTO</span><span style="color: rgb(0, 0, 0);"> AQGL.CJLK_DWFK (XH,PID,JSDWBH,JSDWMC,ZT)         </span><span style="color: rgb(0, 0, 255);">VALUES</span><span style="color: rgb(0, 0, 0);"> (sys_guid(),P_CJLK_XH,I.COLUMN_VALUE,GET_DWMC(i.column_value),P_ZT);       </span><span style="color: rgb(0, 0, 255);">END</span><span style="color: rgb(0, 0, 0);"> LOOP;       </span><span style="color: rgb(0, 0, 255);">COMMIT</span><span style="color: rgb(0, 0, 0);">;       EXCEPTION         </span><span style="color: rgb(0, 0, 255);">WHEN</span> OTHERS <span style="color: rgb(0, 0, 255);">THEN</span>
          <span style="color: rgb(0, 0, 255);">ROLLBACK</span><span style="color: rgb(0, 0, 0);">;           P_ERRCD:</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);">SQLCODE;           P_ERRMSG:</span><span style="color: rgb(128, 128, 128);">=</span><span style="color: rgb(0, 0, 0);">SQLERRM;     </span><span style="color: rgb(0, 0, 255);">END</span>;</pre>
<div class="cnblogs_code_toolbar"></div>
</div>
其中P_JSDWBH包含了多个用;分隔的字符串。
</div>
评论列表
本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
　字符串　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)