(转）Oracle中Long和Varchar2数据的相互转换

前几天，公司有人因为一个特别的事情，要把Varchar2转换成long;

这让我们费了不少脑精,Oracle的文档不建议我们用Long类型的数据，但这个家伙愣是用了，莫名其妙；

知道上周这个问题才有了彻底解决;

我分享一个store-procedure 去阐述这个问题;

Create or replace PROCEDURE P_UPDATELOCALPLUS(strMitm in varchar2,strSubITEM in varchar2,strPlant in varchar2)

as

lLocationPlus long;

lLocationPlus01 long;

strLocation varchar2(4000);

strSubLoc varchar2(50);

lTempLoct long;

i number;

Begin

 

  Select location,locationplus into strLocation,lLocationPlus from erpmainbom

  Where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;

 

  If length(strLocation)=4000 then

 

      i:=1;

      strSubLoc:=substr(strLocation,4000,i);

     

      While InStr(strSubLoc, ' ') = 0 Loop

                i := i + 1;

                strSubLoc := substr(strLocation,4000-i,i);

      End Loop;

      --i:=i+1;

      strSubLoc := substr(strLocation,4000-i,i+1);

     

      strLocation := substr(strLocation,1, 4000 - Length(strSubLoc));

     

      lTempLoct:=strSubLoc; 

 

 ---把Varchar2的数据类型直接赋值给Long类型的数据是可以的，但不能超过4000个字节;超过,Oracle会自行截断到4000个;那有人要问了，我多定义几个Varchar2，不就行了?我已经试过,用多定义的合并后的Varchar2还是不能超过4000个；       

   End if;

 

   lLocationPlus:=lTempLoct||lLocationPlus;

 

 ---这个代码的是把long型数据合并,这是可以的,如果把varchar2和long型的数据一起合并，系统会报错;

 

   update erpmainbom set location=strLocation,

                        locationplus=lLocationPlus

      where parentpn=strMitm and pn=strSubITEM  and plant= strPlant;

 

这样的update语句也是没有问题的;用insert也一样;

 

  commit;

 

  EXCEPTION

  When others then

   Rollback;

end;

 

如何把Long型数据转换成Varchar2 呢?

 

用下列语句;

   strLocation =substr( lLocationPlus,1,4000);