讀檔
| PROCEDURE echo_file_contents IS in_file Text_IO.File_Type; linebuf VARCHAR2(1800); filename VARCHAR2(30); BEGIN filename:=GET_FILE_NAME(’c:\temp\’, File_Filter=>’Text Files (*.txt)|*.txt|’); in_file := Text_IO.Fopen(filename, ‘r’); LOOP Text_IO.Get_Line(in_file, linebuf); :text_item5:=:text_item5||linebuf||chr(10); END LOOP; EXCEPTION WHEN no_data_found THEN Text_IO.Put_Line(’Closing the file…’); Text_IO.Fclose(in_file); END; |
存檔
DECLARE out_file Text_IO.File_Type; output_patch VARCHAR2(30); BEGIN output_patch:=’c:\temp\test.xls’; out_file := Text_IO.Fopen (output_patch, ‘w’); Text_IO.Put(’new line’); Text_IO.New_Line(out_file, 1); EXCEPTION WHEN OTHERS THEN Text_IO.Fclose(out_file); END; |
文章標籤
全站熱搜
Oracle Tools (3)
From的文件很少人寫~~不錯唷 !!期待你的新作
小囉嗦一下常見有些程式都, 在轉檔時把游標設定成 busy但發生錯誤或是結束時, 沒有設定回default 另外excetion 都要記得寫others是我個人的習慣
要怎麼改寫呢
oracle form 裡面的help很好用, 要學會看, 因為真的很常有一些人都是看別人的程式, 大家就都錯在一起 已經看過有人一錯錯了近十年的 XD set_application_property(cursor_style,'busy'); --漏斗 set_application_property(cursor_style,'default'); --回正常的游標
看來遇到專家了..呵呵 ! 看到有問題的,請多多指教哦 !
呵, 我不是專家啦, 是有好的師傅帶, SQL寫了1年....瘋狂tunning D2K寫了3年....被操到爆, 短短的6個月裡寫的全新功能的程式....超過 50隻, 有看過別人錯十年的是, 較年長寫了十年D2K的同事 XD 很多情況下你也不能去說他有錯了!!! 更有人在exception when others then null 說這是寫程式的習慣不同, 所以這樣寫沒關係 XD 好的師傅帶, 會教你怎麼釣魚, 而不是只會吃魚 ^_^
請位如何在Android安裝 Oracle JInitiator或執行Oracle Form 或 Report ?????