Text_IO.Fopen

Hello,
I would like to ask, in which directory, does text_io.fopen searches to find the file for opening?
for example if I say in a fmb/pll file in a program unit,
in_file := Text_IO.Fopen(salary.txt, 'r');
without specifing the whole directory path ('c:\salary.txt')
Where will Oracle search to find the file salary.txt?
On C:\?
On D:\?
On a network drive?
On the directory where my fmb/pll file exists...
Is it possible to tell Oracle to search by the registry?
I mean if my FORMS60_PATH is
C:\ERP;H:\Erp\Forms;H:\Erp\GL_Forms;H:\ERP\LIBS;
to search first on C:\ERP, if the file does not exist, then in H:\Erp\Forms
then in H:\Erp\GL_Forms etc....
Thank you very much.

Hello,
Test to write a file without directory, then search it on the disk.
Francois

Similar Messages

TEXT_IO.FOPEN not working on web deployed app FORMS 6i

Hi all
I have coded parsing file by using TEXT_IO.GET_LINE but it seems that my file even can't be opened.
declare
file1 text_io.file_type;
filename1 varchar(256);
linebuf varchar2(100);
begin
file1 := TEXT_IO.FOPEN(:CSV.CSV_PATH, 'r');
Text_IO.Get_Line(file1, linebuf);
if linebuf!='blablablablabla' then msg('line is OK!');
else msg('Line is wrong!');
end if;
TEXT_IO.FCLOSE(file1);
end;
On local machine when i enter into :CSV.CSV_PATH "C:\details.txt" the file gets loaded because it gets processing, I can see messages.
When I upload form onto remote web-deployed app server, I enter into path "D:\details.txt" (I cannot write on C:, the files are the same) nothing happens. Does it mean text_io won't work on Fomrs6i web-deployed? How can I investigate this issue.
Thanks in advance
Tome

With Forms Server deployments. TEXT_IO writes the file on the Forms server not the local PC as it did in client-server mode.
Here are some workarounds
1) Download the WEBUTIL add-on from Oracle and use its TEXT_IO package to write to the local file.
WebUtil is an essential add-on loaded with goodies such as a file browse dialog for local files. Its easy to use and is designed to be compatible with other oracle routines like TEXT_IO.
Kudos to Duncan Mills at Oracle for this top add-on - dont leave home without it.
www.oracle.com/technology/products/forms/htdocs/webutil/webutil.htm2) Use the original TEXT_IO (as you are now) to write to a file on the Forms Sever , then display it in a browser window using WEB.SHOW_DOCUMENT
3) I remember seeing some some old Java scripts on OTN to write to local PC.
MY APOLOGIES for #3. Most forum posts can be solved with that little gem of an answer. "My sink is blocked" ... "yeah I saw some java code to fix that"

URGENT : ORA 302000 when using TEXT_IO.fopen

Hi,
I get this error ORA 302000 when using TEXT_IO package, the code I use is
new_file:=text_io.fopen('c:\text.txt','r')
i don't have the description of this ORA 302000 , pls does anyone have it?

Hi,
I know it's been 2 years but it's still up to date for me.
I tried the suggested piece of code to trace the error but it did not bring anything more
EXCEPTION
When Others then
srw.Message( 2, 'EXCEPTION ' || SQLCODE || ' in common package. Can not open the file ');
IF SQLCODE = -302000 then
LOOP
EXIT WHEN TOOL_ERR.NERRORS = 0;
SRW.MESSAGE( 667, TO_CHAR(TOOL_ERR.CODE) || ': ' || TOOL_ERR.MESSAGE);
TOOL_ERR.POP;
END LOOP;
END IF;
srw.Message( 3, 'EXCEPTION ' || SQLCODE || ' in com package. Can not open the file ' || I_Desname || ' : ' || SQLERRM );
Only Message 2 and 3 are displayed in the trace file
Any other suggestion?
Manu

TEXT_IO.FOPEN how to pick file without specifying the full directory path

Hi,
I am using Oracle application server 10gR2 on Linux with forms 10g application. I am building the DEV/TEST/UAT environment on same Linux machine with one OAS.
I am using TEXT_IO.FOPEN ('/home/oracle/check.txt','r') to read a server side file and it is working fine.
Now I want to pick this file dynamically i.e. without specifying the full path. I am using TEXT_IO.FOPEN ('check.txt','r') and I copied file in forms_path directory in linux and even in $path directory in linux but none of them are working.
Pls help me sort out this problem.
Thanks in advance

