単独本決算用スクリプト

H.3 Windows 用スクリプトファイル

H.3.2 単独本決算用スクリプト

$b[204]=substr($xx,2942,14);

$b[205]=substr($xx,2956,14);

$b[206]=substr($xx,2970,14);

$b[207]=substr($xx,2984,14);

$b[208]=substr($xx,2998,14);

$b[209]=substr($xx,3012,14);

$b[210]=substr($xx,3026,14);

print OUT

"$a[1]\t$a[2]\t$a[3]\t$a[4]\t$a[5]\t$a[6]\t$a[7]\t$a[8]\t$a[9]\t$a[10]

\t$a[11]\t$a[12]\t$a[13]\t$a[14]\t$a[15]\t$a[16]\t$a[17]\t$a[18]\t$a[19]

\t$a[20]\t$a[21]\t$a[22]\t$a[23]\t$a[24]\t$a[25]\t$a[26]\t$a[27]\t$a[28]

\t$a[29]\t$a[30]\t$a[31]\t$a[32]

\t$b[1]\t$b[2]\t$b[3]\t$b[4]\t$b[5]\t$b[6]\t$b[7]\t$b[8]\t$b[9]\t$b[10]

\t$b[11]\t$b[12]\t$b[13]\t$b[14]\t$b[15]\t$b[16]\t$b[17]\t$b[18]\t$b[19]\t$b[20]

\t$b[21]\t$b[22]\t$b[23]\t$b[24]\t$b[25]\t$b[26]\t$b[27]\t$b[28]\t$b[29]\t$b[30]

\t$b[31]\t$b[32]\t$b[33]\t$b[34]\t$b[35]\t$b[36]\t$b[37]\t$b[38]\t$b[39]\t$b[40]

\t$b[41]\t$b[42]\t$b[43]\t$b[44]\t$b[45]\t$b[46]\t$b[47]\t$b[48]\t$b[49]\t$b[50]

\t$b[51]\t$b[52]\t$b[53]\t$b[54]\t$b[55]\t$b[56]\t$b[57]\t$b[58]\t$b[59]\t$b[60]

\t$b[61]\t$b[62]\t$b[63]\t$b[64]\t$b[65]\t$b[66]\t$b[67]\t$b[68]\t$b[69]\t$b[70]

\t$b[71]\t$b[72]\t$b[73]\t$b[74]\t$b[75]\t$b[76]\t$b[77]\t$b[78]\t$b[79]\t$b[80]

\t$b[81]\t$b[82]\t$b[83]\t$b[84]\t$b[85]\t$b[86]\t$b[87]\t$b[88]\t$b[89]\t$b[90]

\t$b[91]\t$b[92]\t$b[93]\t$b[94]\t$b[95]\t$b[96]\t$b[97]\t$b[98]\t$b[99]\t$b[100]

\t$b[101]\t$b[102]\t$b[103]\t$b[104]\t$b[105]\t$b[106]\t$b[107]\t$b[108]\t$b[109]

\t$b[110]\t$b[111]\t$b[112]\t$b[113]\t$b[114]\t$b[115]\t$b[116]\t$b[117]\t$b[118]

\t$b[119]\t$b[120]\t$b[121]\t$b[122]\t$b[123]\t$b[124]\t$b[125]\t$b[126]\t$b[127]

\t$b[128]\t$b[129]\t$b[130]\t$b[131]\t$b[132]\t$b[133]\t$b[134]\t$b[135]\t$b[136]

\t$b[137]\t$b[138]\t$b[139]\t$b[140]\t$b[141]\t$b[142]\t$b[143]\t$b[144]\t$b[145]

\t$b[146]\t$b[147]\t$b[148]\t$b[149]\t$b[150]\t$b[151]\t$b[152]\t$b[153]\t$b[154]

\t$b[155]\t$b[156]\t$b[157]\t$b[158]\t$b[159]\t$b[160]\t$b[161]\t$b[162]\t$b[163]

