おやじプログラマー日記 : BHT-BASIC4.0:配列のリサイズについて

BHT-BASICでは、直接配列のサイズを変更することはできません。 VisualBasicの様に Redim命令 があればいいのですが、 DIM命令 しかなく配列のサイズを変更する命令を持っていません。

配列のサイズ変更を無理やりやろうとすれば、配列を削除する ERASE命令 と DIM命令 を組み合わせて行うしかありません。

ERASE命令 は関数の引数として BYREF で渡された配列を操作することが不可能なので、 ERASE命令 と DIM命令 は同じところでやります。

以下にサンプルのソースを記します。

'---------------------------------------
'配列のサイズ取得
'---------------------------------------
'Function LenArr&((Byref arr$())
'引　数：
'	arr$()		：配列
'戻り値:
'	LenArr&		:サイズ(LONG型)
'---------------------------------------
	Function LenArr&(Byref arr$())
		On Error Goto LenArr.ErrProc
		DIM i&, w$
		FOR i& = 1 to 65534
			w$ = arr$(i&)
		NEXT i&
		LenArr& = i&
		Exit Function
LenArr.ErrProc
		LenArr& = i& - 1
	End Function

'---------------------------------------
'配列コピー
'---------------------------------------
'Sub CopyArr((Byref arrFrom$(), Byref arrTo$(), Byval arrLen&)
'引　数：
'	arrFrom$	:コピー元
'	arrTo$		:コピー先
'	arrLen&		:配列サイズ
'---------------------------------------
	Sub CopyArr(Byref arrFrom$(), Byref arrTo$(), Byval arrLen&)
		DIM i&
		FOR i& = 1 TO arrLen&
			arrTo$(i&) = arrFrom$(i&)
		NEXT i&
	End Sub

'-----
'実行はここから処理
'-----
Main
	SCREEN 1				'漢字モード
	LOCATE , , 2			'カーソルをブロック表示

DIM arrCD$(2)[40]		'3個の元のCODE配列
	DIM arrCDWK$(0)[40]		'1個のワークCODE配列
	DIM i&
	arrCD$(1) = "AAA"
	arrCD$(2) = "BBB"

'元の配列のサイズ取得
	i& = LenArr&(arrCD$)
	'ワーク配列を同じサイズで確保
	ERASE arrCDWK$
	DIM arrCDWK$(i&)
	'元の配列をワークにコピー
	Call CopyArr(arrCD$, arrCDWK$, i&)

'元の配列を削除して、領域＋１確保
	ERASE arrCD$
	DIM arrCD$(i& + 1)
	'ワークコピーから逆コピー
	Call CopyArr(arrCDWK$, arrCD$, i&)
	'新しいデータをコピー
	arrCD$(3) = "CCC"
	WAIT 0, &H1
	END

このプログラムは少し面倒なのですが、拡張したい配列と同等のワーク配列を用意し、元の配列のサイズを取得後、ワーク配列に内容を退避した後で、元の配列の大きさを拡張し、再度、ワークファイルからの逆コピーを行っています。

配列の拡張は結構面倒なので、他の方法としては、配列の代わりとしてデータファイルを用いて、エミュレートしてやった方がすっきりするかもしれません。

次回は、データファイルで行う方法を考えてみたと思います。

転職を本気で考えている方向けのプログラミングスクール！【WebCampPRO】