Hi,
I have to read files in my app directory using TEXT_IO how is that possible?? I cannot set workingDirectory as my Oracle home is in a different location and as has been mentioned by others when I run the form on web it cannot seem to find the file in the default forms directory where all the .fmx file
Is there any other file setting that needs to be done??
Please help
Thanks & Regards
Mangesh Deshpande

Avoid concurrence when text_io.fopen

Hi, i open a file
     in_file := Text_IO.Fopen(filename, 'r');
only to read the data and do some inserts.
But I need to know nobody is opening the file, and show a message if it's happening. How?
If i do after the open:
     if Text_IO.is_open(in_file) then
     --message alert....
          end if;
it shows it always, because the file handler is of the file open... In fact, is_open is only the know if the file you've opened remains opened...
...but not for to know if it's already opened by somebody else (what I would want)
Thanks!

If the operating system (OS) tells you that the file is already opened for read-only, then you need to see how the OS informs you. If the OS does not inform you (most do not), then you won't know.
There are work arounds if the OS doesn't tell you. You can create an OS script that you use to open the file. When the script runs, it creates a text file indicating the file is open. Create another script to delete the text file when closing the file. Then your form checks to see if the text file exists before opening the file. If the text file exists, then you know the file was already opened.
Also, some OS will prevent opening a second file if the first file is opened for writing.

Problem with reports in excel (using text_io)

we are using Report Builder 6.0.5.28.0 with Oracle9i Enterprise Edition Release 9.2.0.1.0. in a client/server evironment. I'm using 'TEXT_IO' to write the report output to a csv file.
The process runs ok but the only problem is that the first line of every page (other than the first) gets repeated.
can anyone out there tell me how to get over this problem.
Thanx in advance
Adolph

1. You first need to create a package in your report
PACKAGE conv_text IS
procedure fopen(fname varchar2);
procedure fclose(fname varchar2);
procedure fwrite_c(fname varchar2,
var_c varchar2);
procedure fline;
END;
PACKAGE BODY conv_text IS
o_file TEXT_IO.FILE_TYPE;
filename VARCHAR2(50);
procedure fopen (fname varchar2) is
begin
filename := fname;
o_file := TEXT_IO.FOPEN(filename,'W');
end;
procedure fclose (fname varchar2) is
begin
Text_IO.Fclose(o_file);
end;
procedure fwrite_c (fname varchar2, var_c varchar2) is
begin
Text_IO.Put(o_file,var_c);
end;
procedure fline is
begin
Text_IO.New_Line(o_file);
end;
2. In the "before report trigger" open the csv file (make sure the folder exists on the client m/c)
conv_text.fopen(:filename);
3. In the innermost frame(use the following,for all the fields u want in ur csv file) :
filename VARCHAR2(50);
begin
filename := :filename;
conv_text.fwrite_c(filename,:agency_name);
conv_text.fwrite_c(filename,',');
conv_text.fwrite_c(filename,:invoice_no);
conv_text.fwrite_c(filename,',');
conv_text.fline;
4. In the after report, close the file
conv_text.fclose(:filename);
good luck and let me know if get thru with the problem of the repeating record.
Adolph
[email protected]

TEXT_IO.PUT_LINE resulting in partial file at a consistant size of 40KB

Overview:
In client server mode the report opens a file on the desktop, writes a tab delimited text line for a specific repeating frame and then closes the file. However, the resulting file is incomplete but the previewer displays the compete report with no error. The first 40K contains text lines that are OK and then the output just stops at one line at the 40K threshold even if I change the data model query to select different data. This appears to be a max size buffer size but I'm not sure. I know that the UTL_FILE on the database contains a FFLUSH function but no such function exists for TEXT_IO. Hum...
Any ideas?
Report Text_io steps:
1. After Form trigger:
s_file.out_file := TEXT_IO.FOPEN('c:\temp\output_file.tab', 'W');
2. Repeating frame format trigger:
buf:='';
buf:=to_char(nvl(:QTY,0))||CHR(9);
buf:=buf || to_char(nvl(:M_PRICE1,0))||CHR(9);
TEXT_IO.PUT_LINE(s_file.out_file,buf);
3. After Report trigger:
TEXT_IO.FCLOSE(s_file.out_file);

