如何使这个代码动态

我想使这个代码动态的，即代替n_numb number：= 1990如果我输入一个不同的年份，它应该根据你输入的年份执行。如何使这个代码动态

set SERVEROUTPUT ON 

declare 

    v_test varchar2(80) := 'BORN'; 
    n_numb number := 1990; 
begin 

    while v_test <> 'Birthday' 
loop 
     if n_numb = 1991 then v_test := 'Birthday'; 
     end if; 
    dbms_output.put_line (v_test||': '||n_numb); 
    n_numb := n_numb + 1; 
    end loop; 

v_test := 'Playschool'; 
    while n_numb < 1994 AND v_test = 'Playschool' loop 
    dbms_output.put_line (v_test||': '||n_numb); 
     n_numb := n_numb + 1; 
end loop; 

v_test := 'Regularschool'; 
    while n_numb < 2007 AND v_test = 'Regularschool' loop 
    dbms_output.put_line (v_test||': '||n_numb); 
     n_numb := n_numb + 1; 
end loop; 

    v_test := 'Engineering'; 
    while n_numb < 2011 AND v_test = 'Engineering' loop 
    dbms_output.put_line (v_test||': '||n_numb); 
     n_numb := n_numb + 1; 
end loop; 

    v_test := 'SearchingJob'; 
    while n_numb < 2013 AND v_test = 'SearchingJob' loop 
    dbms_output.put_line (v_test||': '||n_numb); 
     n_numb := n_numb + 1; 
end loop; 

    v_test := 'Working'; 
    while n_numb < 2014 AND v_test = 'Working' loop 
    dbms_output.put_line (v_test||': '||n_numb); 
     n_numb := n_numb + 1; 
end loop; 
end;

来源

2017-04-26 Ravi Tej

您可以创建过程并将年份作为参数传递。 – Nitish

目前它不工作，我们改变了一年，首先我们需要修复代码中的错误。 –

代码中的错误是什么？ – Nitish

为了使该代码需要一年的输入并打印出基于过去这些年来，您需要更改基于年数活动切换到年-积累。

我会在下面添加一些示例。
第一个将修改您的原始代码以允许切换n_numb。
第二个将重构使用procedure s来简化事情。

对于第一个示例，我将从您的原始代码开始，并添加一个accumulatorV_YEAR_ACCUMULATION来衡量年份。然后将n_numb更改为不同的值将得到不同的输出。

DECLARE 
    V_TEST VARCHAR2(80) := 'BORN'; 
    N_NUMB NUMBER := 1990; 
    V_YEAR_ACCUMULATION NUMBER := 0; 
BEGIN 

    WHILE V_TEST <> 'Birthday' 
    LOOP 
    IF V_YEAR_ACCUMULATION = 1 
    THEN V_TEST := 'Birthday'; 
    END IF; 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 

    V_TEST := 'Playschool'; 
    WHILE V_YEAR_ACCUMULATION < 4 AND V_TEST = 'Playschool' LOOP 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 

    V_TEST := 'Regularschool'; 
    WHILE V_YEAR_ACCUMULATION < 17 AND V_TEST = 'Regularschool' LOOP 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 

    V_TEST := 'Engineering'; 
    WHILE V_YEAR_ACCUMULATION < 21 AND V_TEST = 'Engineering' LOOP 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 

    V_TEST := 'SearchingJob'; 
    WHILE V_YEAR_ACCUMULATION < 23 AND V_TEST = 'SearchingJob' LOOP 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 

    V_TEST := 'Working'; 
    WHILE V_YEAR_ACCUMULATION < 24 AND V_TEST = 'Working' LOOP 
    DBMS_OUTPUT.put_line(V_TEST || ': ' || N_NUMB); 
    N_NUMB := N_NUMB + 1; 
    V_YEAR_ACCUMULATION := V_YEAR_ACCUMULATION + 1; 
    END LOOP; 
END; 
/

并对其进行测试：

使用n_numb := 1990给出：

BORN: 1990 
Birthday: 1991 
Playschool: 1992 
Playschool: 1993 
Regularschool: 1994 
... 
... 
SearchingJob: 2012 
Working: 2013

但n_numb := 1899，您可以：

BORN: 1899 
Birthday: 1900 
Playschool: 1901 
Playschool: 1902 
Regularschool: 1903

但是，有一些重构，可以简化事情。
在第二个示例中，我将创建用于执行打印的过程，并随着时间的推移从一个活动移动到下一个活动。这将需要更少的代码。

首先，创建一个过程来print当前activity和进步的years：

