本站所有文章及代码如无特别说明均为本站原创,如果您需要转载,需本人同意!
我坚持一日三思,所以我的blog每天都会更新,除非我无法上网!(^_^)
我的联系方式:
QQ:363978818 Msn/mail:yonghe169@163.com
我坚持一日三思,所以我的blog每天都会更新,除非我无法上网!(^_^)
我的联系方式:
QQ:363978818 Msn/mail:yonghe169@163.com
CREATE OR REPLACE FUNCTION timeformat (
m_amount_in IN NUMBER )
RETURN VARCHAR2
AS
m_amount NUMBER := m_amount_in;
word_string VARCHAR2(1000);
minute_number number;
second_number number;
Begin
IF Round(m_amount_in,0) > 59
THEN
minute_number := trunc((m_amount_in/60),0);
dbms_output.PUT_LINE( minute_number);
SECOND_NUMBER := MOD(m_amount_in , 60);
dbms_output.PUT_LINE(SECOND_NUMBER);
if second_number < '10'
then
word_string := minute_number || ':'|| '0' || round(second_number,0);
else
word_string := minute_number || ':'|| round(second_number,0);
end if ;
ELSE
MINUTE_NUMBER := 0;
second_number := Round(m_amount_in,0) ;
if second_number < '10'
then
word_string := 0 || ':' || '0' || Round(second_number,0);
else
word_string := 0 || ':' || Round(second_number,0);
end if ;
END IF;
RETURN (word_string);
END timeformat;
/
m_amount_in IN NUMBER )
RETURN VARCHAR2
AS
m_amount NUMBER := m_amount_in;
word_string VARCHAR2(1000);
minute_number number;
second_number number;
Begin
IF Round(m_amount_in,0) > 59
THEN
minute_number := trunc((m_amount_in/60),0);
dbms_output.PUT_LINE( minute_number);
SECOND_NUMBER := MOD(m_amount_in , 60);
dbms_output.PUT_LINE(SECOND_NUMBER);
if second_number < '10'
then
word_string := minute_number || ':'|| '0' || round(second_number,0);
else
word_string := minute_number || ':'|| round(second_number,0);
end if ;
ELSE
MINUTE_NUMBER := 0;
second_number := Round(m_amount_in,0) ;
if second_number < '10'
then
word_string := 0 || ':' || '0' || Round(second_number,0);
else
word_string := 0 || ':' || Round(second_number,0);
end if ;
END IF;
RETURN (word_string);
END timeformat;
/
今天第一件事情就是上网络看看地震的情况,令人伤心的是死亡人数已经过万了!
我想佛主会保佑他们的灵魂的,因为他们并没有错。
我不知道出现自然灾难后大家都在想什么,我想得更多的是我们应该是没有做错什么吧,真希望这并不是上天给我们的惩罚,而只是佛主不小心打的一个冷战。
我想佛主会保佑他们的灵魂的,因为他们并没有错。
我不知道出现自然灾难后大家都在想什么,我想得更多的是我们应该是没有做错什么吧,真希望这并不是上天给我们的惩罚,而只是佛主不小心打的一个冷战。
我第一对地震的感觉还是真很小的时候,大概是我上初中二年级的时候,我记得我们教学楼晃动了十多秒,真是一件恐怖的事情。
今天发生的地震对我来说影响好大,因为许多朋友都在成都,就在地震发生时候我还在网络上和他们聊天,他们忽然说:“不聊了!我们这里发生了地震!”我还以为他们在开玩笑,呵呵。
今天发生的地震对我来说影响好大,因为许多朋友都在成都,就在地震发生时候我还在网络上和他们聊天,他们忽然说:“不聊了!我们这里发生了地震!”我还以为他们在开玩笑,呵呵。
删除两个表重复的数据
[
2008/05/10 09:44 | by fubin ]
2008/05/10 09:44 | by fubin ]
delete
from schema.table1 t1
where t1.rowid >
(select
min (t2.rowid)
from schema.table1 t2
where t1.fcn = t2.fcn);
from schema.table1 t1
where t1.rowid >
(select
min (t2.rowid)
from schema.table1 t2
where t1.fcn = t2.fcn);
按照一个规则分割某个字符串,并把字符穿
[
2008/05/07 16:23 | by fubin ]
2008/05/07 16:23 | by fubin ]
在Oracle中实现Java Split方法,我有做了一个改进,既可以将某个字符串,分割以后,将任何段组合成为一个新的String.
CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);
CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)
RETURN ty_str_split
IS
j INT := 0;
i INT := 1;
len INT := 0;
len1 INT := 0;
str VARCHAR2 (4000);
str_split ty_str_split := ty_str_split ();
BEGIN
len := LENGTH (p_str);
len1 := LENGTH (p_delimiter);
WHILE j < len
LOOP
j := INSTR (p_str, p_delimiter, i);
IF j = 0
THEN
j := len;
str := SUBSTR (p_str, i);
str_split.EXTEND;
str_split (str_split.COUNT) := str;
IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (p_str, i, j - i);
i := j + len1;
str_split.EXTEND;
str_split (str_split.COUNT) := str;
END IF;
END LOOP;
RETURN str_split;
END fn_split;
/
--取得从开始到某个位置的所有字符串的累加
CREATE OR REPLACE FUNCTION fn_split_b (p_str IN VARCHAR2, p_delimiter IN VARCHAR2,my_flag in integer)
RETURN string as
cursor c(s_p_str VARCHAR2, s_p_delimiter VARCHAR2)
IS
SELECT * FROM TABLE (CAST (fn_split (s_p_str, s_p_delimiter) AS ty_str_split));
r c%ROWTYPE;
temp_Var varchar2(255) :='';
temp_int integer :=1;
BEGIN
OPEN c(p_str,p_delimiter);
LOOP
FETCH c INTO r;
EXIT WHEN temp_int>my_flag;
temp_int:=temp_int+1;
temp_Var:=temp_Var||r.column_value;
END LOOP;
return temp_Var;
CLOSE c;
END;
CREATE OR REPLACE TYPE ty_str_split IS TABLE OF VARCHAR2 (4000);
CREATE OR REPLACE FUNCTION fn_split (p_str IN VARCHAR2, p_delimiter IN VARCHAR2)
RETURN ty_str_split
IS
j INT := 0;
i INT := 1;
len INT := 0;
len1 INT := 0;
str VARCHAR2 (4000);
str_split ty_str_split := ty_str_split ();
BEGIN
len := LENGTH (p_str);
len1 := LENGTH (p_delimiter);
WHILE j < len
LOOP
j := INSTR (p_str, p_delimiter, i);
IF j = 0
THEN
j := len;
str := SUBSTR (p_str, i);
str_split.EXTEND;
str_split (str_split.COUNT) := str;
IF i >= len
THEN
EXIT;
END IF;
ELSE
str := SUBSTR (p_str, i, j - i);
i := j + len1;
str_split.EXTEND;
str_split (str_split.COUNT) := str;
END IF;
END LOOP;
RETURN str_split;
END fn_split;
/
--取得从开始到某个位置的所有字符串的累加
CREATE OR REPLACE FUNCTION fn_split_b (p_str IN VARCHAR2, p_delimiter IN VARCHAR2,my_flag in integer)
RETURN string as
cursor c(s_p_str VARCHAR2, s_p_delimiter VARCHAR2)
IS
SELECT * FROM TABLE (CAST (fn_split (s_p_str, s_p_delimiter) AS ty_str_split));
r c%ROWTYPE;
temp_Var varchar2(255) :='';
temp_int integer :=1;
BEGIN
OPEN c(p_str,p_delimiter);
LOOP
FETCH c INTO r;
EXIT WHEN temp_int>my_flag;
temp_int:=temp_int+1;
temp_Var:=temp_Var||r.column_value;
END LOOP;
return temp_Var;
CLOSE c;
END;

The tiny village of Moriusaq stands on the frozen landscape of northwest Greenland. The sea ice near this settlement used to be thick enough to travel and hunt on for hundreds of miles for up to ten months. Recently though, climate change has reduced this crucial window to just a few weeks each year.
这是一个位于格林兰西北部冻土地区的Moriusaq小村庄,以往这些地区的冰层在冻结以后通常可以供人们在上面行动10个月左右,但是由于最近气候变化造成了这种情况只能一年持续数周。




下载文件









