000k - 経済統計練習帳

function myFunction() {
 
  var id="1MMnAN0Bl9WreKWWYvXSNbitpYuaY2EsXR6REEIGEJqI";
var ex = SpreadsheetApp.openById(id);
var sh = ex.getSheetByName("data");   
 
 number=1895; 
 var v= sh.getRange(1,1,number+1,3).getValues()
 
 bb="第百十二作目";
 
 var link=new Array();
 
 sx=0;
 for(s=1;s<number+1;s++){
 if(v[s][0].indexOf(bb)>-1)sx=sx+1;
 if(v[s][0].indexOf(bb)>-1)link[sx]=v[s][2];
 }
 
 
de=sx;
 
   doc = DocumentApp.create(bb);
 
  for(tr=1;tr<de+1;tr++){
 
   uu=link[tr];
 
 
 
 
   str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
        str=res.getContentText("SJIS");
 
    } catch (e) { Logger.log("Fail");}
 
 
   Logger.log(tr);
 
 var x=str.split("\n");
 
  for(s=0;s<x.length;s++){
 x[s]=clean_str(x[s]);
 doc.appendParagraph(x[s]);
}
 
 
  }
 
  doc.saveAndClose(); 
 
 
 
 }
 
function clean_str(str){
 
  sp=str;
  for(kk=1;kk<15;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;
 
}