エクセル１８０°回転シートで制御部を自動作成（長さん）

既に述べたように、表計算ソフトで、長方形型
の将棋盤を表す領域を逆転させる関数として
Ｉｎｄｉｒｅｃｔ（）がある。この表計算関数
を使うには、間接参照させる為「１８０°回転
指示部」に、１３升目将棋の１８０°回転なら、
テキストファイルで、
M13,L13,K13,J13,I13,H13,G13,F13,E13,D13,C13,B13,A13,
M12,L12,K12,J12,I12,H12,G12,F12,E12,D12,C12,B12,A12,
M11,L11,K11,J11,I11,H11,G11,F11,E11,D11,C11,B11,A11,
M10,L10,K10,J10,I10,H10,G10,F10,E10,D10,C10,B10,A10,
M9,L9,K9,J9,I9,H9,G9,F9,E9,D9,C9,B9,A9,
M8,L8,K8,J8,I8,H8,G8,F8,E8,D8,C8,B8,A8,
M7,L7,K7,J7,I7,H7,G7,F7,E7,D7,C7,B7,A7,
M6,L6,K6,J6,I6,H6,G6,F6,E6,D6,C6,B6,A6,
M5,L5,K5,J5,I5,H5,G5,F5,E5,D5,C5,B5,A5,
M4,L4,K4,J4,I4,H4,G4,F4,E4,D4,C4,B4,A4,
M3,L3,K3,J3,I3,H3,G3,F3,E3,D3,C3,B3,A3,
M2,L2,K2,J2,I2,H2,G2,F2,E2,D2,C2,B2,A2,
M1,L1,K1,J1,I1,H1,G1,F1,E1,D1,C1,B1,A1,
を作成等して、米マイクロソフトのオフィスの、
たとえばエクセルを使用するとすれば「ＣＳＶ
取り込みする」などして、インダイレクト関数
が、１３升目部の間接参照が１８０°回転型で
できるようにしておくか。セルにＭ１３、
Ｍ１２・・と手打ち入力して行くかのどちらか
である。
　つまり、そのとき述べたように、この文字列
データは、「自動入力」出来無いからこそ、
エクセルで、乱れずに１３盤升目局面の１８０°
回転が出来るのである。
　しかし「手打ち入力」は、秦将棋の１８０°
回転のように、Ｍ１３・・ではなくて、Ｙ２５・
Ｙ２４・・・になったら、セルで６２５個の
単純作業で入力するハメに陥るので、

はなはだ面倒

