Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
  Set doc = dso.XMLDocument
Dim rel  As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&userid=11&authority=111
", False
  x.send
   doc.Load (x.responseXML)
 
  Set Tablelist = doc.getElementsByTagName("record")
Tablelen = Tablelist.length
 For i = 0 To (Tablelen - 1)
'Text1.Text = Tablelist.Item(i).selectSingleNode("Fremark").Text
Combo1.AddItem (Tablelist.Item(i).selectSingleNode("pn").Text)
    Next
End Sub
Private Sub Command2_Click()
a = "<result><TD>A
AAAA%AAAA</TD><TD>AAAAAA
AAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD&g ......

Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
  Set doc = dso.XMLDocument
Dim rel  As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&userid=11&authority=111
", False
  x.send
   doc.Load (x.responseXML)
 
  Set Tablelist = doc.getElementsByTagName("record")
Tablelen = Tablelist.length
 For i = 0 To (Tablelen - 1)
'Text1.Text = Tablelist.Item(i).selectSingleNode("Fremark").Text
Combo1.AddItem (Tablelist.Item(i).selectSingleNode("pn").Text)
    Next
End Sub
Private Sub Command2_Click()
a = "<result><TD>A
AAAA%AAAA</TD><TD>AAAAAA
AAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD>AAAAAAAAA</TD><TD&g ......

JAVA annotation入门 
        最近对spring源码感兴趣，今天看到annotation部分，略记之。
一. 最常见的annotation
@Override:用在方法之上，用来告诉别人这一个方法是改写父类的
@Deprecated:建议别人不要使用旧的API的时候用的,编译的时候会用产生警告信息,可以设定在程序里的所有的元素上.
@SuppressWarnings:暂时把一些警告信息消息关闭
@Entity:表示该类是可持久化的类
 
二. 设计一个自己的Annotation
      先看代码再讲话
1. 只有一个参数的Annotation实现
 
package chb.test.annotation;
import java.lang.annotation.Documented;
import java.lang.annotation.ElementType;
import java.lang.annotation.Retention;
import java.lang.annotation.RetentionPolicy;
import java.lang.annotation.Target;
@Target(ElementType.TYPE)
@Retention(RetentionPolicy.RUNTIME)
@Documented
public @interface MyAnnotation1 {
String value();
} 
 
2. 有两个参数的Annotation实现
 
package chb.test.annotation;
import j ......

 题计：这里给出java解析xml，以帮助人们理解许多容器是怎么做的。。像spring，struts等.
1.mysql.xml代码：
<?xml version="1.0" encoding="UTF-8"?>
<data>
<datasource>
<servername>localhost</servername>
<serverport>3306</serverport>
<databasename>juddi</databasename>
<username>root</username>
<password>123456</password>
</datasource>
</data>
2.XML配置文件解析器,主要目的，是为做前期工作
package com;
/*
* XML配置文件解析器,主要目的，是为做前期工作
*/
import org.xml.sax.helpers.DefaultHandler;
import java.util.Properties;
import org.xml.sax.Attributes;
import org.xml.sax.SAXException;
public class ConfigParser extends DefaultHandler {
    //定义一个properties用来存放属性
private Properties props;
private String currentName;
private StringBuffer currentValue=new StringBuffer();
public ConfigParser(){
this.props=new Properties();
}
......

Java设计模式之Singleton单例模式篇
java 单例模式的实现方式
实现1：
public class Singleton {    
     private static Singleton instance;
      private Singleton (){ //首先有一个私有的构造器
       }
     public static Singleton getInstance() {
     if(instance==null){
         instance=new Singleton ();
      }
      return instance;
     }
}
这种方式是线程不安全的，如果多个线程同时访问的话就可能有多个对象产生，如果在get方法中加同步块的话会影响性能。
实现2：
public class Singleton {
private Singleton(){
}
private static Singleton instance =new Singleton();
public static Singleton getInstance(){
return instance;
}
}
这种方式虽然不存在安全性问题，但是在程序启动的时候就会初始化。
实现3：
public class Singleton {
private st ......

进来公司要做爬虫，框架都不会用，就按照网上的python原理用java实现间的程序 用到HTMLParser包
package my.url.test;
import java.io.BufferedReader;
import java.io.BufferedWriter;
import java.io.File;
import java.io.FileWriter;
import java.io.IOException;
import java.io.InputStreamReader;
import java.net.HttpURLConnection;
import java.net.MalformedURLException;
import java.net.URISyntaxException;
import java.net.URL;
import java.net.URLConnection;
import org.htmlparser.Node;
import org.htmlparser.NodeFilter;
import org.htmlparser.Parser;
import org.htmlparser.filters.AndFilter;
import org.htmlparser.filters.HasAttributeFilter;
import org.htmlparser.filters.OrFilter;
import org.htmlparser.filters.TagNameFilter;
import org.htmlparser.tags.ImageTag;
import org.htmlparser.tags.LinkTag;
import org.htmlparser.util.NodeIterator;
import org.htmlparser.util.NodeList;
import org.htmlparser.util.ParserException;
public class MyUrl {
    private  URL url ;
& ......

1 编译命令
　　javac [options] filename.java
　　options->
　　-classpath path 编译时需要的类路径
　　-d directory 设定编译生成的.class文件输入到哪一个目录。
　　关于-d小技巧 : 如果.java文件中使用了package语句, 例如 package com.test.maths; 加上-     d . 选项会帮助在当前目录下自动生成嵌套的包文件夹。 如果不加-d 选项,则不会生成嵌套包文件夹。
　　-g 在代码产生器中打开调试,使之以后可以调试产生的字节码
　　-nowarn 屏蔽警告
　　-o 告诉javac编译优化内联的 static 、final、 private成员函数。
　　-verbose 输出关于编译过程的各种信息
  2 执行命令 java 需要注意一点: 在源文件使用 package 语句的情况下,应该在包最外层文件夹下执行。
　　例如 java com.test.maths.filename
　3 打包命令 jar
　　jar [options] [jarfilename.jar] files
　　jarfilename.jar 是指定生成的打包文件名
　　files 是要打包的文件列表
　　options->
　　c 创建新文档
　　f 指定打包名
　　m 文件列表中第一个文件名是外部清单文件名
　　t 列出jar文件内容
　　u 更新现存的jar
　　v 显示执行过程的 ......