#8

※2011.12.26 追記　最近のバージョンでは標準で用意されてるようです。コメントで教えて頂きました。

わかりやすさを優先してストアドファンクションにしていますが、パッケージにして、静的な変数を使ったほうが当然パフォーマンスはあがると思います。これは、Oracle9iで動くことは確認しました。

全角のアルファベット、数字を半角にする

CREATE OR REPLACE FUNCTION alnum2han(str in VARCHAR2) RETURN VARCHAR2
IS
tmp varchar2(2000);
BEGIN
tmp := translate(
str,
'１２３４５６７８９０ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ',
'1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
);
RETURN tmp;
END alnum2han;
/
select alnum2han('１２３４５６７８９０ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ') from dual;

全角のアルファベット、数字を半角にして、半角カナを全角にして、他の記号もいい感じにする

CREATE OR REPLACE FUNCTION hanzen(str in VARCHAR2) RETURN VARCHAR2
IS
tmp varchar2(2000);
BEGIN
tmp := alnum2han(han2zen(str));
tmp := translate(
tmp,
'｜＝＋?／＠！”’＃＄％＆；：　',
'|=+-/@!"''#$%&;: '
);
RETURN tmp;
END hanzen;
/
select hanzen('　ｨｧァィ＜＞<>；：”（）＝！％＄＃’ｱｲｳｴｵｶ｜＝＋?／＠！”’＃＄％＆（）；：［］【】〔〕＜＞￥＾ｷｸｹｺｻﾞｽﾞｿﾞざずぞザズダド１２３４５６７８９０ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ') from dual;