SAK }‘ŠŲ

SAK Streets ƒƒCƒ“ƒXƒgƒŠ[ƒg }‘ŠŲEƒJƒtƒF ˆę—— SAK Streets ŒŸõ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ[ƒ\ƒtƒg |

Oracle PL/SQL •Ō14 - ‘Sƒe[ƒuƒ‹\‘ĒƒŠƒXƒgƒtƒ@ƒCƒ‹o—́Autl_file.put_line

Ą‘Sƒe[ƒuƒ‹\‘ĒƒŠƒXƒgƒtƒ@ƒCƒ‹o—Í

  EUSER_TAB_COLUMNS ‚ð—˜—p‚ĩ‚āA‘Sƒe[ƒuƒ‹\‘Ē‚ðƒeƒLƒXƒgƒtƒ@ƒCƒ‹‚ɏo—Í
    ‚·‚é‚ɂ́AŽŸ‚Ė‚æ‚Ī‚É‚·‚éB(•\ˆę——Aƒe[ƒuƒ‹ˆę——)
    ŪAo—̓tƒ@ƒCƒ‹‚́AdnmAfnm ‚ŃpƒX‚ƃtƒ@ƒCƒ‹–ž‚ðŽw’č‚·‚éB
    ‚Ü‚―AƒJƒ“ƒ}‹æØ‚čo—Í‚É‚·‚é‚Č‚ĮH•v‚·‚ę‚΁ACSV ƒtƒ@ƒCƒ‹Œ`ŽŪ‚Æ‚ĩ‚āA
    Excel ƒV[ƒg‚ɃRƒ“ƒo[ƒg‚·‚é‚ą‚Æ‚ā‰Â”\‚Å‚ ‚éB

declare

  dnm  varchar2(200) := 'g:\tmp';    -- ƒe[ƒuƒ‹\‘Ēo—̓tƒ@ƒCƒ‹ƒpƒX
  fnm  varchar2(200) := 'test.txt';  -- ƒe[ƒuƒ‹\‘Ēo—̓tƒ@ƒCƒ‹–ž

  cursor cu is select
    lower(table_name) as ƒe[ƒuƒ‹–ž,
    column_name as €–Ú–ž,
    lower(data_type) as €–Úƒ^ƒCƒv,
    nvl(data_precision, char_col_decl_length) as ’·‚ģ,
    data_scale as Ž”•”
    from user_tab_columns
    order by table_name, column_id;

  fno    utl_file.file_type;
  rec    varchar2(1000);
  svtbl  varchar2(200) := '';

begin

-- ƒe[ƒuƒ‹\‘ĒƒeƒLƒXƒgƒtƒ@ƒCƒ‹o—Í
  fno := utl_file.fopen(dnm, fnm, 'W');
  for cu_rec in cu loop
    if svtbl is null or svtbl != cu_rec.ƒe[ƒuƒ‹–ž then
      utl_file.put_line(fno, '========================================================================');
      utl_file.put_line(fno, 'ƒe[ƒuƒ‹ - ' || cu_rec.ƒe[ƒuƒ‹–ž);
      utl_file.put_line(fno, '========================================================================');
      utl_file.put_line(fno, '€–Ú–ž                                ƒ^ƒCƒv                 ’·‚ģ Ž”•”');
      utl_file.put_line(fno, '------------------------------------------------------------------------');
      svtbl := cu_rec.ƒe[ƒuƒ‹–ž;
    end if;
    utl_file.put_line(
      fno, 
      rpad(cu_rec.€–Ú–ž, 37) || ' ' ||
      rpad(cu_rec.€–Úƒ^ƒCƒv, 20) || ' ' ||
      to_char(cu_rec.’·‚ģ, '99999') || ' ' ||
      to_char(cu_rec.Ž”•”, '99999')
    );
  end loop;
  utl_file.put_line(fno, '========================================================================');
  utl_file.fclose(fno);

end;
/

-- ˆ—Œ‹‰Ę --
========================================================================
ƒe[ƒuƒ‹ - ipm
========================================================================
€–Ú–ž                                ƒ^ƒCƒv                 ’·‚ģ Ž”•”
------------------------------------------------------------------------
IP                                    varchar2                 15 
‘gD1                                 varchar2                200 
‘gD2                                 varchar2                200 
========================================================================
ƒe[ƒuƒ‹ - ƒR[ƒhm
========================================================================
€–Ú–ž                                ƒ^ƒCƒv                 ’·‚ģ Ž”•”
------------------------------------------------------------------------
ƒL[                                  varchar2                 20 
ƒf[ƒ^                                varchar2                200 
XV’S“–ŽŌ                            varchar2                 20 
XV“ú•t                              char                     10 
XVŽžŠÔ                              char                      8 
========================================================================
ƒe[ƒuƒ‹ - ƒeƒXƒgm
========================================================================
€–Ú–ž                                ƒ^ƒCƒv                 ’·‚ģ Ž”•”
------------------------------------------------------------------------
ƒL[                                  char                      8 
ƒf[ƒ^1                               number                    9      0
ƒf[ƒ^2                               number                    9      0
ƒf[ƒ^3                               number                    9      0
========================================================================

ĄOracle PL/SQL •ŌŽ‘—ŋ
ĄSQL Šî‘bŽĀ’n•ŌŽ‘—ŋ
ĄSQL Šî‘b•ŌŽ‘—ŋ
ĄSQL ƒ`ƒ…[ƒjƒ“ƒO•ŌŽ‘—ŋ
ĄPostgreSQL •ŌAJAVA ServletAJSP •ŌŽ‘—ŋ
ĄMySQL •ŌŽ‘—ŋ
| VB | SQL | Perl | PHP | ASP | JSP | C | PC | HP | FAQ | ƒtƒŠ[ƒ\ƒtƒg |

SAK Streets ƒƒCƒ“ƒXƒgƒŠ[ƒg }‘ŠŲEƒJƒtƒF ˆę—— SAK Streets ŒŸõ



Copyright (C) 1999-2017 Y.SAK