2011-01-27 17 views
6

क्या पीएल/एसक्यूएल संग्रह में किसी तत्व की (प्रथम) अनुक्रमणिका निर्धारित करने के लिए कोई अंतर्निहित कार्य है?पीएल/एसक्यूएल संग्रह में तत्व की अनुक्रमणिका प्राप्त करना

कुछ

तरह
DECLARE 
    TYPE t_test IS TABLE OF VARCHAR2(1); 
    v_test t_test; 
BEGIN 
    v_test := NEW t_test('A', 'B', 'A'); 
    dbms_output.put_line('A: ' || get_index(v_test, 'A')); 
    dbms_output.put_line('B: ' || get_index(v_test, 'B')); 
    dbms_output.put_line('C: ' || get_index(v_test, 'C')); 
END; 

A: 1 
B: 2 
C: 

मैं साहचर्य arrays, नेस्टेड तालिकाओं या Varrays, जो कुछ भी आवश्यक उपयोग कर सकते हैं। यदि एक ही तत्व एक से अधिक बार मौजूद है, तो पहली घटना का सूचकांक पर्याप्त है।


अन्यथा मैं, जैसे

CREATE FUNCTION get_index (in_test IN t_test, in_value IN VARCHAR2) 
    RETURN PLS_INTEGER 
AS 
    i PLS_INTEGER; 
BEGIN 

i := in_test.FIRST; 
    WHILE(i IS NOT NULL) LOOP 
    IF(in_test(i) = in_value) THEN 
     RETURN i; 
    END IF; 

    i := in_test.NEXT(i); 
    END LOOP; 

    RETURN NULL; 

END get_index; 

उत्तर

0

संदेह में जब कुछ करने के लिए होगा दस्तावेज़ देखें;) (here)

DECLARE 
    TYPE aa_type_int IS TABLE OF INTEGER INDEX BY PLS_INTEGER; 
    aa_int aa_type_int; 

    PROCEDURE print_first_and_last IS 
    BEGIN 
    DBMS_OUTPUT.PUT_LINE('FIRST = ' || aa_int.FIRST); 
    DBMS_OUTPUT.PUT_LINE('LAST = ' || aa_int.LAST); 
    END print_first_and_last; 

BEGIN 
    aa_int(1) := 3; 
    aa_int(2) := 6; 
    aa_int(3) := 9; 
    aa_int(4) := 12; 

    DBMS_OUTPUT.PUT_LINE('Before deletions:'); 
    print_first_and_last; 

    aa_int.DELETE(1); 
    aa_int.DELETE(4); 

    DBMS_OUTPUT.PUT_LINE('After deletions:'); 
    print_first_and_last; 
END; 
/

परिणाम:

Before deletions: 
FIRST = 1 
LAST = 4 
After deletions: 
FIRST = 2 
LAST = 3 
+4

यह सभी तत्वों की पहली और आखिरी अनुक्रमणिका दे रहा है, एक विशिष्ट मूल्य वाले तत्व की पहली अनुक्रमणिका नहीं। ओपी जानना चाहता है कि आपके उदाहरण में 9 कहें, पहली उपस्थिति के अनुरूप इंडेक्स को कैसे ढूंढें, जिसे हटाए जाने से पहले या बाद में इंडेक्स नंबर 3 वापस करना चाहिए। –

+0

@AlexPoole: धन्यवाद, कुछ भी कहना बाकी नहीं है :) –

6

यकीन नहीं है, अगर यह है वास्तव में मदद करता है, या अगर आपको लगता है इसे और अधिक सुंदर है:

create type t_test as table of varchar2(1); 
/

DECLARE 
--TYPE t_test IS TABLE OF VARCHAR2(1); 
    v_test t_test; 

    function get_index(q in t_test, c in varchar2) return number is 
    ind number; 
    begin 
    select min(rn) into ind from (
     select column_value cv, rownum rn 
     from table(q) 
    ) 
    where cv = c; 

    return ind; 
    end get_index; 

BEGIN 
    v_test := NEW t_test('A', 'B', 'A'); 

    dbms_output.put_line('A: ' || get_index(v_test, 'A')); 
    dbms_output.put_line('B: ' || get_index(v_test, 'B')); 
    dbms_output.put_line('C: ' || get_index(v_test, 'C')); 
END; 
/

show errors 

drop type t_test; 
+0

धन्यवाद रेने। ऐसा लगता है कि इसमें कुछ भी अंतर्निहित नहीं है, इसलिए मैं आपके समाधान का उपयोग कर सकता हूं। '1' लेकिन अभी तक स्वीकार नहीं कर रहा है, क्योंकि यह वास्तव में मेरे प्रश्न का उत्तर नहीं देता है :) –

2

मुझे नहीं लगता कि वहाँ एक अंतर्निहित समारोह है कि एक संग्रह खोज करता है। हालांकि, अगर आपको पता है कि आपको संग्रह को बहुत अधिक खोजना होगा, तो आप एक इंडेक्स बना सकते हैं। संग्रह में तत्व जोड़ना थोड़ा महंगा होगा, लेकिन तत्व की तलाश करना ओ (1) ऑपरेशन होगा (ओ (एन) के बजाय ब्रूट फोर्स सर्च के लिए)। उदाहरण के लिए, आप कुछ इस तरह इस्तेमाल कर सकते हैं:

SQL> DECLARE 
    2  TYPE t_test IS TABLE OF VARCHAR2(1); 
    3  TYPE t_test_r IS TABLE OF NUMBER INDEX BY VARCHAR2(1); 
    4 
    5  v_test t_test; 
    6  v_test_r t_test_r; 
    7 
    8  FUNCTION get_index(p_test_r t_test_r, 
    9      p_element VARCHAR2) RETURN NUMBER IS 
10  BEGIN 
11  RETURN p_test_r(p_element); 
12  EXCEPTION 
13  WHEN no_data_found THEN 
14   RETURN NULL; 
15  END get_index; 
16 
17  PROCEDURE add_element(p_test IN OUT t_test, 
18       p_test_r IN OUT t_test_r, 
19       p_element VARCHAR2) IS 
20  BEGIN 
21  p_test.extend; 
22  p_test(p_test.count) := p_element; 
23  p_test_r(p_element) := least(p_test.count, 
24          nvl(get_index(p_test_r, p_element), 
25           p_test.count)); 
26  END add_element; 
27 BEGIN 
28  v_test := NEW t_test(); 
29  add_element(v_test, v_test_r, 'A'); 
30  add_element(v_test, v_test_r, 'B'); 
31  add_element(v_test, v_test_r, 'A'); 
32  dbms_output.put_line('A: ' || get_index(v_test_r, 'A')); 
33  dbms_output.put_line('B: ' || get_index(v_test_r, 'B')); 
34  dbms_output.put_line('C: ' || get_index(v_test_r, 'C')); 
35 END; 
36/

A: 1 
B: 2 
C: 

PL/SQL procedure successfully completed 

तुम भी एक रिकार्ड है कि दोनों सरणियों और सभी कार्यों/प्रक्रियाओं बातचीत करने के लिए सरणियों के साथ इस रिकॉर्ड प्रकार का उपयोग हैं निर्धारित कर सकते हैं।

संबंधित मुद्दे