Mungkin Script ini bisa membantu Bung Ade..;
PROCEDURE Test IS
FileId Utl_File.File_Type;
vOsLocation Varchar2(255) ;
vVirtualLocation Varchar2(255) ;
vName Varchar2(50) ;
vFileName Varchar2(100) ;
vResultToFile Varchar2(500) ;
Begin
vFileName := 'TEXT_FILE_'||to_char(sysdate,'ddmmyyyy_hhmiss')||'.txt';
vResultToFile := 'Person_Id' ||chr(9) ||
'Field Name' ||chr(9) ||
'Actual Amount ' ||chr(9);
Begin
Select os_location,
virtual_location
Into vOsLocation --D:\temp\,
vVirtualLocation--http://192.168.1.223/dev60temp/
From hr_file_location
Where default_site = 1;
Exception when no_data_found then
msg('No File Generate in Browser');
End;
If vOsLocation is not null and vVirtualLocation is not null Then
fileId := Utl_File.FOpen (vOsLocation, vFileName, 'W');
Utl_File.Put_Line (fileID,vResultToFile);
For Rec In
(
Select Person_id,
FieldName,
Amount
From hr359t
)
Loop
vResultToFile := Rec.Person_Id ||chr(9)||
Rec.FieldName ||chr(9)||
To_Char(Rec.Amount,'999,999,999')||chr(9);
Utl_File.Put_Line (fileID, vResultToFile);
End Loop;
Utl_File.FClose (fileID);
Web.Show_Document(vVirtualLocation||vFileName,'_blank');
End if;
END;
Nb: table hr_file_location itu isinya
* OS_LOCATION VIRTUAL_LOCATION
D:\temp\ http://192.168.1.223/dev60temp/
* Table hr359t itu berisi sekitar 3 juta record.
* Jadi Nanti di Folder D:\temp\ (server) ada file
txt : "TEXT_FILE_(sysdate).txt" Lumayan besar, sekitar 85Mb ( Ini Hanya
3 Field aja. Kalo 5 juta Reord kira2 berpa Mb yach?.)
Mohon Koreksinya Bila Ada Kesalahan....
Rgds
------
Wahyu Laksono
[EMAIL PROTECTED]
----- Original Message ----
From: Ade Octora <[EMAIL PROTECTED]>
To: [email protected]
Sent: Tuesday, February 13, 2007 11:26:34 AM
Subject: [indo-oracle] Print Report dalam bentuk TEXT
dear all
ada yang pernah coba g, print report dalam bentuk text,
soalnya saya punya masalah untuk data yang banyak sekitar 5 jt record ketika d
print dengan media PDF menjadi sekitar 500 rb halaman
nah saya pengen coba untuk output berupa text file, ada yang pernah coba g?
Thanks And Regards,
============ ========= =======
Ade Veria Octora
Email : [EMAIL PROTECTED] com_._,___
<!--
#ygrp-mlmsg {font-size:13px; font-family: arial,helvetica, clean,sans- serif;}
#ygrp-mlmsg table {font-size:inherit; font:100% ;}
#ygrp-mlmsg select, input, textarea {font:99% arial,helvetica, clean,sans-
serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height: 1.22em;}
#ygrp-text{
font-family: Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;
}
#ygrp-tpmsgs{
font-family: Arial;
clear:both;
}
#ygrp-vitnav{
padding-top: 10px;
font-family: Verdana;
font-size:77% ;
margin:0;
}
#ygrp-vitnav a{
padding:0 1px;
}
#ygrp-actbar{
clear:both;
margin:25px 0;
white-space: nowrap;
color:#666;
text-align:right;
}
#ygrp-actbar .left{
float:left;
white-space: nowrap;
}
.bld{font-weight: bold;}
#ygrp-grft{
font-family: Verdana;
font-size:77% ;
padding:15px 0;
}
#ygrp-ft{
font-family: verdana;
font-size:77% ;
border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom: 10px;
}
#ygrp-vital{
background-color: #e0ecee;
margin-bottom: 20px;
padding:2px 0 8px 8px;
}
#ygrp-vital #vithd{
font-size:77% ;
font-family: Verdana;
font-weight: bold;
color:#333;
text-transform: uppercase;
}
#ygrp-vital ul{
padding:0;
margin:2px 0;
}
#ygrp-vital ul li{
list-style-type: none;
clear:both;
border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight: bold;
color:#ff7900;
float:right;
width:2em;
text-align:right;
padding-right: .5em;
}
#ygrp-vital ul li .cat{
font-weight: bold;
}
#ygrp-vital a {
text-decoration: none;
}
#ygrp-vital a:hover{
text-decoration: underline;
}
#ygrp-sponsor #hd{
color:#999;
font-size:77% ;
}
#ygrp-sponsor #ov{
padding:6px 13px;
background-color: #e0ecee;
margin-bottom: 20px;
}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;
margin:0;
}
#ygrp-sponsor #ov li{
list-style-type: square;
padding:6px 0;
font-size:77% ;
}
#ygrp-sponsor #ov li a{
text-decoration: none;
font-size:130% ;
}
#ygrp-sponsor #nc {
background-color: #eee;
margin-bottom: 20px;
padding:0 8px;
}
#ygrp-sponsor .ad{
padding:8px 0;
}
#ygrp-sponsor .ad #hd1{
font-family: Arial;
font-weight: bold;
color:#628c2a;
font-size:100% ;
line-height: 122%;
}
#ygrp-sponsor .ad a{
text-decoration: none;
}
#ygrp-sponsor .ad a:hover{
text-decoration: underline;
}
#ygrp-sponsor .ad p{
margin:0;
}
o {font-size:0; }
.MsoNormal {
margin:0 0 0 0;
}
#ygrp-text tt{
font-size:120% ;
}
blockquote{margin: 0 0 0 4px;}
.replbq {margin:4;}
-->
____________ _________ _________ _________ _________ _________ _
Don't get soaked. Take a quick peak at the forecast
with the Yahoo! Search weather shortcut.
http://tools. search.yahoo. com/shortcuts/ #loc_weather
[Non-text portions of this message have been removed]
____________________________________________________________________________________
Don't pick lemons.
See all the new 2007 cars at Yahoo! Autos.
http://autos.yahoo.com/new_cars.html
[Non-text portions of this message have been removed]