CREATE OR REPLACE PROCEDURE GROW_OLDER(P_ACTIVITY IN VARCHAR2, P_YEARS_TO_CONTINUE IN NUMBER, P_YEARS_ACCUMULATED IN OUT NUMBER) 
IS 
    V_LOCAL_ACCUMULATION NUMBER := 0; 
    BEGIN 
    WHILE V_LOCAL_ACCUMULATION < P_YEARS_TO_CONTINUE LOOP 
     DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('%s: %s',P_ACTIVITY,TO_CHAR(P_YEARS_ACCUMULATED + V_LOCAL_ACCUMULATION))); 
     V_LOCAL_ACCUMULATION := V_LOCAL_ACCUMULATION + 1; 
     END LOOP; 
    P_YEARS_ACCUMULATED := P_YEARS_ACCUMULATED + P_YEARS_TO_CONTINUE; 
    END; 
/

然后创建一个过程来划过来从活动的运动协调的活动：

CREATE OR REPLACE PROCEDURE MOVE_THROUGH_THE_YEARS(P_START_YEAR IN NUMBER) 
IS 
    V_YEAR_ACCUMULATION NUMBER := P_START_YEAR; 
    BEGIN 
    GROW_OLDER('Born', 1, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Birthday', 1, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Playschool', 2, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Regularschool', 13, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Engineering', 4, V_YEAR_ACCUMULATION); 
    GROW_OLDER('SearchingJob', 2, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Working', 1, V_YEAR_ACCUMULATION); 
    END; 
/

然后测试它。开始1990：

BEGIN 
    MOVE_THROUGH_THE_YEARS(1990); 
END; 
/

Born: 1990 
Birthday: 1991 
Playschool: 1992 
Playschool: 1993 
Regularschool: 1994 
Regularschool: 1995 
... 
... 
Engineering: 2010 
SearchingJob: 2011 
SearchingJob: 2012 
Working: 2013

或者2077：

BEGIN 
    MOVE_THROUGH_THE_YEARS(2077); 
END; 
/

Born: 2077 
Birthday: 2078 
Playschool: 2079 
Playschool: 2080 
Regularschool: 2081 
Regularschool: 2082 
... 
... 
Engineering: 2097 
SearchingJob: 2098 
SearchingJob: 2099 
Working: 2100

编辑如果你只是想一次打印每个活动，您可以用不无循环的替代取代上述过程。

CREATE OR REPLACE PROCEDURE GROW_OLDER(P_ACTIVITY IN VARCHAR2, P_YEARS_TO_CONTINUE IN NUMBER, P_YEARS_ACCUMULATED IN OUT NUMBER) 
IS 
    BEGIN 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('%s: %s',P_ACTIVITY,TO_CHAR(P_YEARS_ACCUMULATED))); 
    P_YEARS_ACCUMULATED := P_YEARS_ACCUMULATED + P_YEARS_TO_CONTINUE; 
    END; 
/

CREATE OR REPLACE PROCEDURE MOVE_THROUGH_THE_YEARS(P_START_YEAR IN NUMBER) 
IS 
    V_YEAR_ACCUMULATION NUMBER := P_START_YEAR; 
    BEGIN 
    GROW_OLDER('Born', 1, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Birthday', 1, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Playschool', 2, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Regularschool', 13, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Engineering', 4, V_YEAR_ACCUMULATION); 
    GROW_OLDER('SearchingJob', 2, V_YEAR_ACCUMULATION); 
    GROW_OLDER('Working', 1, V_YEAR_ACCUMULATION); 
    END; 
/

然后对其进行测试：

BEGIN 
    MOVE_THROUGH_THE_YEARS(1990); 
END; 
/

结果：

Born: 1990 
Birthday: 1991 
Playschool: 1992 
Regularschool: 1994 
Engineering: 2007 
SearchingJob: 2011 
Working: 2013

编辑如果你需要每个活动一行的匿名块，这里有一个例子：

DECLARE 
    V_YEARS NUMBER := 1990; 
    BEGIN 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Born: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 1; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Birthday: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 1; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Playschool: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 2; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Regularschool: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 13; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Engineering: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 4; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('SearchingJob: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 2; 
    DBMS_OUTPUT.put_line(UTL_LMS.FORMAT_MESSAGE('Working: '||TO_CHAR(V_YEARS))); 
    V_YEARS := V_YEARS + 1; 
END; 
/

输出与所有其他示例相同：

Born: 1990 
Birthday: 1991 
Playschool: 1992 
Regularschool: 1994 
Engineering: 2007 
SearchingJob: 2011 
Working: 2013

来源

2017-04-26 15:15:05 alexgibbs

如果我不想输出重复如BORN ：1987 生日：1988年幼儿园：1989 Regularschool：1991 工程：2004年 SearchingJob：2008 工作：2010 –

感谢您可以打印每个活动一次@RaviTej当然可以。我会用一个例子来更新。 – alexgibbs

@RaviTej我增加了另一个例子，只在帖子的底部打印一行。这是你在找什么？谢谢 – alexgibbs

如何使这个代码动态

回答

相关问题