EXPORT to text or CSV format from a form

Question

Dear all,
Could you please help me to export the data from my form to a text file or to a csv format. I am very new to forms.
i need to export the data from the oracle form to a text file or CSV file format.
I had created form named as form1.
In form1 i have a block named as block1. In this block i have 4fields as field1, field2, field3, field4. using a tabe1 which has the same 4fields.
This form is in tabular form.
Example:
In the form i have data like as below and i got this data from table1. I used a execute query to get the data from the table into this form.
field1 field2 field3 field4
raj 1234 abc 510
dil 777 hi 787
Now my requirement is i need to export this data into a file, when i click on a button(Export) it has to browse for a folder on my desktop and i have to name the filename to save the data.
Please help me.
Thanks in advance.

Answer 1

This should be almost same as in your previous task for import data.
Try this:
DECLARE
   v_file_name   VARCHAR2 (100);
   v_file        client_text_io.file_type;  
   v_delimiter VARCHAR2(1) := ',';
BEGIN
   v_file_name := webutil_file.file_save_dialog;
   v_file := client_text_io.fopen (v_file_name, 'w');
   GO_BLOCK ('block1');  
   FIRST_RECORD;
   LOOP
        client_text_io.PUT_LINE(v_file, :block1.field1||v_delimiter||:BLOCK1.field2||v_delimiter||:BLOCK1.field3||v_delimiter||:BLOCK1.field4);
    IF :SYSTEM.LAST_RECORD = 'TRUE' THEN
         EXIT;
    END IF;     
    NEXT_RECORD;
   END LOOP;
   client_text_io.fclose (v_file);
END;