である。
　そこで今回は日本電気㈱のＮ８８ＢＡＳＩＣ
の類で、テキストファイルを予め自動で作って
おくやり方を、本ブログで紹介する。
　以下には、米マイクロソフトのＱｂａｓｉｃ
Ｖｅｒ．１．１で、「クイックベーシック・
リファレンスマニュアル」を参照した上で、同
インタープリターに読ませる．ｂａｓ拡張子の
アスキー（＝テキスト）ファイルを作成したも
のを示している。
100 OPEN "test.txt" FOR OUTPUT AS #1
110 MASU% = 13
120 FOR I = MASU% TO 1 STEP -1
130 FOR J = MASU% TO 1 STEP -1
140 PRINT #1, CHR$(64 + J) + LTRIM$(STR$(I)); ",";
150 NEXT J
160 PRINT #1, ""
170 NEXT I
180 END
以上のいわゆる「ベーシックのプログラム」を
作成し、ＭＳＤＯＳ～ｗｉｎｄｏｗｓ９５時代
に「ベーシックのプログラム」言われた、この
ソースファイルを、インタープリターである米
マイクロソフト社ＱｂａｓｉｃＶｅｒ１．１
（≒クイックベーシック）に読ませると、
ｔｅｓｔ．ｔｘｔファイルを生成して、
Ｉｎｄｉｒｅｃｔ（）関数の「１８０°回転
指示部」作成取り込み用「．ＣＳＶファイル」
が、冒頭の文字列のように作られる。
　なお、実際には今回は、ｗｉｎｄｏｗｓ１０
３２ｂｉｔ版レガシーモードを使用し、
ＱＢａｓｉｃＶｅｒ．１．１（マイクロソフト）
を動作させてテスト作成してみた。
　上でＭＡＳＵ％＝１３となっている部分を、
ＭＡＳＵ％＝２５に変えると、平安大将棋型の
１３升目用ではなくて、２５升目の秦将棋用に
なる。
　また、冒頭で述べたように、マイクロソフト
のＱｂａｓｉｃは、日本電気㈱の、
Ｎ８８Ｂａｓｉｃ系統のＰＣアプリケーション
ソフトであり、「ＢＡＳＩＣ言語」属の
インタープリター・アプリケーション・ソフト
ウェアーであるが、言語使用は日本電気㈱型と、
米マイクロソフト型で細かくバラバラで、恐ら
く上記で、
LTRIM$(STR$(I))
と書かれた部分は、私の記憶では単に
STR$(I)
に変えないと、Ｎ８８Ｂａｓｉｃでは、動かな
かったはずである。
　ようするにＬＴＲＩＭ＄（）とかＲＴＲＩＭ
（）関数は、Ｎ８８ＢＡＳＩＣ（エハチハチ
ベーシック）には、無かったはずだ。つまり、
マイクロソフトのＱＢａｓｉｃや日本用に直し
たＱｕｉｃｋＢａｓｉｃ（クイックベーシック）
では、ＳＴＲ＄関数の引数が正整数のとき、
先頭に符号部の「スペース１個」を入れるが、
日本電気㈱Ｎ８８ＢａｓｉｃのＳＴＲ＄関数に、
そんなめんどくさい事が有ったという記憶が私
には無いという意味である。
　なお上記の、「ベーシックプログラム」は、
２６升目将棋以下用のものであり２７升目以上
７０２升目以下の場合には、ＩＮＴ（）関数や、
ＭＯＤ演算子で制御しながら、記したもの
より行数の多い、ベーシックプログラムを別途
作成して使う必要がある。ＡＡ例、ＡＢ列、
・・が、エクセル表で現れる為である。
100 OPEN "test.txt" FOR OUTPUT AS #1
110 MASU% = 36
120 KETA2%=INT(MASU%/26)
130 SAIGOKT1%=(MASU% MOD 26)
140 IF SAIGOKT1%=0 THEN KETA2%=KETA2%-1
150 '
160 FOR I = MASU% TO 1 STEP -1
170 '
180 IF KETA2%<2 THEN 500
190 IF SAIGOKT1%=0 THEN SAIGOKT1%=SAIGOKT1%+26
200 FOR J=SAIGOKT1% TO 1 STEP -1
210 PRINT #1, CHR$(64 + KETA2%) +CHR$(64 + J)+ LTRIM$(STR$(I)); ",";
220 NEXT J
300 '
310 FOR J=KETA2% TO 2 STEP -1
320 FOR K=26 TO 1 STEP -1
330 PRINT #1, CHR$(63 + J) +CHR$(64 + K)+ LTRIM$(STR$(I)); ",";
340 NEXT K
350 NEXT J
360 '
370 FOR K=26 TO 1 STEP -1
380 PRINT #1,CHR$(64 + K)+ LTRIM$(STR$(I)); ",";
390 NEXT K
400 GOTO 980
490 '
500 IF KETA2%<1 THEN 900
510 IF SAIGOKT1%=0 THEN SAIGOKT1%=SAIGOKT1%+26
520 FOR J=SAIGOKT1% TO 1 STEP -1
530 PRINT #1, CHR$(65) +CHR$(64 + J)+ LTRIM$(STR$(I)); ",";
530 NEXT J
600 '
700 FOR K=26 TO 1 STEP -1
710 PRINT #1,CHR$(64 + K)+ LTRIM$(STR$(I)); ",";
720 NEXT K
730 GOTO 980
800 '
900 'KETA2%=0
905 IF SAIGOKT1%=0 THEN SAIGOKT1%=SAIGOKT1%+26
910 FOR K =SAIGOKT1% TO 1 STEP -1
920 PRINT #1, CHR$(64 + J) + LTRIM$(STR$(I)); ",";
930 NEXT J
940 GOTO 980
950 '
980 PRINT #1, ""
990 NEXT I
1000 END
　チェックしてい無いが、大局将棋用は上のよ
うな感じか？　７０２桁を超えるケースの
ベーシック・プログラムを、間違いなく作るの
は、相当しんどそうだ。ただし実用性は、余り
あるまいが。
　米マイクロソフトｑｂｖｅｒ１＿１．ｚｉｐ
は、供給サイトが今では不安定であるし日本語
ＱｕｉｃｋＢａｓｉｃ（クイックベーシック）
と違って、日本語でベーシックプログラムが
作成出来ず、それどころか、Ｕｓキーボードを
パソコンに繋がないと、キーボード入力出来な
いので厄介であるが。

多分だが、今述べた言語仕様が、エクセルの
ＶＢＡにも引き継がれている疑いが濃い

と見たので、エクセルＶＢＡは判らないが、
日本電気㈱のＮ８８Ｂａｓｉｃ系は使える管理
人は今回、米マイクロソフトのレガシー
ＱＢａｓｉｃＶｅｒ１．１で米マイクロソフト
のエクセルの冒頭問題に、試しに対処して見た
という、以上顛末である。(2023/07/24)