そ - 経済統計練習帳

function myFunction() {
 
 
 
  uu="https://artv.info/taiga.html"
 
 
 
      str="";
      try {
 
 var response = UrlFetchApp.fetch(uu);
 str=response.getContentText("EUC-JP");
 
    } 
    catch (e) {Logger.log("Fail")}
 
 
 var a=new Array();
   var tab=new Array();
 
 sx=0;
  p1=1;
  while(p1>0){
p1=str.indexOf("<table",p1+1);
  if(p1>-1)sx=sx+1;
    if(p1>-1)a[sx]=p1;
  }
 
 
 
  number=sx;
  for(s=1;s<number+1;s++){
  p1=a[s];
  p2=str.indexOf("</table>",p1+1);
  k=str.substring(p1,p2);  
 tab[s]=k;
 
  }
 
 
  for(tr=8;tr<number+1;tr++){  
  var x=tab[tr].split("</tr>");;
 
 
  var delta=new Array();
 
  for(s=0;s<50;s++){
  delta[s]=new Array();
  }
  for(s=0;s<50;s++){
  for(sx=0;sx<20;sx++){
  delta[s][sx]="";
  }
  }
 
 
 
  for(s=0;s<x.length;s++){ 
 
    for(sx=1;sx<100;sx++){
    x[s]=x[s].replace("th","td");
    }
var y=x[s].split("</td>");
 
 
 
 
    for(sx=0;sx<y.length;sx++){
     delta[s][sx]=play(y[sx]);
    }
  }
 
 
 
  var id="1hOB_8iUpoYTa6bmdSIOO5tvgCYWyN4-SpXrrlW76FtM";
 
 
   nn="a"+tr;
 
 
 
 var ex = SpreadsheetApp.openById(id);
    ex.insertSheet(nn);
 
    var sheet = ex.getSheetByName(nn);  
 
 
 
    sheet.getRange(1,1,50,20).setValues(delta);
 
  }
 
 
 
 
}
 
function play(str){
 
 
 
  sp=str;
  for(kk=1;kk<10;kk++){
  sp=fresh(sp);
  }
  return sp;
}
 
function fresh(strstr){
 
  strstr=""+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;
 
}