oracle - PL/SQLカーソルforループ

Question

テーブルtest_dataのstreet1列を通過するには、forループのカーソルが必要だと思います。テーブルの各行をテストする必要があるプログラムがあります。

これは私がこれまでに持っているものです：

cursor c1 is
street1
from test_data

Begin
    If Instr(street1, ‘Cnr’, 1) >= 1;
    Then
        Newstreetname := Substr(street1, Instr(street1, ‘Cnr’, 1)+3);
    Else if
        Instr(street1, ‘PO Box’, 1) >= 1;
    Then
        Newstreetname:= Substr(street1, Instr(street1, ‘PO Box’, 1));
    Else if
        REGEXP_ Instr (street1, [\d], 1) = 0; 
    Then
        Newstreetname:= street1;
    Else if
        REGEXP_ Instr (street1, [\d], 1) >= 1;
    Then
        Newstreetnumber:= regexp_substr(street1, '\d+(\s|\/)(\d+)?-?(\d+)?(\w {1})?'); 
        Newstreetname:= regexp_substr(street1, '(\w+\s\w+)$'); 
End

score 10 · Accepted Answer

カーソル定義にSELECTとセミコロンが必要です

カーソルの上にFORLOOPを追加できます

例えば：

 DECLARE
   cursor c1 is
     SELECT street1
     from test_data;
   r1 c1%ROWTYPE;
 BEGIN
   FOR r1 IN c1 LOOP
      ... do your stuff with r1.street1
   END LOOP;
 END;

または、明示的なカーソル定義を完全に回避することもできます。例：

FOR r1 IN (SELECT street1 FROM test_data) LOOP
  ... do your stuff with r1.street1
END LOOP;

IFステートメントにセミコロンを含めることはできません-例：
```
 If
 Instr(r1.street1, 'Cnr', 1) >= 1
 Then
```
[編集]テーブル、列newstreetnumber、およびnewstreetname-を更新する場合は、次のようにすることができます。
```
 DECLARE
   cursor c1 is
     SELECT street1
     from test_data
     FOR UPDATE;
   r1 c1%ROWTYPE;
 BEGIN
   FOR r1 IN c1 LOOP
      ... do your stuff with r1.street1
      UPDATE test_data
      SET newstreetnumber = ...
         ,newstreetname = ...
      WHERE CURRENT OF c1;
   END LOOP;
 END;
```
ただし、これは大量のボリュームではうまく機能しないことに注意してください。すべてを1つのUPDATEステートメントで実行することをお勧めします。

score 2 · Accepted Answer

Jeffrey Kempが言ったように、これは1つの更新ステートマンで実行できます。

UPDATE test_data
   SET newstreetname = CASE WHEN Instr(street1, ‘Cnr’, 1) >= 1 
                             THEN Substr(street1, Instr(street1, ‘Cnr’, 1)+3)
                            WHEN Instr(street1, ‘PO Box’, 1) >= 1 
                             THEN Substr(street1, Instr(street1, ‘PO Box’, 1))
                            WHEN REGEXP_Instr (street1, '[\d]', 1) = 0 
                             THEN street1
                            WHEN REGEXP_Instr (street1, '[\d]', 1) >= 1 
                             THEN regexp_substr(street1, '(\w+\s\w+)$')
                       END,
       newstreetnumber = CASE WHEN .....
                       END;

oracle - PL/SQLカーソルforループ

2 に答える 2

Related

Reference