Hello again
I´m the office now, and review my question. There´s about Triggers !
Here is a extract of my code to write the trigger in a text file.
The final part of loop(r_posicao) is because the slash (/) put in the end of file stay with a left space, and because of that when I run the "my_trigger.trg" they don´t start. If you remove this part and can help me, I appreciate.
If I execute this script to write all triggers of a table, then have many code inside (like the generated by Table API of Oracle Designer), the code is incomplete, like I said yesterday.

set serverout on
set long 32000000
declare
cursor trig is select distinct table_name
from user_triggers
order by table_name;
cursor trig_code(tabela in user_triggers.table_name%type) is
select table_name, trigger_name, trigger_type, triggering_event, referencing_names
from user_triggers
where table_name = tabela
order by trigger_name;

l_cursor integer;
l_n number;
l_long_val varchar2(32767);
l_long_trab varchar2(32767);
l_long_len number;
l_curpos number;
l_query varchar2(2000);

r_nome_file varchar2(100);
r_nome_executar varchar2(100);
r_path varchar2(100) := 'c:\temp';
r_file utl_file.file_type;
r_sql utl_file.file_type;
r_wrap utl_file.file_type;
r_separador varchar2(1);
r_posicao number;
r_parte1 varchar2(50);
r_parte2 varchar2(50);
r_trigger_name user_triggers.trigger_name%type;
r_table_name user_triggers.table_name%type;

begin
r_sql := utl_file.fopen(r_path, 'runall.sql', 'w');

for cc1 in trig loop
r_table_name := cc1.table_name;

-- Compoe o Nome do File a criar
r_nome_file := cc1.table_name||'.TRG';

-- Cria o File para a Source do Objecto em tratamento
r_file := utl_file.fopen(r_path, r_nome_file, 'w');
if utl_file.is_open(r_file) then
-- Adiciona a View à Lista a executar
utl_file.put_line(r_sql, 'PROMPT Criar Triggers da Tabela '||cc1.table_name);
utl_file.put_line(r_sql, 'start '||r_path||'\'||r_nome_file);
utl_file.put_line(r_sql, '/');

-- Grava Triggers da Tabela
for cc2 in trig_code(cc1.table_name) loop
r_trigger_name := cc2.trigger_name;

r_posicao := instr(cc2.trigger_type, ' ');
r_parte1 := substr(cc2.trigger_type, 1, r_posicao);
r_parte2 := substr(cc2.trigger_type, r_posicao + 1);
if r_parte2 = 'STATEMENT' then -- Triggers de STATEMENT
r_parte2 := null;
elsif r_parte2 = 'EACH ROW' then -- Triggers de ROW
r_parte2 := 'FOR EACH ROW';
elsif r_parte2 = 'OF' then -- INSTEAD OF
r_parte1 := r_parte1||' OF ';
r_parte2 := null;
end if;

utl_file.new_line(r_file);
utl_file.put_line(r_file, 'create or replace trigger '||cc2.trigger_name);
utl_file.put_line(r_file, r_parte1||cc2.triggering_event||' ON '||cc2.table_name);
utl_file.put_line(r_file, cc2.referencing_names);
if r_parte2 is not null then
utl_file.put_line(r_file, r_parte2);
end if;

l_query := 'select trigger_body from user_triggers where trigger_name = '||''''||r_trigger_name||'''';
l_curpos := 0;
l_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_cursor, l_query, dbms_sql.native);
dbms_sql.define_column_long(l_cursor, 1);
l_n := dbms_sql.execute(l_cursor);
if dbms_sql.fetch_rows(l_cursor) > 0 then
loop
dbms_sql.column_value_long(c => l_cursor,
position => 1,
length => 32767,
offset => l_curpos,
value => l_long_val,
value_length => l_long_len);
if l_long_len > 0 then
r_posicao := instr(l_long_val, ';', -1, 1);
if r_posicao > 0 then
l_curpos := l_curpos + r_posicao;
utl_file.put(r_file, substr(l_long_val, 1, r_posicao));
else
if rtrim(l_long_val) != '' then
utl_file.put(r_file, l_long_val);
else
utl_file.new_line(r_file);
end if;
l_curpos := l_curpos + l_long_len;
end if;
end if;
exit when l_long_len = 0;
end loop;
end if;
utl_file.put_line(r_file, '/');
dbms_sql.close_cursor(l_cursor);
end loop;
else
dbms_output.put_line('Erro ao criar file '||r_nome_file||' no disco');
end if;

-- Fecha o ficheiro da Source
utl_file.fclose(r_file);
end loop;

utl_file.fclose(r_sql);
end;
/


Thanks
Rui Brito