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

var namex=new Array();
var codex=new Array();
var dic_name=new Array();
var dic_code=new Array();
var dic_key=new Array();
var number;
var dicnumber;
 
function g(){
 
 
  dicx();
 
 
 
  Logger.log(number);
 
 
  id="1f_1B4Nc24KlB1WDVHKoVxC0YzVJAfCQiZLx_2XgO0kw";
 
ex = SpreadsheetApp.openById(id);
 
sh = ex.getSheetByName("data");
 
  number=82;
 
 var z=sh.getRange(1,1,number+1,1).getValues(); 
 
 
 
 for(s=1;s<number+1;s++){
 str=z[s][0];
 str=str.replace(" ","");
 str=str.replace(" ","");
 sx=dic_key.indexOf(str);
 codex[s]="";
 if(sx>0)codex[s]=dic_code[sx];
 }
 
 
 
   var v3=new Array();
  for(s=0;s<number+1;s++){
  v3[s]=new Array();
  }
 
  v3[0][0]="code";
  for(s=1;s<number+1;s++){
  v3[s][0]=codex[s];
  }
 
  sh.getRange(1,2,number+1,1).setValues(v3);
 
 
 
 
 
}
 
 
function dicx() {
 
id_or="16zlbESM_0PL9DVz7BpKayLwLdAMFTxHFQKoPxbfL";
 
  var sql = 'SELECT artist,code FROM ' +id_or;
 
  var result = FusionTables.Query.sqlGet(sql, {hdrs: false});
 
 var r=result.rows;
 
 dic_key.push("noname");
 
  sxs=0;
    for(var i in r){   
  sx=dic_key.indexOf(r[i][0]);
  if(sx<1)dic_key.push(r[i][0]);
   if(sx<1)sxs=sxs+1;
  if(sx<1)dic_name[sxs]=r[i][0];
  if(sx<1)dic_code[sxs]=r[i][1];
   }
 
 
 
 
 
}
 
 
 
function dl() {
 
 
  c1="59928";
 
  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")}
 
 
 
 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="1f_1B4Nc24KlB1WDVHKoVxC0YzVJAfCQiZLx_2XgO0kw";
 
 
ex = SpreadsheetApp.openById(id);
 
 
    sh = ex.getSheetByName("data");
 
  var bs=new Array();
  for(s=0;s<number+1;s++){
  bs[s]=new Array();
  }
  bs[0][0]="";
   for(s=1;s<number+1;s++){
  bs[s][0]=cr[s];
  }
 
sh.getRange(1,1,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;
}