wordnet01 - プログラム倉庫

class ren{

String bun,urlx,str;
int[] x=new int[10000];
int[] y=new int[10000];
String[] xml=new String[1000];
String[] credit=new String[1000];
String[] don=new String[1000];
int[] delta=new int[100];

int s,sx,xmlnumber,datanumber,namenumber;
int pp;
int p1,p2;

public static void main(String args[]){
ren test=new ren();
}

ren(){

urlx="http://wordnetweb.princeton.edu/perl/webwn?s=brain&sub=Search+WordNet&o2=&o0=1&o7=&o5=&o1=1&o6=&o4=&o3=&h=00000";

getdata gt=new getdata();
gt.makedata(urlx);
bun=gt.bun;


xymaker(bun);


for(s=1;s<xmlnumber+1;s++){
xml[s]=xmlmaker(s,bun);
}


for(s=1;s<xmlnumber;s++){
credit[s]=makecredit(s,bun);
}

sx=0;
for(s=1;s<xmlnumber;s++){
if(credit[s].length()>0)sx=sx+1;
if(credit[s].length()>0)don[sx]=credit[s];
}

datanumber=sx;
System.out.println(datanumber);
for(s=1;s<datanumber+1;s++){
if(don[s].indexOf("Noun")==0)pp=s;
}

sx=0;
for(s=pp;s<datanumber+1;s++){
if(don[s].indexOf("S:")==0)sx=sx+1;
if(don[s].indexOf("S:")==0)delta[sx]=s;
}

namenumber=sx;

for(s=1;s<namenumber+1;s++){
p1=delta[s];
if(s<namenumber)p2=delta[s+1];
if(s==namenumber)p2=datanumber+1;
str=don[p1];
for(sx=p1+1;sx<p2;sx++){
str=str+don[sx];
}
System.out.println(str);
}






}

String makecredit(int s,String str){
int p1,p2;
String bara;
p1=y[s];
p2=str.indexOf("<",p1);
bara=str.substring(p1+1,p2);
return bara;
}

String xmlmaker(int s,String str){
int p1,p2;
String bara;
p1=x[s];
p2=y[s];
bara=str.substring(p1+1,p2);
return bara;
}

void xymaker(String str){
int p1;
int s;
s=1;
p1=str.indexOf("<");
x[1]=p1;
while(p1>-1){
p1=str.indexOf("<",p1+1);
if(p1>-1)s=s+1;
if(p1>-1)x[s]=p1;
}
xmlnumber=s;
for(s=1;s<xmlnumber+1;s++){
y[s]=str.indexOf(">",x[s]);
}

}




}