dlx6 - 経済統計練習帳

function f() {
 
id="1l9hX3qHSkNd9ABCmeeHrpJdCeyJFm1QjeB2ObC3erk8";
 
ex = SpreadsheetApp.openById(id);
 
sh = ex.getSheetByName("data");
 
 
  var v=sh.getRange(1,1,123,2).getValues();
 
  for(ppp=121;ppp<123;ppp++){
  n1=v[ppp][0];
  c1=v[ppp][1];
 g(ppp,n1,c1);
  }
 
 
 
 
 
 
 
 
}
 
 
function g(k,n1,c1) {
 
 
  uu="http://www.tvdrama-db.com/drama_info/p/id-"+c1;
 
      str="";
      try {
 
 var response = UrlFetchApp.fetch(uu);
 str=response.getContentText("UTF-8");
 
    } 
    catch (e) {Logger.log("Fail")}
 
 Logger.log(str);
 
 
 p1=str.indexOf("主な出演</td>");
p2=str.indexOf("</tr>",p1);
 
 str=str.substring(p1,p2);
 
 str=str.replace("主な出演</td>",""); 
 
  var x=str.split("、");
 
 
  for(s=0;s<x.length;s++){
 x[s]=play(x[s]);
 
 }
 
  for(s=0;s<x.length;s++){
p1=x[s].indexOf("(");
if(p1>1)x[s]=x[s].substring(0,p1);
    p1=x[s].indexOf("（");
if(p1>1)x[s]=x[s].substring(0,p1);
}
 
var cr=new Array();
  sx=0;  
  for(s=0;s<x.length;s++){
  sx=sx+1;
  cr[sx]=x[s];  
  }
 
  number=sx;
 for(s=1;s<number+1;s++){
   for(sx=1;sx<11;sx++){ 
   cr[s]=cr[s].replace("　",""); 
  cr[s]=cr[s].replace(" ","");      
 
 } 
 }
 
 
 
 
   id="1l9hX3qHSkNd9ABCmeeHrpJdCeyJFm1QjeB2ObC3erk8";
 
 
 
ex = SpreadsheetApp.openById(id);
 
 
    sh = ex.getSheetByName("rev");
 
  var bs=new Array();
  for(s=0;s<number+1;s++){
  bs[s]=new Array();
  }
  bs[0][0]=n1;
   for(s=1;s<number+1;s++){
  bs[s][0]=cr[s];
  }
 
sh.getRange(1,k,number+1,1).setValues(bs);
 
 
 
 
 
}
 
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;
}