えどばくぐ - 経済統計練習帳

function myFunction() {
 
   urlx="https://mediaarts-db.bunka.go.jp/mg/magazines/471711";
 
 
   str="";
      try {
 
 var res = UrlFetchApp.fetch(urlx);
        str=res.getContentText();
 
    } catch (e) { Logger.log("Fail");}
 
 
 
 
 p1=str.indexOf("infoTbl2");
 p2=str.indexOf("</table>",p1);
 
 str=str.substring(p1,p2);
 
 
 for(s=1;s<100;s++){
 str=str.replace("th>","td>");
 }
 
 
 var x=str.split("</tr>");
 
 
 var v=new Array();
 
  for(s=0;s<100;s++){
 v[s]=new Array();
 }
 
 for(s=0;s<100;s++){
 for(sx=0;sx<10;sx++){
 v[s][sx]="";
 }
 }
 
 
 
 for(s=0;s<x.length;s++){
 var x1=x[s].split("</td>"); 
for(sx=0;sx<x1.length;sx++){ 
 v[s][sx]=play(x1[sx]);
 }
 }
 
 
 
 var id="1jZZcT12W0Hh34f9zYilXgC-rwaFQeUDv0jgDPGgkytk"; 
 ex = SpreadsheetApp.openById(id);
 var sheet = ex.getSheetByName("data"); 
 
 sheet.getRange(1,1,100,10).setValues(v); 
 
 
 
 
 
 
}
function play(str){
 
 
 
  sp=str;
  for(kk=1;kk<5;kk++){
  sp=fresh(sp);
  }
  return sp;
}
 
function fresh(strstr){
 
  strstr=""+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;
 
}