3maime - 経済統計練習帳

var cr=new Array();
 
 
function myFunction() {
 
  for(tr=65;tr<100;tr++){ 
  uu="http://www.din.or.jp/~nakatomi/draft/draft_"+tr+".html"
 
      str="";
      try {
 
 var response = UrlFetchApp.fetch(uu);
 str=response.getContentText("SJIS");
 
    } 
    catch (e) {Logger.log("Fail")}
 
 
 
p1=str.indexOf("<table");
p2=str.indexOf("</table",p1);
 
str=str.substring(p1,p2);
 
var x=str.split("</tr>");  
 
sx=0;  
for(s=1;s<x.length;s++){  
sx=sx+1;
 cr[sx]=x[s];
}
 
number=x.length-2;  
 
  var v=new Array();  
 
  for(s=0;s<number+1;s++){
  v[s]=new Array();
  }
 
  for(s=0;s<number+1;s++){
   for(sx=0;sx<6;sx++){
   v[s][sx]="";
   }}
 
 
for(s=1;s<number+1;s++){  ;
 var x1=cr[s].split("</td>");
for(sx=0;sx<x1.length;sx++){
x1[sx]=play(x1[sx]);
v[s][sx]=x1[sx];                     
}                
}  
 
 
 
   id="14v_FvO0cujKKgk5EHTkzIf1xSiJFzM92DQE7tkp6_hM";
 
 
 
ex = SpreadsheetApp.openById(id);
 y="a"+tr;
 
 ex.insertSheet(y);
 
 
    sh = ex.getSheetByName(y);
 
sh.getRange(1,1,number+1,6).setValues(v);
 
  }
 
 
}
function play(str){
 
  sp=str;
  for(kk=1;kk<10;kk++){
  sp=fresh(sp);
  }
  return sp;
}
 
function fresh(strstr){
 
  p1=strstr.indexOf("<")
  p2=-1; 
  if(p1>-1)p2=strstr.indexOf(">",p1)
  k="";
  if(p2>-1)k=strstr.substring(p1,p2)+">";
 
  strxp=strstr.replace(k,"");
 
  return strxp;
}