ものろｓ - 経済統計練習帳

var vs=new Array();
 
function myFunction() {
 
  for(s=0;s<1000;s++){
  vs[s]=new Array();
  }
 
  for(s=0;s<1000;s++){
  vs[s][0]=0;
  vs[s][1]="";
  vs[s][2]="";  
  }
 
 
 
  uu="https://artv.info/ar1701.html";
 
      str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
 
  str=res.getContentText("EUC-JP");
 
 
 
    } 
    catch (e) {}
 
  p1=str.indexOf("-月-</div>");
  p2=str.indexOf("<!-- 下部ここまで -->",p1);
 
  str=str.substring(p1,p2);
 
 
  var x=str.split("<a name=");
 
 for(s=1;s<x.length;s++){ 
   p1=x[s].indexOf("left pl5px");
    p2=x[s].indexOf("</td>",p1);
   x[s]=x[s].substring(p1,p2);
 }
 
  n=0;
 
  for(tr=1;tr<x.length;tr++){ 
  strx=x[tr];
 
 
  for(k=1;k<41;k++){
  strx=strx.replace("<br>","△");
  strx=strx.replace("、","△");
  strx=strx.replace("etc","");
  strx=strx.replace("\n","");
  }
 
 var y=strx.split("△");
 
var delta=new Array(); 
var pos=new Array(); 
 
                      sx=0;
 for(s=0;s<y.length;s++){  
 var sp=""+y[s];
  if(sp.length>1)sx=sx+1;
 if(sp.length>1)delta[sx]=y[s];
 
}
 
number_p=sx;
   kk="left pl5px\">";
 
  for(s=1;s<number_p+1;s++){ 
  delta[s]=delta[s].replace(kk,"");
 
}
 
 pos[0]="出演者"; 
    for(s=1;s<number_p+1;s++){ 
  p1=delta[s].indexOf("：");
  z=pos[s-1];
 if(p1>-1)z=delta[s].substring(0,p1);    
 pos[s]=z;
 delta[s]=delta[s].replace(pos[s],"");
 delta[s]=delta[s].replace("：","");     
    }
 
     for(s=1;s<number_p+1;s++){ 
     n=n+1;
     vs[n][0]=tr;
     vs[n][1]=pos[s];  
     vs[n][2]=delta[s];
     Logger.log(delta[s]);
     }
 
 
 
 
}
 
 
  var id="1oohoLoPWs3DzAX-oMoGLHUUWTzXKR7PEJ8HHGJdJqaY";
 
 var ex1 = SpreadsheetApp.openById(id);
  var sheet = ex1.getSheetByName("data");
  sheet.getRange(1,1,1000,3).setValues(vs);
 
 
 
}