みんだなお - 経済統計練習帳

var point=new Array();
var vs=new Array();
var comx=new Array();
var linex=new Array();
 
function myFunction() {
 
var id="1ut2MaVf9WThDl_UnBoAM7VpNAiKKdQgzOGUwwwhcex8"; 
 ex = SpreadsheetApp.openById(id);
 var sheet = ex.getSheetByName("data");
 
 var v=sheet.getRange(1, 1,1678,1).getValues();
 
 
  sx=0;
  for(s=10;s<1678;s++){
 str="";
    str=str+v[s][0];
 if(str.indexOf("線")>-1)sx=sx+1;
   if(str.indexOf("線")>-1)point[sx]=s; 
 
  }
 
 
  number=sx;
 Logger.log(number); 
 
  for(s=0;s<number+1;s++){
  vs[s]=new Array();
  }
 
 
 
  vs[0][0]="路線名";
  vs[0][1]="会社名";
  vs[0][2]="延日キロ";
  vs[0][3]="旅客人キロ";
  vs[0][4]="平均通過数量";
 
 
   var sh2 = ex.getSheetByName("com");
 
 var v2=sh2.getRange(1, 1,180,2).getValues();
 
  for(s=1;s<180;s++){
  comx[s]=v2[s][1];
  linex[s]=v2[s][0];
  }
 
 
  for(s=1;s<number+1;s++){
  s1=point[s];
  vs[s][0]=v[s1];
  vs[s][1]="";  
  vs[s][2]=v[s1+2];
  vs[s][3]=v[s1+4];
  vs[s][4]=v[s1+6];
  } 
 
  for(s=1;s<number+1;s++){
    vs[s][1]="";
    n=0;
    for(sx=1;sx<180;sx++){
    if(vs[s][0]==linex[sx])n=n+1;
    }
 
    sxs=0;
    for(sx=1;sx<180;sx++){
    if(vs[s][0]==linex[sx])sxs=sx;
    }
   if(n==1)vs[s][1]=comx[sxs]; 
  }
 
   for(s=2;s<number+1;s++){
   h=0;
   if(vs[s][0]=="関西線")h=h+1;
   if(vs[s-1][1]=="九州旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";
   h=0;
   if(vs[s][0]=="関西線")h=h+1;
   if(vs[s-1][1]=="東日本旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";
    h=0;
   if(vs[s][0]=="紀勢線")h=h+1;
   if(vs[s-1][1]=="東日本旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";  
   h=0;
   if(vs[s][0]=="紀勢線")h=h+1;
   if(vs[s-1][1]=="九州旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";  
   h=0;
   if(vs[s][0]=="高山線")h=h+1;
   if(vs[s-1][1]=="東日本旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";    
   h=0;
   if(vs[s][0]=="高山線")h=h+1;
   if(vs[s-1][1]=="西日本旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";    
      h=0;
   if(vs[s][0]=="東海道線")h=h+1;
   if(vs[s-1][0]=="鶴見線")h=h+1;
   if(h==2)vs[s][1]="東日本旅客鉄道";  
       h=0;
   if(vs[s][0]=="東海道線")h=h+1;
   if(vs[s-1][0]=="内房線")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";  
       h=0;
   if(vs[s][0]=="東海道線")h=h+1;
   if(vs[s-1][1]=="西日本旅客鉄道")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";  
      h=0;
   if(vs[s][0]=="中央線")h=h+1;
   if(vs[s-1][0]=="羽越線")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";  
      h=0;
   if(vs[s][0]=="中央線")h=h+1;
   if(vs[s-1][0]=="只見線")h=h+1;
   if(h==2)vs[s][1]="東日本旅客鉄道";  
      h=0;
   if(vs[s][0]=="本四備讃線")h=h+1;
   if(vs[s-1][0]=="北陸線")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";  
     h=0;
   if(vs[s][0]=="本四備讃線")h=h+1;
   if(vs[s-1][0]=="小野田線")h=h+1;
   if(h==2)vs[s][1]="四国旅客鉄道";  
       h=0;
   if(vs[s][0]=="大糸線")h=h+1;
   if(vs[s-1][0]=="留萌線")h=h+1;
   if(h==2)vs[s][1]="東海旅客鉄道";  
     h=0;
   if(vs[s][0]=="大糸線")h=h+1;
   if(vs[s-1][0]=="唐津線")h=h+1;
   if(h==2)vs[s][1]="西日本旅客鉄道";  
 
 
   }
 
 
 
 
 var shx = ex.getSheetByName("rev");
 
shx.getRange(1, 1,number+1,5).setValues(vs);
 
 
 
 
}