れびい - 経済統計練習帳

var namex=new Array(); 
var link=new Array(); 
var number_link;
 
function travel(){
 
var id="13vCcWxJ-qS5weX13_pWbhN6awVeAKxZyLTffLd7prX4";
 
var ex = SpreadsheetApp.openById(id);
 
var sheet = ex.getSheetByName("data");  
 
 dicnumber=sheet.getLastRow()-1;
 
var v1=sheet.getRange(1,1,dicnumber+1,3).getValues();
 
var dic_name=new Array();
var dic_code=new Array();
var dic_check=new Array();
 
for(s=1;s<dicnumber+1;s++){
dic_name[s]=v1[s][0];
dic_code[s]=v1[s][1];
dic_check[s]=v1[s][2];
}
 
 
 
sxs=0;
for(s=1;s<dicnumber+1;s++){
if(dic_check[s]<50)sxs=s;
}
 
 
if(sxs>0){
 
uu=dic_code[sxs];
 
web(uu);
 
for(s=1;s<number_link+1;s++){
h=0;
for(sx=1;sx<dicnumber+1;sx++){
if(link[s]==dic_code[sx])h=100;
}
if(h<50)dicnumber=dicnumber+1
if(h<50)dic_code[dicnumber]=link[s];
if(h<50)dic_name[dicnumber]=namex[s];
if(h<50)dic_check[dicnumber]=0;
}
 
var v2=new Array();
for(s=0;s<dicnumber+1;s++){
v2[s]=new Array();
}
 
dic_check[sxs]=100;
 
for(s=1;s<dicnumber+1;s++){
v2[s][0]=dic_name[s];
v2[s][1]=dic_code[s];
v2[s][2]=dic_check[s];
}
v2[0][2]="ch";
v2[0][0]="name";
v2[0][1]="link";
 
sheet.getRange(1,1,dicnumber+1,3).setValues(v2);
 
 
}
 
}
 
 
function web(uu) {
 
   str="";
      try {
 
 var res = UrlFetchApp.fetch(uu);
        str=res.getContentText();
 
    } catch (e) { Logger.log("Fail");}
 
 
var a=new Array();
var b=new Array();
 
s=0; 
p1=0;
while(p1>-1){
p1=str.indexOf("<table",p1+1);
p2=str.indexOf("</table>",p1);
if(p1>-1)s=s+1;
if(p1>-1)a[s]=p1;
if(p1>-1)b[s]=p2;
}
 
number=s;
 
 
var tab=new Array();
 
for(s=1;s<number+1;s++){
tab[s]=str.substring(a[s],b[s]);
}
 
 
tabx="";
for(s=1;s<number+1;s++){
h=0;
if(tab[s].indexOf("前番組")>-1)h=h+1;
if(tab[s].indexOf("次番組")>-1)h=h+1;
if(tab[s].indexOf("番組名")>-1)h=h+1;
if(h==3)tabx=tab[s];
}
 
p1=tabx.indexOf("前番組");
p2=tabx.length;
 
tabx=tabx.substring(p1,p2);
 
 
var a1=new Array();
var b1=new Array();
 
s=0;
p1=0;
while(p1>-1){
p1=tabx.indexOf("wiki",p1+1);
p2=tabx.indexOf("</a>",p1);
if(p1>-1)s=s+1;
if(p1>-1)a1[s]=p1;
if(p1>-1)b1[s]=p2;
}
 
 
number=s;
 
 
for(s=1;s<number+1;s++){
link[s]=tabx.substring(a1[s],b1[s]);
}
 
for(s=1;s<number+1;s++){
p1=link[s].indexOf(">");
p2=link[s].length;
namex[s]=link[s].substring(p1+1,p2);
p1=link[s].indexOf("\"");
link[s]="https://ja.wikipedia.org/"+link[s].substring(0,p1);
Logger.log(s+","+link[s]);
}
 
number_link=number;  
 
}