椰子Java

感冒真是痛苦的事情，我觉得如果那天人类毁灭了一定是一种可怕的，变异的感冒病毒引起的。

import java.util.StringTokenizer;


public class StringPhrase {
 public static void main(String[] args){
   int count = 0;  
   StringTokenizer st = new StringTokenizer("This*/is*/A*/Test","*/");
   while(st.hasMoreTokens()){
     count++;
     System.out.println("Token " + count + ": " + st.nextToken());
   }
 }
}

import java.net.InetAddress;
import java.io.IOException;

public class AddressExample {

   public static void main(String[] args) {
       try{
           InetAddress s = InetAddress.getLocalHost();
           System.out.println(s.getHostName() + "\n" + s.getHostAddress());

       }
       catch(IOException e){
           System.out.println(e.getMessage());
       }
   }

}

select username,sid,serial# from v$session;
alter system kill session'55,10839';

import java.util.zip.*;
import java.io.*;
public class Zipper {
  public static void main(String[] args) throws IOException {    
      String outputFile = "D:\\fubin.zip";
      int level = 9;    
      String[] files={"D:\\test\\test1.txt","D:\\test\\test2.txt"};    
      FileOutputStream fout = new FileOutputStream(outputFile);
      ZipOutputStream zout = new ZipOutputStream(fout);
      zout.setLevel(level);
      for (int i = 0; i < files.length; i++) {
        System.out.println("files[i]="+files[i]);
        ZipEntry ze = new ZipEntry(files[i]);
        FileInputStream fin = new FileInputStream(files[i]);
        try {
          System.out.println("Compressing " + files[i]);
          zout.putNextEntry(ze);
          for (int c = fin.read(); c != -1; c = fin.read()) {
            zout.write(c);
          }
        }
        finally {
          fin.close();
        }
      }
      zout.close();
    }

}

create or replace type t_ret_table is table of varchar2(20);

create or replace function f_test(var_num in integer) return t_ret_table is
var_out t_ret_table;
begin
var_out := t_ret_table();
var_out.extend(var_num);
for i in 1..var_num loop
var_out(i) := i;
end loop;
return var_out;
end f_test;
/


set serverout on
declare
aa t_ret_table;
begin
aa := f_test(10);
for i in 1..aa.count loop
dbms_output.put_line(aa(i));
end loop;
end;
/

一个分隔字符串的例子：
把'a|||b|||c'字符串分隔成
a
b
c
create or replace function f_test(var_str in string) return t_ret_table is
var_out t_ret_table;
var_tmp varchar2(2000);
var_element varchar2(2000);
begin
var_tmp := var_str;
var_out := t_ret_table();
while instr(var_tmp,'|||')>0 loop
var_element := substr(var_tmp,1,instr(var_str,'|||')-1);
var_tmp := substr(var_tmp,instr(var_str,'|||')+3,length(var_tmp));
var_out.extend(1);
var_out(var_out.count) := var_element;
end loop;
var_out.extend(1);
var_out(var_out.count) := var_tmp;
return var_out;
end f_test;
/


set serverout on
declare
aa t_ret_table;
begin
aa := f_test('a|||b|||c');
for i in 1..aa.count loop
dbms_output.put_line(aa(i));
end loop;
end;
/



create or replace function f_test(var_str in string) return t_ret_table PIPELINED
as
var_tmp varchar2(2000);
var_element varchar2(2000);
begin
var_tmp := var_str;
while instr(var_tmp,'|||')>0 loop
var_element := substr(var_tmp,1,instr(var_str,'|||')-1);
var_tmp := substr(var_tmp,instr(var_str,'|||')+3,length(var_tmp));
pipe row(var_element);
end loop;
pipe row(var_tmp);
return;
end f_test;
/


select * from table(f_test('a|||b|||c'));



另外一个分割字符串的例子：


分割字符串问题！

问题源自http://www.itpub.net/626418.html

/*

怎样支掉字符串中逗号间重复的字符
如 ',1,2,5,9,1,2,5,9,1,2,9,1,2,9,1,2,3,9,1,2,3,9,1,2,9,1,2,9,1,2,3,9,1,2,3,9,'怎样支掉字符串中逗号间重复的字符,并将字符升序排列，得到
',1,2,3,5,9,'
百思不得其解，是高手的试一下。

解答：
select col from(
select sys_connect_by_path(col,',')||',' col,level from(
select col,row_number() over(order by rownum) rn from (
select distinct substr(col,instr(col,',',1,rownum)+1,instr(col,',',1,rownum+1)-instr(col,',',1,rownum)-1) col from (
select ',1,2,5,9,1,2,5,9,1,3,9,' col from dual
) connect by rownum)
)
connect by prior rn = rn -1 order by level desc
) where rownum=1

*/

这个问题的解决办法中的一部分（按照固定分隔符分割字符串）可以解决http://www.itpub.net/515354.html

/*

要求用pl/sql写一个函数, 实现根据分割符把原字符串分成若干个字符串功能.

输入: string(字符串) 和 Delimiter (分隔符)
输出: substr1, ..., substrn (根据分割后的字符串排序, 不是子串在原字符串中的顺序)

解答：

select substr(col,instr(col,',',1,rownum)+1,instr(col,',',1,rownum+1)-instr(col,',',1,rownum)-1) col from (
select ',1,2,5,9,1,2,5,9,1,3,9,' col from dual
) connect by rownum
*/

上传文件方法

     系统忙于上线，家里忙于照料宝宝。。。日子真是忙碌，我真是奇怪，忙的时候总在想忙是否有意义，而闲的时候总是在想自己为什么不忙起来。
   
   我还是觉得我自己不够稳重，面对问题不够冷静，导致自己处理生活问题都变的如此混乱！还需要进度啊。。。