CREATE OR REPLACE FUNCTION chi2num(chivalue IN VARCHAR2) RETURN NUMBER IS

創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于網(wǎng)站設計、成都網(wǎng)站建設、峨眉山網(wǎng)絡推廣、微信小程序定制開發(fā)、峨眉山網(wǎng)絡營銷、峨眉山企業(yè)策劃、峨眉山品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們大的嘉獎；創(chuàng)新互聯(lián)為所有大學生創(chuàng)業(yè)者提供峨眉山建站搭建服務，24小時服務熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

 TYPE MAP IS TABLE OF BINARY_INTEGER INDEX BY VARCHAR2(10);
 ling_jiu_map  MAP;
 shibaiqian_map MAP;
 wanyizhao_map MAP;
 --臨時變量
 i           INT := 0; --'臨時變量
 k           INT := 0; --臨時變量
 x           INT := 0; --臨時變量
 str         VARCHAR2(100) := ''; --臨時變量
 tmp         INT := 0; --臨時變量
 tmp2        INT := 0; --臨時變量
 integer_part VARCHAR2(100) := ''; --數(shù)字形式整數(shù)部分
 float_part  VARCHAR2(100) := ''; --數(shù)字形式小數(shù)部分
 returnvalue NUMBER := 0; --返回值
BEGIN
 --初始化數(shù)組
 ling_jiu_map('零') := 0;
 ling_jiu_map('一') := 1;
 ling_jiu_map('二') := 2;
 ling_jiu_map('三') := 3;
 ling_jiu_map('四') := 4;
 ling_jiu_map('五') := 5;
 ling_jiu_map('六') := 6;
 ling_jiu_map('七') := 7;
 ling_jiu_map('八') := 8;
 ling_jiu_map('九') := 9;
 shibaiqian_map('') := 0;
 shibaiqian_map('十') := 1;
 shibaiqian_map('百') := 2;
 shibaiqian_map('千') := 3;
 wanyizhao_map('') := 0;
 wanyizhao_map('萬') := 1;
 wanyizhao_map('億') := 2;
 wanyizhao_map('兆') := 3;

 str := REGEXP_REPLACE(chivalue, '^十', '一十');
 str := REGEXP_REPLACE(str, '零十', '零一十');
 --將數(shù)字拆分為整數(shù)與浮點數(shù)兩個數(shù)字數(shù)組
 i := INSTR(str, '點', 1);

 IF i = 0 THEN
   integer_part := SUBSTR(str, 1);
 ELSE
   integer_part := SUBSTR(str, 1, i - 1);
   float_part  := SUBSTR(str, i + 1);
 END IF;

 --整型部分
 x   := LENGTH(integer_part);
 str := '';
 tmp := 0;
 tmp2 := 0;

 FOR k IN 1 .. x LOOP
   str := SUBSTR(integer_part, k, 1);

   IF str IN ('萬', '億', '兆') THEN
     --當碰到萬億兆時
     tmp        := tmp + tmp2;
     returnvalue := returnvalue + tmp * POWER(10000, wanyizhao_map(str));
     tmp        := 0;
     tmp2       := 0;
   ELSIF str IN ('十', '百', '千') THEN
     --當碰到十百千時
     tmp := tmp + tmp2 * POWER(10, shibaiqian_map(str));
     tmp2 := 0;
   ELSE
     --當碰到數(shù)字時
     tmp2 := ling_jiu_map(str);
   END IF;
 END LOOP;

 --最后將沒有小于萬位數(shù)加到整數(shù)中去
 tmp        := tmp + tmp2;
 returnvalue := returnvalue + tmp;

 IF float_part IS NOT NULL THEN
   --計算小數(shù)部分
   k  := 0;
   tmp := '';

   FOR k IN 1 .. LENGTH(float_part) LOOP
     tmp := tmp || ling_jiu_map(SUBSTR(float_part, k, 1));
   END LOOP;

   returnvalue := returnvalue || '.' || tmp;
 END IF;

 RETURN returnvalue;
END;

另外有需要云服務器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

網(wǎng)頁題目：oracle中文數(shù)字轉(zhuǎn)阿拉伯數(shù)字-創(chuàng)新互聯(lián)
瀏覽地址：http://weahome.cn/article/deigjo.html