ｐ８８８＋ - 経済統計練習帳

var vs=new Array();
var namex=new Array();
 
function dix(){
 
var id="1VMPZ4KadgjpAAwBZN79jWWpiqHBmslLBi2gMpN2U0hc";
 
var ex1 = SpreadsheetApp.openById(id);
var sheet = ex1.getSheetByName("data");
var v=sheet.getRange(1,1,1000,4).getValues();  
 
  var dic=new Array();
 
  sx=0;
  for(s=1;s<900;s++){
  h=0;  
  if(v[s][1]=="出演者")h=h+1;
  z=""+v[s][3];
  if(z.length==0)h=h+1;
  if(h==2)sx=sx+1;
  if(h==2)dic[sx]=v[s][2]; 
  }
  var point=new Array();
  for(s=0;s<sx+1;s++){
  point[s]=new Array();
  }
  point[0][0]="A";
 
  for(s=1;s<sx+1;s++){
  point[s][0]=dic[s];
  }
 
  dot=sx+1;
  var shx = ex1.getSheetByName("dic");
shx.getRange(1,1,dot,1).setValues(point); 
 
 
 
}
 
 
 
function plus(){
 
  var id="1VMPZ4KadgjpAAwBZN79jWWpiqHBmslLBi2gMpN2U0hc";
 
var ex1 = SpreadsheetApp.openById(id);
var sheet = ex1.getSheetByName("data");
var v=sheet.getRange(1,1,1000,3).getValues();
 
  number=257;
 
  sx=0;
  for(s=1;s<number+1;s++){
  if(v[s][1].indexOf("出演者")>-1)sx=sx+1;
  if(v[s][1].indexOf("出演者")>-1)namex[sx]=v[s][2];
  }
 
  k=sx;
 
  var id2="10VFCUHIj7sysxoRfUmffSOPEvoqNdZBb_7_PutstdXg";
 
var ex2 = SpreadsheetApp.openById(id2);
var sh2 = ex2.getSheetByName("dic");
var v2=sh2.getRange(1,1,6657,2).getValues();
 
  dicnumber=6656;
  var dic=new Array();
  var code=new Array();
 
  for(s=1;s<dicnumber+1;s++){
  dic[s]=v2[s][0];
  code[s]=v2[s][1]; 
  }
 
  var codex=new Array();
  var delta=new Array();
 
  for(s=1;s<k+1;s++){
  codex[s]="";  
  for(sx=1;sx<dicnumber+1;sx++){
  if(namex[s]==dic[sx])codex[s]=code[sx];
  }
  }
 
  for(s=0;s<number+1;s++){
  delta[s]=new Array();
  }
 
  delta[0][0]="code";
  for(s=1;s<number+1;s++){
  delta[s][0]="";
  for(sx=1;sx<k+1;sx++){
  if(v[s][2]==namex[sx])delta[s][0]=codex[sx];
  }
  }
 
 sheet.getRange(1,4,number+1,1).setValues(delta); 
 
 
 
}
 
 
function dl() {
 
  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="1VMPZ4KadgjpAAwBZN79jWWpiqHBmslLBi2gMpN2U0hc";
 
 var ex1 = SpreadsheetApp.openById(id);
  var sheet = ex1.getSheetByName("data");
  sheet.getRange(1,1,1000,3).setValues(vs);
 
 
 
}