var c0=new Array();
var c1=new Array();
var c2=new Array();
var cp=new Array();
var cx=new Array();
var comx=new Array();
var namex=new Array();
function myFunction() {
id="1-XMtjr3wrAUP3FWzhZT2VMhfdy9ovhNbPSPmWAYICAQ";
ex = SpreadsheetApp.openById(id);
sh = ex.getSheetByName("data");
var v=sh.getRange(1,1,459,100).getValues();
for(s=1;s<100;s++){
c1[s]=""+v[1][s];
c2[s]=""+v[2][s];
c0[s]=""+v[0][s].replace("\n","");;
c0[s]=""+c0[s].replace("\n","");;
cx[s]=c0[s];
}
for(s=1;s<100;s++){
cp[s]=c1[s];
if(cp[s].length<1)cp[s]=cp[s-1];
}
for(s=1;s<100;s++){
if(cx[s].length<1)cx[s]=cx[s-1];
}
for(s=1;s<100;s++){
h=0;
if(c2[s].length==0)h=h+1;
if(c1[s].length>0)h=h+1;
if(h==2)c2[s]="〇";
}
for(s=1;s<100;s++){
h=0;
if(c1[s].length==0)h=h+1;
if(c0[s].length>0)h=h+1;
if(h==2)c2[s]="〇";
if(h==2)c1[s]="〇";
}
for(s=1;s<100;s++){
h=0;
if(c1[s].length==0)h=h+1;
if(c2[s].length>0)h=h+1;
if(h==2)c1[s]=cp[s];
}
for(s=1;s<100;s++){
h=0;
if(c1[s].length>0)h=h+1;
if(c0[s].length==0)h=h+1;
if(h==2)c0[s]=cx[s];
}
namex[1]="太平洋石炭販売輸送";
namex[2]="札幌市";
namex[3]="函館市";
namex[4]="十和田観光電鉄";
namex[5]="弘南鉄道";
namex[6]="津軽鉄道";
namex[7]="三陸鉄道";
namex[8]="福島交通";
namex[9]="阿武隈急行";
namex[10]="会津鉄道";
namex[11]="秋田内陸縦貫鉄道";
namex[12]="由利高原鉄道";
namex[13]="山形鉄道";
namex[14]="ＩＧＲいわて銀河鉄道";
namex[15]="青い森鉄道";
namex[16]="八戸臨海鉄道";
namex[17]="岩手開発鉄道";
namex[18]="仙台臨海鉄道";
namex[19]="福島臨海鉄道";
namex[20]="秋田臨海鉄道";
namex[21]="青函トンネル記念館";
namex[22]="仙台空港鉄道";
namex[23]="仙台市";
namex[24]="長野電鉄";
namex[25]="しなの鉄道";
namex[26]="上田電鉄";
namex[27]="アルピコ交通";
namex[28]="北越急行";
namex[29]="富山地方鉄道";
namex[30]="黒部峡谷鉄道";
namex[31]="北陸鉄道";
namex[32]="のと鉄道";
namex[33]="万葉線";
namex[34]="関西電力";
namex[35]="立山黒部貫光";
namex[36]="富山ライトレール";
namex[37]="東武鉄道";
namex[38]="西武鉄道";
namex[39]="京成電鉄";
namex[40]="京王電鉄";
namex[41]="東京急行電鉄";
namex[42]="小田急電鉄";
namex[43]="京浜急行電鉄";
namex[44]="相模鉄道";
namex[45]="東京地下鉄";
namex[46]="埼玉新都市交通";
namex[47]="埼玉高速鉄道";
namex[48]="新京成電鉄";
namex[49]="北総鉄道";
namex[50]="千葉都市モノレール";
namex[51]="東京モノレール";
namex[52]="横浜新都市交通";
namex[53]="ゆりかもめ";
namex[54]="東京臨海高速鉄道";
namex[55]="東葉高速鉄道";
namex[56]="多摩都市モノレール";
namex[57]="横浜高速鉄道";
namex[58]="ひたちなか海浜鉄道";
namex[59]="鹿島臨海鉄道";
namex[60]="関東鉄道";
namex[61]="野岩鉄道";
namex[62]="上信電鉄";
namex[63]="上毛電気鉄道";
namex[64]="秩父鉄道";
namex[65]="流鉄";
namex[66]="銚子電気鉄道";
namex[67]="小湊鉄道";
namex[68]="山万";
namex[69]="いすみ鉄道";
namex[70]="江ノ島電鉄";
namex[71]="真岡鐵道";
namex[72]="わたらせ渓谷鐵道";
namex[73]="湘南モノレール";
namex[74]="伊豆箱根鉄道";
namex[75]="箱根登山鉄道";
namex[76]="富士急行";
namex[77]="芝山鉄道";
namex[78]="筑波観光鉄道";
namex[79]="高尾登山電鉄";
namex[80]="御岳登山鉄道";
namex[81]="大山観光電鉄";
namex[82]="京葉臨海鉄道";
namex[83]="神奈川臨海鉄道";
namex[84]="舞浜リゾートライン";
namex[85]="首都圏新都市鉄道";
namex[86]="東京都";
namex[87]="横浜市";
namex[88]="名古屋鉄道";
namex[89]="伊豆急行";
namex[90]="岳南鉄道";
namex[91]="静岡鉄道";
namex[92]="大井川鐵道";
namex[93]="遠州鉄道";
namex[94]="天竜浜名湖鉄道";
namex[95]="豊橋鉄道";
namex[96]="明知鉄道";
namex[97]="長良川鉄道";
namex[98]="三岐鉄道";
namex[99]="伊勢鉄道";
namex[100]="福井鉄道";
namex[101]="愛知環状鉄道";
namex[102]="樽見鉄道";
namex[103]="東海交通事業";
namex[104]="名古屋ガイドウェイバス";
namex[105]="西濃鉄道";
namex[106]="名古屋臨海鉄道";
namex[107]="衣浦臨海鉄道";
namex[108]="えちぜん鉄道";
namex[109]="愛知高速交通";
namex[110]="名古屋臨海高速鉄道";
namex[111]="伊賀鉄道";
namex[112]="養老鉄道";
namex[113]="名古屋市";
namex[114]="近畿日本鉄道";
namex[115]="南海電気鉄道";
namex[116]="京阪電気鉄道";
namex[117]="阪急電鉄";
namex[118]="阪神電気鉄道";
namex[119]="北大阪急行電鉄";
namex[120]="大阪府都市開発";
namex[121]="神戸電鉄";
namex[122]="山陽電気鉄道";
namex[123]="神戸新交通";
namex[124]="大阪高速鉄道";
namex[125]="北神急行電鉄";
namex[126]="能勢電鉄";
namex[127]="阪堺電気軌道";
namex[128]="京福電気鉄道";
namex[129]="近江鉄道";
namex[130]="叡山電鉄";
namex[131]="水間鉄道";
namex[132]="北条鉄道";
namex[133]="紀州鉄道";
namex[134]="北近畿タンゴ鉄道";
namex[135]="信楽高原鐵道";
namex[136]="嵯峨野観光鉄道";
namex[137]="比叡山鉄道";
namex[138]="鞍馬寺";
namex[139]="丹後海陸交通";
namex[140]="六甲摩耶鉄道";
namex[141]="神戸市都市整備公社";
namex[142]="和歌山電鐵";
namex[143]="京都市";
namex[144]="大阪市";
namex[145]="神戸市";
namex[146]="岡山電気軌道";
namex[147]="一畑電車";
namex[148]="広島電鉄";
namex[149]="智頭急行";
namex[150]="若桜鉄道";
namex[151]="錦川鉄道";
namex[152]="広島高速交通";
namex[153]="井原鉄道";
namex[154]="スカイレールサービス";
namex[155]="水島臨海鉄道";
namex[156]="土佐電気鉄道";
namex[157]="高松琴平電気鉄道";
namex[158]="阿佐海岸鉄道";
namex[159]="伊予鉄道";
namex[160]="土佐くろしお鉄道";
namex[161]="四国ケーブル";
namex[162]="西日本鉄道";
namex[163]="北九州高速鉄道";
namex[164]="長崎電気軌道";
namex[165]="甘木鉄道";
namex[166]="筑豊電気鉄道";
namex[167]="島原鉄道";
namex[168]="熊本電気鉄道";
namex[169]="南阿蘇鉄道";
namex[170]="松浦鉄道";
namex[171]="平成筑豊鉄道";
namex[172]="くま川鉄道";
namex[173]="帆柱ケーブル";
namex[174]="岡本製作所";
namex[175]="肥薩おれんじ鉄道";
namex[176]="福岡市";
namex[177]="熊本市";
namex[178]="鹿児島市";
namex[179]="沖縄都市モノレール";
namex[180]="北海道旅客鉄道";
namex[181]="東日本旅客鉄道";
namex[182]="東海旅客鉄道";
namex[183]="西日本旅客鉄道";
namex[184]="四国旅客鉄道";
namex[185]="九州旅客鉄道";
namex[186]="日本貨物鉄道";
number_line=186;
for(s=4;s<459;s++){
comx[s]=""+v[s][0];
}
for(s=5;s<459;s++){
if(comx[s].indexOf("ＪＲ北海道")>-1)comx[s]=namex[180];
if(comx[s].indexOf("ＪＲ東日本")>-1)comx[s]=namex[181];
if(comx[s].indexOf("ＪＲ東海")>-1)comx[s]=namex[182];
if(comx[s].indexOf("ＪＲ西日本")>-1)comx[s]=namex[183];
if(comx[s].indexOf("ＪＲ四国")>-1)comx[s]=namex[184];
if(comx[s].indexOf("ＪＲ九州")>-1)comx[s]=namex[185];
if(comx[s].indexOf("ＪＲ貨物")>-1)comx[s]=namex[186];
if(comx[s].indexOf("JR北海道")>-1)comx[s]=namex[180];
if(comx[s].indexOf("JR東日本")>-1)comx[s]=namex[181];
if(comx[s].indexOf("JR東海")>-1)comx[s]=namex[182];
if(comx[s].indexOf("JR西日本")>-1)comx[s]=namex[183];
if(comx[s].indexOf("JR四国")>-1)comx[s]=namex[184];
if(comx[s].indexOf("JR九州")>-1)comx[s]=namex[185];
if(comx[s].indexOf("JR貨物")>-1)comx[s]=namex[186];
}
var point=new Array();
var number_point=new Array();
var delta=new Array();
for(s=1;s<number_line+1;s++){
point[s]=new Array();
}
for(s=1;s<number_line+1;s++){
number_point[s]=0;
}
for(s=1;s<number_line+1;s++){
h=0;
for(sx=7;sx<459;sx++){
if(comx[sx].indexOf(namex[s])>-1)h=h+1;
if(comx[sx].indexOf(namex[s])>-1)point[s][h]=sx;
}
number_point[s]=h;
}
for(s=1;s<number_line+1;s++){
delta[s]=new Array();
}
for(m=1;m<100;m++){
for(s=1;s<number_line+1;s++){
z=0;
for(sx=1;sx<number_point[s]+1;sx++){
s1=point[s][sx];
z=z+v[s1][m];
}
delta[s][m]=z;
}
}
sh2 = ex.getSheetByName("rev");
var vv=new Array();
for(s=0;s<number_line+1;s++){
vv[s]=new Array();
}
for(s=1;s<number_line+1;s++){
vv[s][0]=namex[s];
for(sx=1;s<10;sx++){
vv[s][sx]=delta[s][sx];
}}
sh2.getRange(1,1,number_line+1,10).setValues(vv);
}
最終更新：2017年08月19日 04:05
