Oracle 函式實現動態解析公式字串

阿新 • • 發佈：2019-01-24

在工作當中，需要利用函式實現動態解析公式字串的功能。由於時間有限，以及業務需求，目前不支援一個計算公式中同時出現兩個小括號疊加出現的情況。如a+(b+(c-d))這種情況，但對於類似a+b*(c+d)/e-f*(g-h) 的情況是可以處理的。程式碼如下：

需要注意的是，對於正則匹配，如果寫成 REGEX_SUBSTR(str, '[+]') 的形式，不需要進行轉義，如果寫成 REGEX_SUBSTR(str, '\+') 的形式，則需要轉義。

CREATE OR REPLACE 
FUNCTION FUNC_GET_CALC(in_calc NVARCHAR2) RETURN  NUMBER IS 
 RESULT NUMBER;
BEGIN
       CASE
 --括號出現在字串開頭
          WHEN INSTR(in_calc, '(') =  1 THEN  --括號有可能出現在字串開始、中間、末尾三個地方
           CASE 
							WHEN REGEXP_SUBSTR(in_calc, '[0-9|#]', INSTR(in_calc, '(') + 1)  IS NOT NULL THEN --括號後是指標，暫時不考慮括號後還有括號的情況
								 CASE 
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '+' THEN RETURN ((FUNC_GET_CALC(SUBSTR(in_calc,2,INSTR(in_calc, ')')-2))) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '-' THEN RETURN ((FUNC_GET_CALC(SUBSTR(in_calc,2,INSTR(in_calc, ')')-2))) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ;  --'）'後是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '*' THEN RETURN ((FUNC_GET_CALC(SUBSTR(in_calc,2,INSTR(in_calc, ')')-2))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '/' THEN RETURN ((FUNC_GET_CALC(SUBSTR(in_calc,2,INSTR(in_calc, ')')-2))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+' 
								 END CASE;
           END CASE;
           --括號出現在字串末尾 
					 WHEN INSTR(in_calc, '(') >  1 AND  INSTR(in_calc, ')') = LENGTH(in_calc)  THEN  --括號出現在字串末尾
           CASE 
							WHEN REGEXP_SUBSTR(in_calc, '[0-9|#]', INSTR(in_calc, '(') + 1)  IS NOT NULL  THEN --括號後是指標，暫時不考慮括號後還有括號的情況
								 CASE 
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '+' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 , LENGTH(in_calc)-INSTR(in_calc, '(') - 1 )))) ; --'('前是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '-' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,LENGTH(in_calc)-INSTR(in_calc, '(')  - 1 )))) ;  --'('前是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '*' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,LENGTH(in_calc)-INSTR(in_calc, '(')  - 1 )))) ; --'('前是'+'
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '/' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,LENGTH(in_calc)-INSTR(in_calc, '(')  - 1 )))) ; --'('前是'+' 
								 END CASE;
           END CASE;

--括號出現在字串中間
          WHEN INSTR(in_calc, '(') >  1 AND  INSTR(in_calc, ')') < LENGTH(in_calc)  THEN  --括號出現在字串中間
           CASE 
							WHEN REGEXP_SUBSTR(in_calc, '[0-9|#]', INSTR(in_calc, '(') + 1)  IS NOT NULL  THEN --括號後是指標，暫時不考慮括號後還有括號的情況
								 CASE 
											WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '+' THEN 
                         CASE
													  	WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '+' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '-' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '*' THEN   --存在運算子優先順序的問題，因此需要特殊處理 如2*(2+3)/2+1 , 如果拆分成2 、*、(2+3)、/、2+1 ，五個部分，則結果出錯
																		IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																						CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																		ELSE
																				RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																		END IF;																	
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '/' THEN 
																		IF  REGEXP_INSTR(SUBSTR('in_calc', INSTR('in_calc', ')')+2), '[+|-|*|/|(]') > 0 THEN
																				CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																		ELSE
																				RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																		END IF;	

-- RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) + (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
												 END CASE;
												 			
										WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '-' THEN 
                         CASE
													  	WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '+' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '-' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '*' THEN 
																		IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																					CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																		ELSE
																				RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																		END IF;	

								WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '/' THEN 
																IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																		CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) - (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																ELSE
																		RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																END IF;	
								END CASE;
										 


										WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '*' THEN 
                         CASE
													  	WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '+' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '-' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '*' THEN 
																	IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																				CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																	ELSE
																			RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																	END IF;	
--RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '/' THEN 
																	IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																			CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																	ELSE
																			RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																	END IF;	
					--RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) * (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
												 END CASE;
 
										 WHEN 	SUBSTR(in_calc, INSTR(in_calc, '(') - 1, 1) = '/' THEN 
                         CASE
													  	WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '+' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '-' THEN RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '*' THEN 
																	IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																				CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
																ELSE
																		RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

																END IF;	
--RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
															WHEN 	SUBSTR(in_calc, INSTR(in_calc, ')') + 1, 1) = '/' THEN 
																		IF   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+|-|*|/|(]') > 0 THEN
																				CASE 
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]') -1 )) + FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[+]')  ) ) ) ; --'）'後是'+'
																										
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]') -1 )) - FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\-]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]') -1 )) * FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[\*]')  ) ) ) ; --'）'後是'+'
																						
																						WHEN   REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') > 0  THEN 
																								RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2,  REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]') -1 )) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2 + REGEXP_INSTR(SUBSTR(in_calc, INSTR(in_calc, ')')+2), '[/]')   ) ) ) ; --'）'後是'+'

																				END CASE;	
															ELSE
																	RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'

															END IF;	