\t$b[164]\t$b[165]\t$b[166]\t$b[167]\t$b[168]\t$b[169]\t$b[170]\t$b[171]\t$b[172]

\t$b[173]\t$b[174]\t$b[175]\t$b[176]\t$b[177]\t$b[178]\t$b[179]\t$b[180]\t$b[181]

\t$b[182]\t$b[183]\t$b[184]\t$b[185]\t$b[186]\t$b[187]\t$b[188]\t$b[189]\t$b[190]

\t$b[191]\t$b[192]\t$b[193]\t$b[194]\t$b[195]\t$b[196]\t$b[197]\t$b[198]\t$b[199]

\t$b[200]\t$b[201]\t$b[202]\t$b[203]\t$b[204]\t$b[205]\t$b[206]\t$b[207]\t$b[208]

\t$b[209]\t$b[210]\n";

} while (eof(IN)!=1);

close (IN);

182

付録

H

データベース構築に関するスクリプトファイル

rm FA.data FB.data FC.data FD.data FE.data FF.data FG.data

#echo Finish!

ファイル

separate.pl

# code ファイルを読み込んで, 項目ごとの列に分割する.

# セパレータはタブ (\t) とする.

#####

open(IN,"@ARGV");

open(OUT,">temp");

#####

do{

read(IN,$xx,3041);

$a[1]=substr($xx,0,4);

$a[2]=substr($xx,4,8);

$a[3]=substr($xx,12,1);

$a[4]=substr($xx,13,7);

$a[5]=substr($xx,20,4);

$a[6]=substr($xx,24,5);

$a[7]=substr($xx,29,2);

$a[8]=substr($xx,31,1);

$a[9]=substr($xx,32,1);

$a[10]=substr($xx,33,1);

$a[11]=substr($xx,34,8);

$a[12]=substr($xx,42,17);

$a[13]=substr($xx,59,1);

$a[14]=substr($xx,60,1);

$a[15]=substr($xx,61,2);

$a[16]=substr($xx,63,1);

$a[17]=substr($xx,64,2);

$a[18]=substr($xx,66,1);

$a[19]=substr($xx,67,1);

$a[20]=substr($xx,68,5);

$a[21]=substr($xx,73,8);

$a[22]=substr($xx,81,6);

$a[23]=substr($xx,87,1);

$a[24]=substr($xx,88,1);

$a[25]=substr($xx,89,1);

$a[26]=substr($xx,90,1);

$a[27]=substr($xx,91,1);

$a[28]=substr($xx,92,1);

$a[29]=substr($xx,93,1);

$a[30]=substr($xx,94,1);

$a[31]=substr($xx,95,1);

$a[32]=substr($xx,96,4);

$b[1]=substr($xx,100,14);

$b[2]=substr($xx,114,14);

$b[3]=substr($xx,128,14);

$b[4]=substr($xx,142,14);

$b[5]=substr($xx,156,14);

$b[6]=substr($xx,170,14);

$b[7]=substr($xx,184,14);

$b[8]=substr($xx,198,14);

$b[9]=substr($xx,212,14);

$b[10]=substr($xx,226,14);

$b[11]=substr($xx,240,14);

$b[12]=substr($xx,254,14);

$b[13]=substr($xx,268,14);

$b[14]=substr($xx,282,14);

$b[15]=substr($xx,296,14);

$b[16]=substr($xx,310,14);

$b[17]=substr($xx,324,14);

$b[18]=substr($xx,338,14);

$b[19]=substr($xx,352,14);

$b[20]=substr($xx,366,14);

$b[21]=substr($xx,380,14);

$b[22]=substr($xx,394,14);

$b[23]=substr($xx,408,14);

$b[24]=substr($xx,422,14);

$b[25]=substr($xx,436,14);

$b[26]=substr($xx,450,14);

$b[27]=substr($xx,464,14);

$b[28]=substr($xx,478,14);

$b[29]=substr($xx,492,14);

$b[30]=substr($xx,506,14);

$b[32]=substr($xx,534,14);

$b[33]=substr($xx,548,14);

$b[34]=substr($xx,562,14);

$b[35]=substr($xx,576,14);

$b[36]=substr($xx,590,14);

$b[37]=substr($xx,604,14);

$b[38]=substr($xx,618,14);

$b[39]=substr($xx,632,14);

$b[40]=substr($xx,646,14);

$b[41]=substr($xx,660,14);

$b[42]=substr($xx,674,14);

$b[43]=substr($xx,688,14);

$b[44]=substr($xx,702,14);

$b[45]=substr($xx,716,14);

$b[46]=substr($xx,730,14);

$b[47]=substr($xx,744,14);

$b[48]=substr($xx,758,14);

$b[49]=substr($xx,772,14);

$b[50]=substr($xx,786,14);

$b[51]=substr($xx,800,14);

$b[52]=substr($xx,814,14);

$b[53]=substr($xx,828,14);

$b[54]=substr($xx,842,14);

$b[55]=substr($xx,856,14);

$b[56]=substr($xx,870,14);

$b[57]=substr($xx,884,14);

$b[58]=substr($xx,898,14);

$b[59]=substr($xx,912,14);

$b[60]=substr($xx,926,14);

$b[61]=substr($xx,940,14);

$b[62]=substr($xx,954,14);

$b[63]=substr($xx,968,14);

$b[64]=substr($xx,982,14);

$b[65]=substr($xx,996,14);

$b[66]=substr($xx,1010,14);

$b[67]=substr($xx,1024,14);

$b[68]=substr($xx,1038,14);

$b[69]=substr($xx,1052,14);

$b[70]=substr($xx,1066,14);

$b[71]=substr($xx,1080,14);

$b[72]=substr($xx,1094,14);

$b[73]=substr($xx,1108,14);

$b[74]=substr($xx,1122,14);

$b[75]=substr($xx,1136,14);

$b[76]=substr($xx,1150,14);

$b[77]=substr($xx,1164,14);

$b[78]=substr($xx,1178,14);

$b[79]=substr($xx,1192,14);

$b[80]=substr($xx,1206,14);

$b[81]=substr($xx,1220,14);

$b[82]=substr($xx,1234,14);

$b[83]=substr($xx,1248,14);

$b[84]=substr($xx,1262,14);

$b[85]=substr($xx,1276,14);

$b[86]=substr($xx,1290,14);

$b[87]=substr($xx,1304,14);

$b[88]=substr($xx,1318,14);

$b[89]=substr($xx,1332,14);

$b[90]=substr($xx,1346,14);

$b[91]=substr($xx,1360,14);

$b[92]=substr($xx,1374,14);

$b[93]=substr($xx,1388,14);

$b[94]=substr($xx,1402,14);

$b[95]=substr($xx,1416,14);

$b[96]=substr($xx,1430,14);

$b[97]=substr($xx,1444,14);

$b[98]=substr($xx,1458,14);

$b[99]=substr($xx,1472,14);

$b[100]=substr($xx,1486,14);

$b[101]=substr($xx,1500,14);

$b[102]=substr($xx,1514,14);

$b[103]=substr($xx,1528,14);

$b[104]=substr($xx,1542,14);

$b[105]=substr($xx,1556,14);

$b[106]=substr($xx,1570,14);

$b[107]=substr($xx,1584,14);

$b[108]=substr($xx,1598,14);

184

付録

H

データベース構築に関するスクリプトファイル

$b[109]=substr($xx,1612,14);

$b[110]=substr($xx,1626,14);

$b[111]=substr($xx,1640,14);

$b[112]=substr($xx,1654,14);

$b[113]=substr($xx,1668,14);

$b[114]=substr($xx,1682,14);

$b[115]=substr($xx,1696,14);

$b[116]=substr($xx,1710,14);

$b[117]=substr($xx,1724,14);

$b[118]=substr($xx,1738,14);

$b[119]=substr($xx,1752,14);

$b[120]=substr($xx,1766,14);

$b[121]=substr($xx,1780,14);

$b[122]=substr($xx,1794,14);

$b[123]=substr($xx,1808,14);

$b[124]=substr($xx,1822,14);

$b[125]=substr($xx,1836,14);

$b[126]=substr($xx,1850,14);

$b[127]=substr($xx,1864,14);

$b[128]=substr($xx,1878,14);

$b[129]=substr($xx,1892,14);

$b[130]=substr($xx,1906,14);

$b[131]=substr($xx,1920,14);

$b[132]=substr($xx,1934,14);

$b[133]=substr($xx,1948,14);

$b[134]=substr($xx,1962,14);

$b[135]=substr($xx,1976,14);

$b[136]=substr($xx,1990,14);

$b[137]=substr($xx,2004,14);

$b[138]=substr($xx,2018,14);

$b[139]=substr($xx,2032,14);

$b[140]=substr($xx,2046,14);

$b[141]=substr($xx,2060,14);

$b[142]=substr($xx,2074,14);

$b[143]=substr($xx,2088,14);

$b[144]=substr($xx,2102,14);

$b[145]=substr($xx,2116,14);

$b[146]=substr($xx,2130,14);

$b[147]=substr($xx,2144,14);

$b[148]=substr($xx,2158,14);

$b[149]=substr($xx,2172,14);

$b[150]=substr($xx,2186,14);

$b[151]=substr($xx,2200,14);

$b[152]=substr($xx,2214,14);

$b[153]=substr($xx,2228,14);

$b[154]=substr($xx,2242,14);

$b[155]=substr($xx,2256,14);

$b[156]=substr($xx,2270,14);

$b[157]=substr($xx,2284,14);

$b[158]=substr($xx,2298,14);

$b[159]=substr($xx,2312,14);

$b[160]=substr($xx,2326,14);

$b[161]=substr($xx,2340,14);

$b[162]=substr($xx,2354,14);

$b[163]=substr($xx,2368,14);

$b[164]=substr($xx,2382,14);

$b[165]=substr($xx,2396,14);

$b[166]=substr($xx,2410,14);

$b[167]=substr($xx,2424,14);

$b[168]=substr($xx,2438,14);

$b[169]=substr($xx,2452,14);

$b[170]=substr($xx,2466,14);

$b[171]=substr($xx,2480,14);

$b[172]=substr($xx,2494,14);

$b[173]=substr($xx,2508,14);

$b[174]=substr($xx,2522,14);

$b[175]=substr($xx,2536,14);

$b[176]=substr($xx,2550,14);

$b[177]=substr($xx,2564,14);

$b[178]=substr($xx,2578,14);

$b[179]=substr($xx,2592,14);

$b[180]=substr($xx,2606,14);

$b[181]=substr($xx,2620,14);

$b[182]=substr($xx,2634,14);

$b[183]=substr($xx,2648,14);

$b[184]=substr($xx,2662,14);

$b[185]=substr($xx,2676,14);

$b[186]=substr($xx,2690,14);

$b[188]=substr($xx,2718,14);

$b[189]=substr($xx,2732,14);

$b[190]=substr($xx,2746,14);

$b[191]=substr($xx,2760,14);

$b[192]=substr($xx,2774,14);

$b[193]=substr($xx,2788,14);

$b[194]=substr($xx,2802,14);

$b[195]=substr($xx,2816,14);

$b[196]=substr($xx,2830,14);

$b[197]=substr($xx,2844,14);

$b[198]=substr($xx,2858,14);

$b[199]=substr($xx,2872,14);

$b[200]=substr($xx,2886,14);

$b[201]=substr($xx,2900,14);

$b[202]=substr($xx,2914,14);

$b[203]=substr($xx,2928,14);