muuu8 - 経済統計練習帳

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();
 
 
 
 
 
  id="1Sghj-1ZnFqksKHu5_JxOl4NW9X3z4pwvQtR7rkmB1c0";
 
ex = SpreadsheetApp.openById(id);
 
sh = ex.getSheetByName("data");
 
  number=82;
 
 var z=sh.getRange(1,1,number+1,3).getValues(); 
 
 
 
 for(s=1;s<number+1;s++){
 str=z[s][1];
 str=str.replace(" ","");
 str=str.replace(" ","");
 sx=dic_key.indexOf(str);
 codex[s]="";
 if(codex[s].length>0)sx=0;  
 if(sx>0)codex[s]=dic_code[sx];
 }
 
 
 
 for(t=1;t<number+1;t++){
 strp=z[t][1];
 w=""+codex[t];  
 if(codex[t].length<1)w=search(strp);
 codex[t]=w; 
 }
 
 
   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,4,number+1,1).setValues(v3);
 
 
 
 
 
}
 
 
function dicx() {
 
id_or="1tolF3gSwMw8YhvGsT5CuR0mc2wk7IpiSI-lXpbQB";
 
  var sql = 'SELECT * 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 search(ww2) {
 
 
  word=encodeURIComponent(ww2);
 
 
  uu="http://movie.walkerplus.com/search/free_search.cgi?comkind=movie&keyword="+word;
 
 
       try {
 
 var response = UrlFetchApp.fetch(uu);
 str=response.getContentText();
 
    } 
    catch (e) {Logger.log("Fail")}
 
  p1=str.indexOf("<h2>映画作品検索結果");
  p2=str.indexOf("作品詳細",p1);
 str=str.substring(p1,p2);
 
  var x=str.split("\n");
 
 
  don="";
  for(s=1;s<x.length;s++){
  if(x[s].indexOf("<a href=\"/mv")>-1)don=x[s];
  } 
 
 
 
  p1=don.indexOf("mv");
  p2=don.indexOf("/",p1);
 
  if(p1>-1)don=don.substring(p1,p2);
 
   return don;
 
 
 
 
 
 
}