PL/SQL用「+」分割一個字符串並對其中的數字求和？

Question

CREATE OR REPLACE FUNCTION sumNumbers(p VARCHAR2) RETURN NUMBER IS 

... 

SELECT sumNumbers('3 + 6 + 13 + 0 + 1') FROM dual; 

所以輸出應該是：23

Answer 1

您可以使用一個 '竅門' 與XML和XPath評估要做到這一點，而無需手動tokenising字符串：

select * from xmltable('3 + 6 + 13 + 0 + 1' columns result number path '.'); 

    RESULT 
---------- 
     23 

或者：

select to_number(xmlquery('3 + 6 + 13 + 0 + 1' returning content).getStringVal()) as result 
from dual; 

    RESULT 
---------- 
     23 

這是作爲其他運營商可以使用更靈活：

select * from xmltable('2 * (5 + 7) - 3' columns result number path '.'); 

    RESULT 
---------- 
     21 

使用正常/運營商，雖然它不喜歡分裂，你需要使用div代替，所以你可能需要做您的源字符串替換，如果它可能包含一個斜槓：

select * from xmltable('2 * (5 + 7) div 3' columns result number path '.'); 

    RESULT 
---------- 
     8 

閱讀更多關於Oracle's XPath handling和​​。

你可以直接調用它，而不需要函數;但如果你特別想將其包裝在一個函數這是一個稍微複雜的XPath的必須固定在分析時，那麼你就需要使用動態SQL：

CREATE OR REPLACE FUNCTION sumNumbers(p VARCHAR2) RETURN NUMBER IS 
    l_result NUMBER; 
BEGIN 
    execute immediate q'[select * from xmltable(']' 
    || replace(p, '/', ' div ') 
    || q'[' columns result number path '.')]' 
    into l_result; 

    return l_result; 
END; 
/

SELECT sumNumbers('3 + 6 + 13 + 0 + 1') FROM dual; 

       SUMNUMBERS('3+6+13+0+1') 
--------------------------------------- 
            23 

我用the alternative quoting mechanism避免逃避聲明中的單引號，儘管我不確定它在這裏更清晰。並且我已經包含了replace()以防需要分割，但它不需要那麼直接將p直接連接到SQL語句中。有了替代你可以這樣做：

SELECT sumNumbers('2 * (5 + 7)/3') FROM dual; 

如果你要允許其靈活的功能應該有不同的名稱...

Answer 2

您可以用層次查詢和正則表達式中提取的數字，總結的結果。事情是這樣的：

WITH t AS (
    SELECT '3 + 6 + 13 + 0 + 1' numbers FROM DUAL 
) 
SELECT SUM(TRIM(REGEXP_SUBSTR(numbers,'(?[[:digit:]]+ ?)',1,LEVEL))) 
FROM t 
CONNECT BY LENGTH(SUBSTR(numbers,DECODE(REGEXP_INSTR(numbers,'(?[[:digit:]]+ ?)',1,LEVEL),0,NULL,REGEXP_INSTR(numbers,'(?[[:digit:]]+ ?)',1,LEVEL)))) <= LENGTH(SUBSTR(numbers,DECODE(REGEXP_INSTR(numbers,'(?[[:digit:]]+ ?)',1,LEVEL),0,NULL,REGEXP_INSTR(numbers,'(?[[:digit:]]+ ?)',1,LEVEL)))); 

Answer 3

如果你只是想試用的表達，爲什麼不」你只是 - 好 - 評估它？

FUNCTION sumNumbers(p VARCHAR2) RETURN NUMBER IS 
     l_result NUMBER; 
BEGIN 
     EXECUTE IMMEDIATE 'begin :n := ' || p || '; end;' 
      USING OUT l_result; 
     RETURN l_result; 
END;