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,654 hits

RSS World News

  • Why would Trump invite Putin back for more? July 20, 2018
    There will be verdicts, votes -- and now Vlad? And it'll all end with a victory parade of sorts. This fall is going to be *lit* in Washington.
  • Trump is inviting Putin to Washington July 20, 2018
    President Donald Trump hopes to welcome Russian President Vladimir Putin in Washington this fall, White House press secretary Sarah Sanders said in a statement Thursday.
  • See intel chief stunned by Putin invite July 20, 2018
    Director of National Intelligence Dan Coats reacted to breaking news that Russian President Vladimir Putin is scheduled for a visit to Washington in the fall, according to the White House.
  • Jake Tapper: What the hell is going on? July 19, 2018
    CNN's Jake Tapper reacts to White House press secretary Sarah Sanders' statement that says President Trump disagrees with Putin's "sincere" proposal to interrogate Americans.
  • Reversals deepen questions about Trump and Putin's meeting July 19, 2018
    When President Donald Trump insisted he meet his Russian counterpart one-on-one, he cited the potential for leaks as rationale to bar aides from attending the session.
Advertisements