I seem to recall having a similar problem. I thought it was that the after report trigger was not firing properly (i.e. at all).
I solved it by putting a field at the end of the report (outside the topmost repeating frame) and attaching the code to that

TEXT_IO ... replace first line

Hello,
i have a small Problem with the TEXT_IO.PUT_LINE builtin
I want to write and read a .txt file with TEXT_IO
It workes fine but if i use put_line to write something in, it replace all inside my .txt file
My Question: Is it possible to replace only the first line inside my txt file
Example Forms:
Declare
     filename           varchar2(30) := 't:\test\Laufzettel.txt';
     file_handle TEXT_IO.FILE_TYPE;
     umrechnung number;
BEGIN
If :parameter.intervall is not null then
     file_handle := TEXT_IO.FOPEN(filename, 'W');
     umrechnung := :button.intervall;
     umrechnung := round(((umrechnung*60)*1000));
     TEXT_IO.PUT_LINE(file_handle,umrechnung);
     TEXT_IO.FCLOSE(file_handle);
end if;
END;
and the .txt file looks like this:
6000
CT
CT2
Mammo
MR
US
Bestrahlung
MRT
NUK
SD
i want to replace the 6000 with another number without rewriting all the other entrys?!
Sorry for my bad English :)
Message was edited by:
user628271

If you are unix use grep command to replace the string. And this grep command can be called using host.
If you are in Windows , create a new file from the original and while creating you
can replace which ever line you needed.
Once you create the new file , delete the original file using host command.
Once you delete the old file, copy the new file to the original file name using host command.
Rajesh Alex

How to read file WITHOUT full path using TEXT_IO?

We have a scenario like this:
-- We have a Telco application.
-- That has 3 types of installations. English and Spanish
-- We have 2 App Servers (Eng & Spa) for the 2 installation types.
-- But there is only ONE DB. I.e. users logging into Eng or Spa AS versions login to the same DB.
-- We have to maintain 2 login forms because of Eng and Spa, because the menu labels have to come in 2 langs.
-- I am trying to have one tree menu for this.
-- To do this I did this.
-- Put a text file in the Forms directory of the AS.
-- The file has just one line. ENGLISH or SPANISH.
-- I read this file and find out the language and then show labels according the language.
Problem is that when I used TEXT_IO and gave file name like this filename:=GET_FILE_NAME('Avabill_AS_Language.txt', File_Filter=>'Text Files (*.txt)|*.txt|');
I get a error saying file not found.
I found out that with TEXT_IO you need FULL PATH of the file. Thing is path of the installation depends of installation to installation. I cannot create a parameter in the DB since the DB is COMMON. I HAVE TO use a text file in the AS directory.
Is there any other way like reading the Default.env file or FormsWeb.cfg? Is there a parameter in any of these files which specifies the forms directory absolute path. I studied both file but could not find an entry.
Any workaround would be greatly appreciated.

Thanks BaiG for the quick response.
U r right about that GET_FILE_NAME.
I removed that and put the file name only and tried. Still get the same error.
FUNCTION Avabill_Deployment_Type RETURN VARCHAR2 IS
v_language VARCHAR2(100);
in_file Text_IO.File_Type;
BEGIN
in_file := Text_IO.Fopen( *'Avabill_AS_Language.txt'* , 'r');
Text_IO.Get_Line(in_file, v_language );
Text_IO.Fclose(in_file);
RETURN v_language;
EXCEPTION
WHEN OTHERS THEN
Text_IO.Fclose(in_file);
ALERT_MESSAGE(1,'FILE NOT FOUND: ' || SQLERRM);
RETURN 'Normal';
END;
I get this error:
*302000: non-ORACLE exception*
As for you query:
-- We have 2 app servers. One English and One Spanish.
-- So we have 2 sets of forms. One English with English labels in the forms and the other with Spanish Labels.
-- So we HAVE to have 2 menu forms as well, don't we? When the menu form is run how does it know whether the app server is English or Spanish.
-- There is no way to find out. We cannot use a DB variable since BOTH use the same DB (at the same time). Eng users will enter in English while Spanish users will enter in Spanish.
I don't see how we can have one menu form for this purpose. Can u elaborate your method further please?

