Gostaria de saber se tem como excluir a ultima linha gerada após a execução de um cursor.
Ex mais ou menos isso aqui:
declare cursor cur_linha is select 'teste linha' as linha from dual;
arquivo utl_file.file_type;
r cur_linha%rowtype;
l_texto varchar2(108);
l_texto_arq varchar2(108);
begin
--
arquivo:= utl_file.fopen('$DIR', '$NOME_ARQ', 'w');
--
if utl_file.is_open(arquivo) then
open cur_linha;
loop
fetch cur_linha into r;
exit when cur_linha%notfound;
l_texto := rpad(r.linha, 108,' ' );
l_texto_arq := substr(l_texto, 2, 108);
utl_file.put_line(arquivo, l_texto_arq || chr(13));
utl_file.fflush(arquivo);
end loop;
end if;
--
utl_file.fclose(arquivo);
end;
O resultado é um arquivo com duas linhas sendo uma com o conteúdo "teste linha" ao invés de uma linha somente.
olá estou precisando de uma ajuda com esses exercícios, pois não estou conseguindo fazer... "VisuAlg"
1) O MDC (máximo divisor comum) de 2 números inteiros A e B pode ser calculado pelo seguinte procedimento:
Enquanto B for diferente de zero
R recebe o valor do resto da divisão de A por B
A recebe o valor de B
B recebe o valor de R
Fim Enquanto
Escreva um algoritmo capaz de calcular e mostrar o MDC de 2 números inteiros digitados pelo operador.
Eu tenho uma combobox e uma listbox. Quando o usuário seleciona um item da combobox, a listbox mostrará alguns dados. Como eu faço isso?
Ps.Ambos os controles estão sendo preenchidos do banco de dados!
Compartilhar este post
Link para o post
Compartilhar em outros sites