おやじプログラマー日記: BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２

文字列を扱うユーザ定義関数として使えそうなものを作成してみました。

関数定義	引数	戻り値
指定された文字列を分離文字列で分解 `Sub GsSplit$( Byval pstrSrc$, Byval pstrSplit$, Byref parr$())`	pstrSrc$:分離元文字列 pstrSplit$:分離文字列 parr$:分解先配列
指定文字で埋めて、右詰又は左詰で返す `Function GfPadd$( Byval pintMode%, Byval pstrBuf$, Byval pintLen%, Byval pstrPadChar$)[255]`	pintMode%:左詰(GcTrue%),右詰(GcFalse%) pstrBuf$:文字列 pintLen%:最終文字列長(最大255) pstrPadChar$：埋める文字	GfPadd$:結果文字列

'---------------------------------------
'指定された文字列を分離文字列で分解する
'---------------------------------------
'Sub GsSplit$(byval pstrSrc$, Byval pstrSplit$, Byref parr$())
'引　数：
'	pstrSrc$	:分離元文字列
'	pstrSplit$	:分離文字列
'	parr$		:分解先配列
'---------------------------------------
	Sub GsSplit$(byval pstrSrc$, Byval pstrSplit$, Byref parr$())
		'エラー処理宣言
		On Error Goto GsSplit.ErrProc

Private i%: i% = 1
		Private pos%: pos% = 1
		Private posLast%: posLast% = 1
		
		'区切り文字列を探す
		pos% = INSTR(posLast%, pstrSrc$, pstrSplit$)
		While pos% > 0
			'前回位置から、区切り文字列の前までを退避
			parr$(i%) = MID$(pstrSrc$, posLast%, pos% - posLast%)
			'指標++
			i% = i% + 1
			'前回位置を区切り文字列の次にする
			posLast% = pos% + LEN(pstrSplit$)
			'区切り文字列を探す
			pos% = INSTR(posLast%, pstrSrc$, pstrSplit$)
		Wend
		'最後の文字列
		parr$(i%) = MID$(pstrSrc$, posLast%)
GsSplit.Return	'関数戻り
		On Error Goto 0
		Exit Sub
'-----
'エラー処理
'-----
GsSplit.ErrProc
		Resume GsSplit.Return
	End Sub

'---------------------------------------
'指定文字で埋めて、右詰又は左詰で返す
'---------------------------------------
'Function GfPadd$(pintMode%, pstrBuf$, pintLen%, pstrPadChar$)[255]
'引　数：
'	pintMode%	:左詰(GcTrue%)か右詰(GcFalse%)か
'	pstrBuf$	:文字列
'	pintLen%	:最終文字列長(最大255)
'	pstrPadChar$：埋める文字
'戻り値:
'	GfPadd$		:結果文字列
'---------------------------------------
	Function GfPadd$(pintMode%, pstrBuf$, pintLen%, pstrPadChar$)[255]
		'エラー処理宣言
		On Error Goto GfPadd.ErrProc

Private intPad%, strTmp$[255]
		intPad% = pintLen% - Len(pstrBuf$)
		If intPad% > 0 Then
			strTmp$ = GfString$(pstrPadChar$, intPad%)
			If pintMode% = GcTrue% Then
				'左詰
				GfPadd$ = pstrBuf$ + strTmp$
			Else
				'右詰
				GfPadd$ = strTmp$ + pstrBuf$
			End If
		Else
			'そのまま返す
			GfPadd$ = pstrBuf$
		End If
GfPadd.Return	'関数戻り
		On Error Goto 0
		Exit Function
'-----
'エラー処理
'-----
GfPadd.ErrProc
		GfPadd$ = ""
		Resume GfPadd.Return
	End Function

これらの関数の実行ソースは以下の様になります。
これを実行すると以下の様な表示になります。