Archive for November, 2009

19
Nov
09

Upload dan Read File di Forms 10g

Ini adalah potongan code sederhana untuk mengupload dan membaca file teks. Dalam contoh ini digunakan :TXT_DELIMITER untuk pemisah antara nilai kolom satu dan kolom selanjutnya.

/*UTK BROWSE FILE*/
declare
vchfilename	varchar2(100);
begin
vchfilename 	:= CLIENT_GET_FILE_NAME(NULL, NULL, 'TEXT FILES (*.TXT)|*.TXT', NULL, OPEN_FILE);
end;

/*UTK BACA FILE*/
declare
fHandle     	client_text_io.file_type;
vchBuff     	varchar2(1800);
nmbPos		number;  			--ini menandakan letak delimiter.

begin
fHandle 	:= client_text_io.fopen(vchfilename, 'r');
LOOP
Client_Text_IO.Get_Line(fHandle, vchBuff);

nmbPos := instr(vchBuff, :TXT_DELIMITER, 1, 1);
--mencari karakter delimiter dalam vchbuff, dimulai dari karakter pertama, yang pertama kali ditemukan.

:KOLOM_SATU := upper(trim(substr(vchBuff, 1, nmbPos-1)));
--ambil karakter dari karakter pertama sampai pos-1.

vchBuff := substr(vchBuff, nmbPos+1);
--delete karakter pertama s/d pos+1.

:KOLOM_DUA := upper(trim(substr(vchBuff, 1, nmbPos-1)));
--ambil karakter dari karakter pertama sampai pos-1.

vchBuff := substr(vchBuff, nmbPos+1);
--delete karakter pertama s/d pos+1.

dst.

Client_Text_IO.New_Line;
END LOOP;

client_text_io.fclose(fHandle);

exception when others then
client_text_io.fclose(fHandle);
end;
Advertisements
19
Nov
09

The Greatest Love

Talks about the greatest love, Jesus Christ.

Black and white image by Yorris Handoko.
Edited by Yuds.
This image can be used freely. Please do not remove the signature.

Another image, saying that praying must greater than playing.

Pray More Play Less

10
Nov
09

Nite Sale @ PIM

It’s time to write!
Now i want to write about this last week hype. This two-days event surely attracted many shopmanias, mostly from Jakarta, but i see some D-XXXX car number.. which probably means the ads go as far as Bandung. Well, let us start the main menu.. shall we?

Before the show time starts at 21.00, i was on north skywalk, looking at the crowd taking positions. Almost every stands covered by a sort-of-police-line to keep the people going in. Seeing this, i just wonder.. if  only they have this kind of excitement while working, helping others or any good things. I mean, the price is not that cheap.. still above the market price for average items. Maybe because it is shoes? I dont know.

Microsoft is doing well selling Seven. They got the best spot, on the center of PIM2. Many people buy this new operating system.. which includes one Windows Seven T-Shirt. Are they buying the shirt or the OS?
After looking here and there, i found “maybe” worthy-things on Metro. Some good towels took about 40k rupiahs. Even you can get two for 70k. Pillows also saved a 30-50% on average. Some books at Gramedia saved 20%.

In the end, i found a hotel-interior-book at Periplus, the price in US about 30 something, sold at 99k rupiahs. That’s the quick-short-report about the event. Anyway, the good part is, PIM is one of the best place to hang out, and to looking-looking around :).

nite_sale




Blog Stats

  • 36,378 hits

RSS World News