SAK 図書館

SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |

Oracle PL/SQL 編15 - ユーザオブジェクト一覧 CSV 出力、HTML 出力

■ユーザオブジェクト一覧 CSV 出力

  ・次のサンプルは、ユーザオブジェクトの一覧を CSV 形式に見出し付きで出
    力します。CSV の出力形式は、区切り記号にカンマ「,」、引用句にダフル
    コーテーション「"」を使用しています。
    (すべてのテーブル、全てのテーブル、登録されているテーブル、表一覧、テーブル名表示)
    (すべてのビュー、全てのビュー、登録されているビュー、ビュー一覧)
    (すべてのパッケージ、全てのパッケージ、登録されているパッケージ、パッケージ一覧)
    (すべてのストアドプロシジャ、全てのストアドプロシジャ)
    (登録されているストアドプロシジャ、ストアドプロシジャ一覧)

declare

  dnm  varchar2(200) := 'g:\tmp';    -- ユーザオブジェクト一覧出力パス
  fnm  varchar2(200) := 'test.csv';  -- ユーザオブジェクト一覧出力ファイル名

  cursor cu is select
    lower(object_name) as オブジェクト,
    lower(object_type) as タイプ,
    to_char(created, 'yyyy.mm.dd hh24:mi:ss') as 作成日付,
    to_char(last_ddl_time, 'yyyy.mm.dd hh24:mi:ss') as 更新日付
    from user_objects
    order by object_type, object_name;

  fno  utl_file.file_type;  -- ファイルハンドル
  rec  varchar2(2000);      -- 出力バッファ

begin

-- ファイルオープン
  fno := utl_file.fopen(dnm, fnm, 'W', 2002);

-- 見出しライト
  utl_file.putf(fno, '"%s","%s","%s","%s"\n',
    'タイプ', 'オブジェクト', '作成日付', '更新日付');

-- ライト
  begin
    for cu_rec in cu loop
      utl_file.putf(fno, '"%s","%s","%s","%s"\n',
        cu_rec.タイプ, cu_rec.オブジェクト,
        cu_rec.作成日付, cu_rec.更新日付);
    end loop;
  exception
    when OTHERS then
      dbms_output.put_line('** ライトエラー');
  end;

-- ファイルクローズ
  utl_file.fclose(fno);

end;
/

-- test.csv 出力結果 --
"タイプ","オブジェクト","作成日付","更新日付"
"function","gettmp","2002.01.05 13:01:35","2002.03.02 19:03:09"
"index","sys_c002112","2002.01.05 13:01:52","2002.01.05 13:01:52"
"index","sys_c002113","2002.01.05 13:01:11","2002.01.05 13:01:11"
"table","ipm","2002.01.05 14:01:49","2002.01.05 14:01:49"
"table","msgm","2002.01.05 13:01:05","2002.01.05 13:01:05"
"table","コードm","2002.01.05 13:01:36","2002.01.05 13:01:36"
"table","テストm","2002.01.05 13:01:28","2002.01.05 13:01:28"
"view","msgv1","2002.01.05 13:01:06","2002.01.05 13:01:06"

■ユーザオブジェクト一覧 HTML 出力

  ・次のサンプルは、ユーザオブジェクトの一覧を HTML 形式に出力します。

declare

  dnm  varchar2(200) := 'g:\tmp';    -- ユーザオブジェクト一覧出力パス
  fnm  varchar2(200) := 'test.htm';  -- ユーザオブジェクト一覧出力ファイル名

  cursor cu is select
    lower(object_name) as オブジェクト,
    lower(object_type) as タイプ,
    to_char(created, 'yyyy.mm.dd hh24:mi:ss') as 作成日付,
    to_char(last_ddl_time, 'yyyy.mm.dd hh24:mi:ss') as 更新日付
    from user_objects
    order by object_type, object_name;

  fno  utl_file.file_type;  -- ファイルハンドル
  rec  varchar2(2000);      -- 出力バッファ

begin

-- ファイルオープン
  fno := utl_file.fopen(dnm, fnm, 'W', 2002);

-- HTML ヘッドライト
  utl_file.put_line(fno, '<HTML>');
  utl_file.put_line(fno, '<HEAD>');
  utl_file.put_line(fno, '<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">');
  utl_file.put_line(fno, '</HEAD>');
  utl_file.put_line(fno, '<BODY>');
  utl_file.put_line(fno, '<CENTER>');
  utl_file.put_line(fno, '<TABLE border=1 bordercolordark=White bordercolorlight=#a0a0a0 cellPadding=3 cellSpacing=0>');
  utl_file.put_line(fno, '<TBODY bgcolor=#f0f0f0 align="left">');
  utl_file.put_line(fno, '<TR bgcolor=#d0d0d0 align="center">');
  utl_file.put_line(fno, '<TD colspan="4">ユーザオブジェクト一覧</TD>');
  utl_file.put_line(fno, '</TR>');
  utl_file.put_line(fno, '<TR bgcolor=#d0d0d0 align="center">');
  utl_file.put_line(fno, '<TD>タイプ</TD>');
  utl_file.put_line(fno, '<TD>オブジェクト</TD>');
  utl_file.put_line(fno, '<TD>作成日付</TD>');
  utl_file.put_line(fno, '<TD>更新日付</TD>');
  utl_file.put_line(fno, '</TR>');

-- HTML ボディライト
  begin
    for cu_rec in cu loop
      utl_file.putf(fno,
        '<TR><TD>%s</TD><TD>%s</TD><TD>%s</TD><TD>%s</TD></TR>\n',
        cu_rec.タイプ, cu_rec.オブジェクト, cu_rec.作成日付, cu_rec.更新日付);
    end loop;
  exception
    when OTHERS then
      dbms_output.put_line('** ライトエラー');
  end;

-- HTML テイルライト
  utl_file.put_line(fno, '</TBODY>');
  utl_file.put_line(fno, '</TABLE>');
  utl_file.put_line(fno, '</CENTER>');
  utl_file.put_line(fno, '</BODY>');

-- ファイルクローズ
  utl_file.fclose(fno);

end;
/

-- test.htm ブラウズイメージ --
ユーザオブジェクト一覧
タイプ オブジェクト 作成日付 更新日付
functiongettmp2002.01.05 13:01:352002.03.02 19:03:09
indexsys_c0021122002.01.05 13:01:522002.01.05 13:01:52
indexsys_c0021132002.01.05 13:01:112002.01.05 13:01:11
tableipm2002.01.05 14:01:492002.01.05 14:01:49
tablemsgm2002.01.05 13:01:052002.01.05 13:01:05
tableコードm2002.01.05 13:01:362002.01.05 13:01:36
tableテストm2002.01.05 13:01:282002.01.05 13:01:28
viewmsgv12002.01.05 13:01:062002.01.05 13:01:06
 
■Oracle PL/SQL 編資料

■SQL 基礎実地編資料

■SQL 基礎編資料

■SQL チューニング編資料

■PostgreSQL 編、JAVA Servlet、JSP 編資料

■MySQL 編資料
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | フリーソフト |
SAK Streets メインストリート 図書館・カフェ 一覧 SAK Streets 検索



Copyright (C) 1999-2024 Y.SAK