アットウィキロゴ

tayprii

function myFunction() {
 
 
  for(trp=1;trp<12;trp++){
 
      nn="0"+trp;
 
    if(trp>9)nn=""+trp;
 
  urlx="www.rino-m.jp/ft"+nn+".html";
 
  str="";
      try {
 
 var res = UrlFetchApp.fetch(urlx);
        str=res.getContentText("SJIS");
 
    } catch (e) { Logger.log("Fail");}
 
  p1=str.indexOf("<A NAME=\"本文\">");
  p2=str.indexOf("</table",p1);
  p2=str.indexOf("</table",p2+1);
  str=str.substring(p1,p2);
 
for(s=1;s<1000;s++){
 str=str.replace("<br>","△");
}
 
  str=play(str);
 
  var x=str.split("△");
 
  for(s=1;s<x.length;s++){
 x[s]=x[s].trim();
}
 
number=x.length-1;
 
  de=""+x[2];
 
  var doc = DocumentApp.create(de);
 
for(s=1;s<number+1;s++){
var p2 = doc.appendParagraph(x[s]);
p2.setFontSize(18);
  }
 
  doc.saveAndClose();
 
  }
 
 
 
}
function play(str){
 
 
 
  sp=str;
  for(kk=1;kk<510;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;
 
}
最終更新:2017年04月20日 13:19