不知道最初是谁写的函数了，拿过来记录着，可能以后用的着。

/* 其中in_rowid为行id，in_owner为数据库登陆的帐号名，in_table_name为数据库表名，in_column为数据库对应long类型的表字段名称 */

CREATE OR REPLACE FUNCTION LONG_TO_CHAR( in_rowid rowid,in_owner

varchar,in_table_name varchar,in_column varchar2)

RETURN varchar AS

text_c1 varchar2(32767);

sql_cur varchar2(2000);

--

begin

sql_cur := 'select '||in_column||' from

'||in_owner||'.'||in_table_name||' where rowid =

'||chr(39)||in_rowid||chr(39);

dbms_output.put_line (sql_cur);

execute immediate sql_cur into text_c1;

text_c1 := substr(text_c1, 1, 4000);

RETURN TEXT_C1;

END;