--RETURN (FUNC_GET_CALC(SUBSTR(in_calc,1,INSTR(in_calc, '(')-2)) / (FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, '(') + 1 ,(INSTR(in_calc, ')')-INSTR(in_calc, '(')-1)))) / FUNC_GET_CALC(SUBSTR(in_calc,INSTR(in_calc, ')') + 2) )) ; --'）'後是'+'
												 END CASE;
 
								 END CASE;
           END CASE;

  				WHEN INSTR(in_calc, '+') >  0 THEN
					 	RETURN(FUNC_GET_CALC(SUBSTR(in_calc, 1 , INSTR(in_calc, '+') - 1)   ) + FUNC_GET_CALC(SUBSTR(in_calc,  INSTR(in_calc, '+') + 1)  ));  -- ????'+';
          WHEN INSTR(in_calc, '-') >  0 THEN  
								RETURN(FUNC_GET_CALC(SUBSTR(in_calc, 1 , INSTR(in_calc, '-') - 1)  ) - FUNC_GET_CALC(SUBSTR(in_calc,  INSTR(in_calc, '-') + 1)  ));   -- ????'-'
  				WHEN INSTR(in_calc, '*') >  0 THEN  
								RETURN(FUNC_GET_CALC(SUBSTR(in_calc, 1 , INSTR(in_calc, '*') - 1)  ) * FUNC_GET_CALC(SUBSTR(in_calc,  INSTR(in_calc, '*') + 1)  ));   --  ????'*'
  				WHEN INSTR(in_calc, '/') >  0 THEN 
								RETURN(FUNC_GET_CALC(SUBSTR(in_calc, 1 , INSTR(in_calc, '/') - 1)  ) / FUNC_GET_CALC(SUBSTR(in_calc,  INSTR(in_calc, '/') + 1)  ));   --????'/'  
  		 		WHEN INSTR(in_calc, '#') > 0 THEN  
--               RESULT := FUNC_QUERY_VALUE( projID, sampID, REPLACE(in_calc, '#') , startDate );
							RESULT :=  1 ;
							RETURN RESULT;
  			  ELSE  
							RETURN(CAST(in_calc AS NUMBER));
       END CASE;
END;

Oracle 函式實現動態解析公式字串

在工作當中，需要利用函式實現動態解析公式字串的功能。由於時間有限，以及業務需求，目前不支援一個計算公式中同時出現兩個小括號疊加出現的情況。如a+(b+(c-d))這種情況，但對於類似a+b*(c+d)/e-f*(g-h) 的情況是可以處理的。程式碼如下：需要注意的是，對

Oracle自定義函式實現動態引數複製表（使用了自定義type以及pipelined）

（作者：陳玓玏）之前試了一下，想用自定義函式及遊標實現動態傳入引數，確實可以，但是輸出結果總是不能成表格。查了一圈，Oracle自定義函式好像是不能直接在SQL語句中寫create as select和insert into這些功能的，但是後來的版本中提供了

javascript面向物件程式設計--建構函式實現動態構造

