kwegh - 経済統計練習帳

function myFunction() {
 
 
  uu="https://tvtopic.goo.ne.jp/program/cx/877/1057060/"
 
 
   str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
        str=res.getContentText();
 
    } catch (e) { Logger.log("Fail");}
 
 
 
  ww="<dt class=\"nr-label\">キーワード</dt>";
 
 
  var a=new Array();
  p1=0;
  sx=0;
  while(p1>-1){
  p1=str.indexOf(ww,p1+1);
  if(p1>0)sx=sx+1;
   if(p1>0)a[sx]=p1;
 
  }
  number=sx;
 
  var memo=new Array();
 
  for(s=1;s<number+1;s++){
 
  p1=a[s];
  p2=str.indexOf("</dl>",p1);
  memo[s]=str.substring(p1,p2);
  }
 
  var word=new Array();
 
 
  tx=0; 
  for(s=1;s<number+1;s++){
  var x=memo[s].split("</dd>");
  for(sx=0;sx<x.length;sx++){
  tx=tx+1;
  word[tx]=x[sx];
  }
  }
 
 
  number=tx;
  for(s=1;s<number+1;s++){
  p1=word[s].indexOf("<dd>",p1);;
  p2=word[s].indexOf("</a>",p1);
  word[s]=word[s].substring(p1,p2);
word[s]=play(word[s]); 
  }
 
var id="1He52zHdYuyRC6JjB2HFTuTAgM-cYtzrNSpIbJCujFMU";
var ex = SpreadsheetApp.openById(id);
var sh = ex.getSheetByName("data");  
 
 var v=new Array();
 
  for(s=0;s<number+1;s++){
 v[s]=new Array();
 }
 
 
 v[0][0]="date";
 for(s=1;s<number+1;s++){
 v[s][0]=word[s];
 }
 
 
sh.getRange(1,1,number+1,1).setValues(v); 
 
 
 
 
 
}
 
function play(str){
 
  strx=str;
  for(m=1;m<5;m++){
  strx=fresh(strx);
  }
 
  strx=strx.replace("&nbsp","");
  strx=strx.replace("&nbsp","");
  strx=strx.replace(";","");
  return strx;
 
}
 
function fresh(str){
 
  p1=str.indexOf("<");
  p2=str.indexOf(">",p1);
  sp="";
  if(p1>-1)sp=str.substring(p1,p2+1);
 
  k=str.replace(sp,"");
  return k;
}