Create a file using text_io package

Hi my friends,
I would like to direct the output from my Reports to a file.
I was searching in Oracle Forum and I found:
1.in the before report trigger open a file(.txt file) for write mode using text_io.fopen. You can specify the file name with whatever path u want.
2.Whatever fields from the report you want to redirect to the this file, go to the repeating frame of that field and use text_io.put or put_line.
How to I could do this?????
3.Finally , maybe in the after report or whereever close the file you opened using text_io.close.
Someone, could give more information about this?
Thanks...
Carla

Hi Carla
What I understand from your words is that you want to write out a file based on your query in the report using the text_io package.
You could be doing this in the Format Trigger of the appropriate Repeating Frame.
You could also be using Delimited output and choose an appropriate delimiter character.
With Reports 9i, you could be doing File I/O operations using Java calls by importing a Java class.
Hope this helps.
Regards
Sripathy

Reading data from flat file Using TEXT_IO

Dear Gurus
I already posted this question but this time i need some other changes .....Sorry for that ..
I am using 10G forms and using TEXT_IO for reading data from flat file ..
My data is like this :-
0|BP-V1|20100928|01|1|2430962.89|27|2430962.89|MUR|20100928120106
9|2430962.89|000111111111|
1|61304.88|000014104113|
1|41961.73|000022096086|
1|38475.65|000023640081|
1|49749.34|000032133154|
1|35572.46|000033093377|
1|246671.01|000042148111|
Here each column is separated by | . I want to read all the columns and want to do some validation .
How can i do ?
Initially my requirement was to read only 2 or 3 columns so i did like this ...
Procedure Pay_Simulator(lfile_type varchar2,lac_no varchar2,lcur varchar2,lno_item number,ltotal number,ldate date,lpay_purp varchar2,lfile_name varchar2)
IS
v_handle utl_file.file_type;
v_filebuffer varchar2(500);
line_0_date VARCHAR2 (10);
line_0_Purp VARCHAR2 (10);
line_0_count Number;
line_0_sum number(12,2);
line_0_ccy Varchar2(3);
line_9_sum Number(12,2);
line_9_Acc_no Varchar2(12);
Line_1_Sum Number(12,2);
Line_1_tot Number(15,2) := 0;
Line_1_flag Number := 0;
lval number;
lacno varchar2(16);
v_file varchar2(20);
v_path varchar2(50);
Begin
v_file := mcb_simulator_pkg.GET_FILENAME(lfile_name); -- For the file name
v_path :=rtrim(regexp_substr( lfile_name , '.*\\' ),'\'); For the Path
v_path := SUBSTR (lfile_name,0, INSTR (lfile_name, '\', -1));
v_handle := UTL_FILE.fopen (v_path, v_file, 'r');
LOOP
UTL_FILE.get_line (v_handle, v_filebuffer);
IF SUBSTR (v_filebuffer, 0, 1) = '0' THEN
SELECT line_0 INTO line_0_date
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_0, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 3;
SELECT line_0 INTO line_0_Purp
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_0, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 4;
SELECT line_0 INTO line_0_count
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_0, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 7;
SELECT line_0 INTO line_0_sum
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_0, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 8;
SELECT line_0 INTO line_0_ccy
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_0, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 9;
ELSIF SUBSTR (v_filebuffer, 0, 1) = '9' THEN
SELECT line_9 INTO line_9_Acc_no
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_9, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 3;
SELECT line_9 INTO line_9_sum
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_9, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 2;
ELSIF SUBSTR (v_filebuffer, 0, 1) = '1' THEN
line_1_flag := line_1_flag+1;
SELECT line_1 INTO line_1_sum
FROM (SELECT LTRIM (REGEXP_SUBSTR (v_filebuffer, '[^|]+{1}', 1, LEVEL)) line_1, ROWNUM rn
FROM DUAL
CONNECT BY LEVEL <= LENGTH (REGEXP_REPLACE (v_filebuffer, '[^|]*')) + 1)
WHERE rn = 3;
Line_1_tot := Line_1_tot + line_1_sum;
END IF;
END LOOP;
DBMS_OUTPUT.put_line (Line_1_tot);
DBMS_OUTPUT.PUT_LINE (Line_1_flag);
UTL_FILE.fclose (v_handle);
END;
But now how can i do ? Shall i use like this select Statement for all the columns ?

Sorry for that ..
As per our requirement ...
I need to read the flat file and it looks like like this .
*0|BP-V1|20100928|01|1|2430962.89|9|2430962.89|MUR|20100928120106*
*9|2430962.89|000111111111|*
*1|61304.88|000014104113|*
*1|41961.73|000022096086|*
*1|38475.65|000023640081|*
*1|49749.34|000032133154|*
*1|35572.46|000033093377|*
*1|246671.01|000042148111|*
*1|120737.25|000053101979|*
*1|151898.79|000082139768|*
*1|84182.34|000082485593|*
I have to check the file :-
Validation are 1st line should start from 0 else it should raise an error and insert that error into one table .
The for 2nd line also same thing ..it should start from 9 else it should raise an error and insert that error into one table .
Then the 3rd line should start from 1 else it should raise an error and insert that error into one table .
After that i have to do a validation like i will read the 1st line 2nd column .. It should be like this BP-V1 else raise an error and insert that error to a table . Then i will check the 3rd column which is 20100928 , it should be YYYYMMDD format else same thing ERROR.
Then like this for all columns i have different validation .......
Then it will check for the 2nd line 3rd column . this is an account no .1st i will check it should be 12 char else ERROR .Then I will check that what user has imputed in the form.Like for example User putted 111111111 then i will check with this 000111111111 which is there in the 2nd line . I have to add 000 before that Account no which user imputed .
Then the lines which is starting from 1 , i have to take all the 2nd column for all the lines which is starting from 1 and i have to do a sum . After that i have to compare that sum with the value in the 1st lines ( Starting from 0) 6th column . It should be same else ERROR ...
Then same way i have to count all the lines which is starting from 1 . Then i have to compare with the 7th column of 1st line . It should be same . Here in this file it should be 9.
MY CODE IS :-
Procedure Pay_Simulator(lfile_type varchar2,lac_no varchar2,lcur varchar2,lno_item number,ltotal number,ldate date,lpay_purp varchar2,lfile_name varchar2)
IS
v_handle TEXT_IO.file_type;
v_filebuffer varchar2(500);
line_0_date VARCHAR2 (10);
line_0_Purp VARCHAR2 (10);
line_0_count Number;
line_0_sum number(12,2);
line_0_ccy Varchar2(3);
line_9_sum Number(12,2);
line_9_Acc_no Varchar2(12);
Line_1_Sum Number(12,2);
Line_1_tot Number(15,2) := 0;
Line_1_flag Number := 0;
lval number;
lacno varchar2(16);
v_file varchar2(20);
v_path varchar2(50);
LC$String VARCHAR2(50) ;--:= 'one|two|three|four|five|six|seven' ;
LC$Token VARCHAR2(100) ;
i PLS_INTEGER := 2 ;
lfirst_char number;
lvalue Varchar2(100) ;
Begin
v_file := mcb_simulator_pkg.GET_FILENAME(lfile_name); For the file name
v_path :=rtrim(regexp_substr( lfile_name , '.*\\' ),'\'); For the Path
--v_path := SUBSTR (lfile_name,0, INSTR (lfile_name, '\', -1));
Message(lfile_name);
v_handle := TEXT_IO.fopen(lfile_name, 'r');
          BEGIN
                    LOOP
                    TEXT_IO.get_line (v_handle, v_filebuffer);
                    lfirst_char := Substr(v_filebuffer,0,1);
                    --Message('First Char '||lfirst_char);
                              IF lfirst_char = '0' Then
                              Loop
                              LC$Token := mcb_simulator_pkg.Split( v_filebuffer, i , '|') ;
                              Message('VAL - '||LC$Token);
                              lvalue := LC$Token;
                              EXIT WHEN LC$Token IS NULL ;
i := i + 1 ;
End Loop;
                              Else
                                   Insert into MU_SIMULATOR_output_ERR (load_no,ERR_CODE,ERR_DESC) values (9999,'0002','First line should always start with 0');
                                   Forms_DDL('Commit');
                                   raise form_Trigger_failure;
                              End if ;
                    TEXT_IO.get_line (v_handle, v_filebuffer);
                    lfirst_char := Substr(v_filebuffer,0,1);
                    LC$Token := mcb_simulator_pkg.Split( v_filebuffer, i , '|') ;
                    --Message('Row '||LC$Token);
                         IF lfirst_char = '9' Then
                              Null;
                         Else
                              Insert into MU_SIMULATOR_output_ERR (load_no,ERR_CODE,ERR_DESC) values (8888,'0016','Second line should start with 9');
                              Forms_DDL('Commit');
                              raise form_Trigger_failure;
                         End IF;
                    LOOP
                    TEXT_IO.get_line (v_handle, v_filebuffer);
                    lfirst_char := Substr(v_filebuffer,0,1);
                    LC$Token := mcb_simulator_pkg.Split( v_filebuffer, i , '|') ;
                    --Message('Row '||LC$Token);
                              IF lfirst_char = '1' Then
                              Null;
                              Else
                                   Insert into MU_SIMULATOR_output_ERR (load_no,ERR_CODE,ERR_DESC) values (7777,'0022','The third line onward should start with 1');
                                   Forms_DDL('Commit');
                                   raise form_Trigger_failure;
                              End if;
                    END LOOP;
                    --END IF;
                    END LOOP;
          EXCEPTION
               When No_Data_Found Then
          TEXT_IO.fclose (v_handle);
          END;
Exception
     When Others Then
     Message('Other error');
END;
I am calling the FUNCTION which you gave SPLIT as mcb_simulator_pkg.Split.

Using Text_IO in Oracle Reports 6.0

Hi.
I ask again, perhaps someone can help me:
I want to add a function to a column to write every row to a file (such as a .log-file).
In Example i can simply write into a file like this:
"Trigger - after parameter form":
file_out Text_IO.File_type;
BEGIN
file_out:= Text_IO.Fopen('log.txt', 'w');
Text_IO.put (file_out,'test');
Text_IO.Fclose(file_out);
END;
But i want to write to this file from the function, placed in a column.
So i cant open this file at every row (open, write, close)...
Perhaps someone can tell me, how i can do this: To open a File before Report, write into the File from the function and close the file after the report.
Thank you again.

Hello,
You need to create a client-side PL/SQL package as Program Units for your report. In this package you can define a package variable to hold and share your file handle, and create functions to open, write, and close the file. You can call these functions from the Before Report, Formula, and After Report triggers in your report.
Regards,
The Oracle Reports Team --skw

Replacing some text in a text file using TEXT_IO built-in package

Hi everybody...
I have written a form procedure in order to replace some text in a text document using the TEXT_IO built-in package. Although the text to be replaced is found , eventually the text is not replaced....
Obviously , the new file - after the replacement - is not saved(?)..
So , what should i do?
The procedure is as follows...
BEGIN
in_file := Text_IO.Fopen(filename, 'a');
LOOP
Text_IO.Get_Line(in_file, linebuf);
IF INSTR(linebuf,'C:\LIBS\')<>0
THEN
I:=INSTR(linebuf,'C:\LIBS\')-1;
SUB_STR_BEFORE_VAR:=SUBSTR(linebuf,1,I);
SUB_STR_AFTER_VAR:=SUBSTR(linebuf,I+9);
Text_IO.PUT(in_file,SUB_STR_BEFORE_VAR||'D:/SIM/'||SUB_STR_AFTER_VAR);
END IF;
END LOOP;
EXCEPTION
WHEN no_data_found THEN
Text_IO.Fclose(in_file);
END;
WHERE :linebuf : is the variable in which the line contents are saved...
SUB_STR_BEFORE_VAR : is the variable which keeps the substring before the first character of the search string
SUB_STR_AFTER_VAR : is the variable which keeps the substring after the last character of the search string
I : variable which keeps the number of character in line (variable linebuf) in which the first character of the search string is found
Thanks , a lot
Simon

Hello,
The A (Append) mode is used to add data at the end of the file. It will not replace existing data.
Open the source file in R mode, open the target file in W mode, then rename it with the source name when finished.
Francois

TEXT_IO.PUT_LINE Restrictions?

Hi,
The spec for TEXT_IO.PUT_LINE is:
PROCEDURE Text_IO.Put_Line
(file file_type,
item VARCHAR2);
Does anyone know what the maximum size of the varchar2 is? It appears to be 1000 characters.
Thanks,
Simon.

Don't think it's 1000.
As Database Table Column the limitation is 4000 Byte, In PL/SQL VARCHAR2 can be 32767 byte if memory serves:
declare
     xFile text_io.file_type;
     vText varchar2(32000);
begin
     for i in 1..32000 loop
          vText := vText || '1';
     end loop;
     xFile := text_io.fopen('c:\temp.txt', 'w');
     text_io.put_line(xFile, vText);
     text_io.fclose(xFile);
end;I have 32000 '1' in my file...

TEXT_IO/cursor problem - Appropriate SELECT...INTO.. returns no rows!

Hi,
I have a button on a form which, when pressed, uses the built-in "GET_FILE_NAME" to locate a comma-delimited flat file. I use TEXT_IO to open the file and process the rows in a FOR LOOP. In the loop, I parse each comma delimited field into it's own variable. One of these fieldsis a week-ending-date, which is converted to a DATE variable. I need to get the year and week # from a support table called "Week" (I could justget the year from the date, but the week number is arbitrary when crossing over years). I have tried using a SELECT..INTO statement and an explicit cursor with the same results - none. The select into I use is:
SELECT year, week
INTO v_year, v_week
FROM schema1.week
WHERE TRUNC(end_date) = TRUNC(v_edate);
--where v_year and v_week are the same %TYPE as their corresponding columns
-- and v_edate is the week-ending-DATE from the flat file
When I do this from SQL*PLUS, it comes out fine, but no data is found when run in the form. I don't get it... if there is nothing wrong with the syntax, shouldn't this work in both places? Or is there some limitation on using cursors while processing a TEXT_IO file? If anyone knows the why of this or can think of a workaround, please let me know.
Oracle Version: 8.1.7.0.0
Server: IRIX - Unix
Forms Version: 6.0.5.35.3
Client: Win 98
Thanks much,
Jason

DECLARE
     v_filename VARCHAR2(100);
     temp_file TEXT_IO.File_Type;
     linebuff VARCHAR2(1800);
     v_edate DATE;
     v_year schema1.week.year%TYPE;
     v_week schema1.week.week%TYPE);
     str_start NUMBER;
     str_end     NUMBER;
     CURSOR week_cur (p_edate IN DATE) IS
          SELECT year, week
          FROM schema1.week
          WHERE TRUNC(end_date) = TRUNC(p_edate);
BEGIN
     v_filename := GET_FILE_NAME ('c:\files\');
     temp_file := TEXT_IO.Fopen (v_filename, 'R');
     FOR i IN 1..3 LOOP
          TEXT_IO.Get_Line (temp_file, linebuff);
          IF i > 1 THEN
               GO_BLOCK ('DATA_DUMP');
               NEXT_RECORD;
          END IF;
          str_end := INSTR(linebuff, ',') - 1;
          :DATA_DUMP.stnum := SUBSTR (linebuff, 1, str_end);
          str_start := str_end +2;
          str_end := INSTR(linebuff, ',', 1, 2);
          :DATA_DUMP.dnum := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 3);
          :DATA_DUMP.spp := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 4);
          v_edate := TO_DATE (SUBSTR(linebuff, str_start, str_end - str_start), 'MM/DD/YYYY');
          str_start := str_end +1;
          str_end := INSTR(linebuff, ',', 1, 5);
          :DATA_DUMP.lbs_land := SUBSTR (linebuff, str_start, str_end - str_start);
          str_start := str_end +1;
          str_end := LENGTH(linebuff);
          :DATA_DUMP.date_in := TO_DATE (SUBSTR(linebuff, str_start, str_end - str_start), 'MM/DD/YY HH:MI');
          OPEN week_cur (v_edate);
               FETCH week_cur INTO v_year, v_week;
          CLOSE week_cur;
          :DATA_DUMP.year := v_year;
          :DATA_DUMP.week := v_week;
     END LOOP;
END;

Text_IO.Fopen

Similar Messages

Maybe you are looking for