var namex=new Array();
var line=new Array();
var comx=new Array();
var point=new Array();
var credit=new Array();
function myFunction() {
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=186;
for(s=0;s<number+1;s++){
point[s]=new Array();
}
var id="1UvXy4VFAF8lbYkg8Vs8d9dDQ3hEqTQ6T6UhBmPm5MW4";
ex = SpreadsheetApp.openById(id);
var sheet = ex.getSheetByName("data");
var v=sheet.getRange(1, 1,417,26).getValues();
for(s=1;s<417;s++){
line[s]=v[s][1]
comx[s]=v[s][0];
}
fastline=6;
lastline=416;
credit[ 1 ]=" 輸送人員定期通勤 ";
credit[ 2 ]=" 輸送人員定期通学 ";
credit[ 3 ]=" 輸送人員定期計 ";
credit[ 4 ]=" 輸送人員定期構成比 ";
credit[ 5 ]=" 輸送人員定期外 ";
credit[ 6 ]=" 輸送人員定期外構成比 ";
credit[ 7 ]=" 輸送人員合計 ";
credit[ 8 ]=" 手小荷物個数 ";
credit[ 9 ]=" 輸送トン数コンテナ ";
credit[ 10 ]=" 輸送トン数車扱 ";
credit[ 11 ]=" 輸送トン数合計 ";
credit[ 12 ]=" 輸送トン数合計前年度比 ";
for(s=fastline;s<lastline+1;s++){
h=0;
if(comx[s].length>1)h=h+1;
if(line[s].length<1)h=h+1;
if(h==2)line[s]="合計";
}
var pop=new Array();
for(s=fastline;s<lastline+1;s++){
if(comx[s].length<1)comx[s]=comx[s-1];
}
tr=0;
for(s=fastline;s<lastline+1;s++){
h=0;
z=0;
for(sx=1;sx<number+1;sx++){
if(comx[s]==namex[sx])z=100;
}
if(z>60)h=h+1;
if(line[s].length>1)h=h+1;
if(h==2)tr=tr+1;
if(h==2)pop[tr]=s;
}
number_line=tr;
for(s=1;s<number_line+1;s++){
sx=pop[s];
Logger.log(comx[sx]+","+line[sx]);
}
credit[ 1 ]=" 輸送人員定期通勤 ";
credit[ 2 ]=" 輸送人員定期通学 ";
credit[ 3 ]=" 輸送人員定期計 ";
credit[ 4 ]=" 輸送人員定期構成比 ";
credit[ 5 ]=" 輸送人員定期外 ";
credit[ 6 ]=" 輸送人員定期外構成比 ";
credit[ 7 ]=" 輸送人員合計 ";
credit[ 8 ]=" 手小荷物個数 ";
credit[ 9 ]=" 輸送トン数コンテナ ";
credit[ 10 ]=" 輸送トン数車扱 ";
credit[ 11 ]=" 輸送トン数合計 ";
credit[ 12 ]=" 輸送トン数合計前年度比 ";
for(s=0;s<number_line+1;s++){
point[s]=new Array();
}
for(s=1;s<number_line+1;s++){
for(n=1;n<13;n++){
point[s][n+1]=0;
}
}
for(s=1;s<number_line+1;s++){
sx=pop[s];
for(n=1;n<13;n++){
point[s][n+1]=v[sx][n+1];
}
}
for(s=1;s<13;s++){
point[0][s+1]=credit[s];
}
for(s=1;s<number_line+1;s++){
sx=pop[s];
point[s][0]=comx[sx];
point[s][1]=line[sx];
}
var shx = ex.getSheetByName("rev");
shx.getRange(1, 1,number_line+1,14).setValues(point);
}
最終更新：2017年04月02日 05:34