在面向物件過程中，構造和析構是類的兩個重要特性，建構函式在物件建立時候呼叫，解構函式在物件銷燬時被呼叫建構函式： function F(x,y){ this.x=x;this.y=y} var f=new F(1,2); alert(f.co

動態解析JSON字串，將資料存入資料庫

我在使用netty時候，由於不同裝置發出的JSON字串不一樣，我需要一個動態解析JSON字串方法去解決，我的思路是先將json字串通過gson這個類轉成map,由於在執行期間無法得知T的具體型別，對這個類的物件進行序列化和反序列化都不能正常進行。Gson通過藉助TypeTok

javascript面向物件程式設計--建構函式實現動態構造

在面向物件過程中，構造和析構是類的兩個重要特性，建構函式在物件建立時候呼叫，解構函式在物件銷燬時被呼叫建構函式： function F(x,y){ this.x=x;this.y=y} var f=new F(1,2); alert(f.construct

Oracle函式，按分隔符擷取字串 [問題點數

今天因工作需要，寫了一個小函式，按分隔符擷取字串的，分享出來，希望有需要的朋友能用到。功能例項： substrbysep('aaa,bb,ccccc,ddd,vvv',',',3)返回結果 'ccccc'.函式：create or replace function sub

除錯經驗——使用自定義函式在Oracle中實現類似LISTAGG函式的行轉列（字串連線）功能

問題描述： LISTAGG函式是一個很實用的函式，但僅在Oracle 11.2以後的版本中才有。生產環境中有個資料庫是Oracle 11.1，需要行轉列，但並不能使用LISTAGG函式。解決方法：參考以下文章： https://oracle-base.com/artic

nginx動態解析的實現

永久 .... 分享局限性 ges 不生效 mar ... 動態更新 1 nginx 的upstream的解析，默認在nginx 啟動後，緩存將永久，除非 -s reload。如: upstrem web_backend {server web1:80;} 在啟動的時候

LeetCode 926. 將字串翻轉到單調遞增遞迴實現動態規劃兩種解法

這個題做了一個多小時，考慮複雜了。開始推動規沒有推出來，然後找到一個遞推關係：從左往右，如果是0，則不需要變動；如果是1，則有兩種選擇（1）將1變為0（2）將1後面的所有數字變為1，這兩種方法中的變動數字最小的方法就是最佳方法，然後依次遞推，很容易寫出遞迴程式。但是這裡面存

Powershell 調用阿裏雲雲解析API 實現動態域名解析

access 沒有 2.3 response 符號 oba res ttl upper 由於阿裏雲解析API調用官方文檔中沒有Powershell的示例腳本，而API接口調用實際是通過向DNS API的服務端地址發送HTTP POST或GET請求，因此根據官方文檔寫了相關的

使用內建函式strtok()函式實現 loadrunner 字串替換

Action(){ /* loadrunner 字串替換 */ char separators[] = "/"; char * token; char * file_path; char * file_path_record; int len_file_path = 0; extern cha

解析配置檔案自動裝配 DataSource + AbstractRoutingDataSource + AOP 實現動態資料來源上：原理解析，解析資料來源

spring boot 自動裝配會通過 spring.datasource.*為我們自動裝配資料來源，所以想要動態的切換資料來源，第一件事是配置資料來源，其次是怎麼切換？最後何時切換？原理解析（使用 AbstractRoutingDataSource 實現） spring-jd

解析配置檔案自動裝配 DataSource + AbstractRoutingDataSource + AOP 實現動態資料來源下：配置動態資料來源，AOP 進行使用

上篇文章中已經藉助 DynamicDataSourceBuilder 類從配置檔案中解析得到了預設資料來源和動態資料來源，接下來需要配置動態資料來源的“本體”，並藉助 AOP 動態的切換資料來源。配置動態資料來源 AbstractRoutingDataSource 實現了 In

c++字串查詢函式實現

int find(const char*str,const char*sub_str) { //這裡就沒有判斷指標是否是NULL了 //保留起始地址以計算位置 const char *temp_str = str; //預設返回結果 int ret = -

實現一個函式來來對目標字串進行校驗，使其滿足以下全部條件

實現一個函式來來對目標字串進行校驗，使其滿足以下全部條件不少於6個字元包含至少一個小寫字母包含至少一個大寫字母包含至少一個數字只能包含大小寫和數字示例： func(“12ABcd”) -->True func(“12ABc”) --&

linux中如何實現動態域名解析

1.什麼是動態域名解析動態域名解析服務，是將使用者的動態IP地址對映到一個固定的域名解析服務上，使用者每次連線網路的時候，客戶端程式就會通過資訊傳遞把該主機的動態IP地址傳送給位於服務商主機上的伺服器程式，服務程式負責提供DNS服務並實現動態域名解析。就是說DDNS捕獲使用者每次變化的IP地址

字串函式實現

#include<stdio.h> #include<string.h> #include <stdlib.h> //int majorityElement(int* nums, int numsSize)//眾數 //{ //int m = numsSi

1.實現一個函式，可以左旋字串中的k個字元。 2.判斷一個字串是否為另外一個字串旋轉之後的字串。

1.實現一個函式，可以左旋字串中的k個字元 ABCD左旋一個字元得到BCDA ABCD左旋兩個字元得到CDAB #include<stdio.h> #include<string.h> void left_move(char*str, int

hive中自定義函式及自定義json字串解析函式

hive中如何定義自己的函式寫一個Java 程式，實現想要的函式功能 1.匯入hive安裝目錄的lib目錄的包 2新建一個類繼承 UDF類 3.過載父類中evaluate方法； 4.寫下自己的邏輯 package test; import

拉窗簾函式（動態列印字串）

1 #include<Windows.h> 2 #include<stdio.h> 3 #include<stdlib.h> 4 #include<string.h> 5 6 int main(){ 7 8 char carta

Oracle 函式實現動態解析公式字串

相關推薦