kiiLL - 経済統計練習帳

var namex=new Array();
var link=new Array();
 
function change() {
 
var id="11W9uRJYTYRHzVpCFWm0ARTHEhnfvMFavpVk6eQrJDDA";
var ex = SpreadsheetApp.openById(id);
var sh = ex.getSheetByName("data");   
 
 number=115; 
 var v= sh.getRange(1,1,number+1,2).getValues();
 
 
  var sh2 = ex.getSheetByName("link");  
 
  dop=1895;
 
  var v2= sh2.getRange(1,1,dop+1,3).getValues();
 
  for(s=1;s<dop+1;s++){
    sxs=0;
    for(sx=1;sx<number+1;sx++){
    if(v2[s][0]==v[sx][0])sxs=sx;
    }
    p1=v[sxs][1].indexOf("_index.html");
    w=v[sxs][1].substring(0,p1);
 
    p1=v2[s][2].indexOf("~cheerkey/");
    p1=v2[s][2].indexOf("/",p1);
      p2=v2[s][2].length
    w2=w+v2[s][2].substring(p1,p2);
    link[s]=w2;
  }
 
 for(s=1;s<dop+1;s++){
 sh2.getRange(s+1,4).setValue(link[s]);
}
 
 
 
 
}
 
 
function myFunction() {
 
 
  uu="http://www.coara.or.jp/~cheerkey/#No1"
 
 
 
   str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
        str=res.getContentText("SJIS");
 
    } catch (e) { Logger.log("Fail");}
 
 
  var x=str.split("</TR>");
 
 
sx=0;  
for(s=5;s<x.length-1;s++){
sx=sx+1;
  p1=x[s].indexOf("\"");
p2=x[s].indexOf("\"",p1+1);
p3=x[s].indexOf(">",p2);
p4=x[s].indexOf("<",p3);
link[sx]="http://www.coara.or.jp/~cheerkey/"+x[s].substring(p1+1,p2);  
namex[sx]=x[s].substring(p3+1,p4);  
 
}
 
 
number=sx;  
 
Logger.log(number);
 
  var id3="11W9uRJYTYRHzVpCFWm0ARTHEhnfvMFavpVk6eQrJDDA";
var ex3 = SpreadsheetApp.openById(id3);
var sh3 = ex3.getSheetByName("data");  
 
 
var delta=new Array();
 
for(s=0;s<number+1;s++){
delta[s]=new Array();
}
 
delta[0][1]="date";
 
for(s=1;s<number+1;s++){
delta[s][0]=namex[s];
delta[s][1]=link[s];
}
 
sh3.getRange(1,1,number+1,2).setValues(delta);
 
}
 
 
function travel(){
 
  var id3="11W9uRJYTYRHzVpCFWm0ARTHEhnfvMFavpVk6eQrJDDA";
var ex3 = SpreadsheetApp.openById(id3);
var sh3 = ex3.getSheetByName("count"); 
 
  var sh4 = ex3.getSheetByName("data"); 
 
 
  mm= sh3.getRange(1,1).getValue();
 
  tt=sh4.getRange(mm+1,1).getValue();
 
  uu=sh4.getRange(mm+1,2).getValue();
 
  search(tt,uu);
 
 
   sh3.getRange(1,1).setValue(mm+1);
 
 
 
}
 
function search(tt,uu){
 
 str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
        str=res.getContentText("SJIS");
 
    } catch (e) { Logger.log("Fail");}
 
 
 
 
 
  p1=str.indexOf("SRC=");
p1=str.indexOf("=",p1+1);
p2=str.indexOf("html",p1);
web="http://www.coara.or.jp/~cheerkey/"+str.substring(p1+1,p2)+"html";  
 
 Logger.log(web);
 
 
 
 str="";
      try {
 
 var res = UrlFetchApp.fetch(web);
        str=res.getContentText("SJIS");
 
    } catch (e) { Logger.log("Fail");}
 
 
 var x=str.split("</TR>");
 
 
var subname=new Array();
  var sublink=new Array();
 
sx=0;  
for(s=0;s<x.length-1;s++){
    p1=x[s].indexOf("<TR>");
  p1=x[s].indexOf("href=",p1);
  p1=x[s].indexOf("\"",p1);
p2=x[s].indexOf("\"",p1+1);
p3=x[s].indexOf(">",p2);
p4=x[s].indexOf("<",p3);
sublink[s]="http://www.coara.or.jp/~cheerkey/"+x[s].substring(p1+1,p2);  
subname[s]=x[s].substring(p3+1,p4);  
Logger.log(subname[s]+","+sublink[s]);
}
 
 
number=x.length-2;
 
 
var id3="11W9uRJYTYRHzVpCFWm0ARTHEhnfvMFavpVk6eQrJDDA";
var ex3 = SpreadsheetApp.openById(id3);
var sh3 = ex3.getSheetByName("link"); 
 
  m=sh3.getLastRow();
 
var delta=new Array();
 
 
  for(s=0;s<number+1;s++){
  delta[s]=new Array();  
  }
 
  delta[0][2]="";
 
  for(s=0;s<number+1;s++){
  delta[s][0]=tt;
  delta[s][1]=subname[s];
  delta[s][2]=sublink[s];
  }
 
 
  sh3.getRange(m+1,1,number+1,3).setValues(delta);
 
 
 
 
 
 
 
}