我认为您可能正在寻找这样的东西:
CREATE OR REPLACe FUNCTION FUBAR_STR(in_str VARCHAR2) RETURN VARCHAR2 AS out_str VARCHAr2(4000) := '';BEGIN FOR i IN 1..LENGTH(in_str) LOOP out_str := out_str || TO_CHAr(ASCIi(SUBSTr(in_str,i,1)) - 55); END LOOP; RETURN out_str;END FUBAR_STR;
因此,当您运行时:
select fubar_str('abcd') from dual;
您会收到:42434445。
这是可逆的,更安全的一种。
CREATE OR REPLACe FUNCTION FUBAR_STR(in_str VARCHAR2) RETURN VARCHAR2 AS out_str VARCHAr2(32676) := '';BEGIN FOR i IN 1..LEAST(LENGTH(in_str),10892) LOOP out_str := out_str || LPAd(TO_CHAr(ASCIi(SUBSTr(in_str,i,1)) - 55),3,'0'); END LOOP; RETURN out_str;END FUBAR_STR;
因此,当您运行时:
select fubar_str('abcd') from dual;
您会得到:042043044045。
而且因为今晚我真的很无聊:
CREATE OR REPLACe FUNCTION UNFUBAR_STR(in_str VARCHAR2) RETURN VARCHAR2 AS out_str VARCHAr2(10892) := '';BEGIN FOR i IN 0..(((LENGTH(in_str) - MOD(LENGTH(in_str),3))/3) - 1) LOOP out_str := out_str || CHR(TO_NUMBER(LTRIm(SUBSTr(in_str,(i * 3) + 1,3),'0')) + 55); END LOOP; RETURN out_str;END UNFUBAR_STR;
因此,当您运行时:
select unfubar_str('042043044045') from dual;
您得到:abcd。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)