おやじプログラマー日記

データファイルのファイル削除やレコード削除を行う場合、 その都度 KILL命令 や CLFILE命令  を実行するよりもラッパ関数を作って、それをコールする方がソース的にすっきりすると思います。

KILL命令の定義は以下の様です。

KILL命令のラッパ関数は以下の様になります。
'--------------------------------------- 'ファイル削除(KILL命令のラップ) '--------------------------------------- 'Function GfKill%(Byval pstrFileName$) '引　数： ' pstrFileName$ ：ファイル名 '--------------------------------------- Function GfKill%(Byval pstrFileName$) 'エラー処理宣言 On Error Goto GfKill.ErrProc '戻り値の初期化 GfKill% = GcFalse% '指定ファイル名の削除 KILL pstrFileName$ GfKill% = GcTrue% GfKill.Return '関数戻り On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfKill.ErrProc Resume GfKill.Return End Function エラー処理は何もしていませんが、ここでエラー内容などを表示するといいと思います。

データファイルに書き込む関数を以下の様に定義します。
CLFILE命令の定義は以下の様です。

CLFILE命令のラッパ関数は以下の様になります。
'--------------------------------------- 'ファイルレコード削除(CLFILE命令のラップ) '--------------------------------------- 'Function GfClFile%() '--------------------------------------- Function GfClFile% 'エラー処理宣言 On Error Goto GfClFile.ErrProc 'フィールドサイズ ' Const COL.CD% = 10 '上の関数[MfPutData%]で定義済み ' Const COL.NUM% = 26 '戻り値の初期化 GfClFile% = GcFalse% PRIVATE FILENO%, REC.CD$, REC.NUM$ 'TEST.DATファイルを、ファイル番号#1としてオープンします FILENO% = 1 OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647 FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$ 'レコード削除 CLFILE #FILENO% GfClFile% = GcTrue% GfClFile.Return '関数戻り If FILENO% > 0 Then Close FILENO% Endif On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfClFile.ErrProc Resume GfClFile.Return End Function
この関数は、"TEST.DAT"ファイルのレコード削除しかできない関数をラップしたものです。
FIELD命令はフィールド変数を固定でしか宣言できないのでこの様な感じになりました。 この部分を汎用性を持たせるのは少し大変なので、固定でもいいかなと思います。 方法が無いことは無いのですが、やはりFIELD命令がネックになります。

以下の関数は無理やり汎用性を持たせたCLFILE命令のラッパ関数です。
'--------------------------------------- 'ファイルレコード削除(CLFILE命令のラップ) '--------------------------------------- 'Function GfClFile2%(Byval pstrFileName$) '引　数： ' pstrFileName$ ：ファイル名 '--------------------------------------- Function GfClFile2%(Byval pstrFile$) 'エラー処理宣言 On Error Goto GfClFile2.ErrProc '戻り値の初期化 GfClFile2% = GcFalse% 'ファイル情報提供関数(FILE.FN3)の利用 PRIVATE INF$, FieldNum%, I%, FSZ%(16) '40 文字分の領域を確保 INF$ = " " CALL "FILE.FN3" .fcInfGetF pstrFile$,INF$ FieldNum% = ASC(MID$(INF$, 22, 1)) ' フィールド数の獲得 FOR I% = 1 TO 16 '各フィールド幅の取得 FSZ%(I%) = ASC(MID$(INF$, 22 + I%, 1)) NEXT PRIVATE FILENO%, W$ '指定ファイルを、ファイル番号#1としてオープンします FILENO% = 1 OPEN pstrFile$ AS FILENO% RECORD 2147483647 'フィールド定義をフィールド数毎に分けて処理 SELECT FieldNum% CASE 1 FIELD #FILENO%, FSZ%(1) AS W$ CASE 2 FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$ CASE 3 FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$ CASE 4 FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$ CASE 5 FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$, FSZ%(5) AS W$ CASE 6 FIELD #FILENO%, FSZ%(1) AS W$, FSZ%(2) AS W$, FSZ%(3) AS W$, FSZ%(4) AS W$, FSZ%(5) AS W$, FSZ%(6) AS W$ '....(この後必要な分作成???) END SELECT 'レコード削除 CLFILE #FILENO% GfClFile2% = GcTrue% GfClFile2.Return '関数戻り If FILENO% > 0 Then Close FILENO% Endif On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfClFile2.ErrProc Resume GfClFile2.Return End Function
ファイルのフィールド数、各フィールド幅の取得を行う為に、 拡張関数の "FILE.FN3" を使用しています。

INF$の内容は以下の通りです。

位置	文字数	データ内容	値
1	12	ファイル名	文字列
13	2	(システムリザーブ)	-
15	2	最大レコード数	1～32767
17	2	レコード数	1～32767
19	2	1クラスタあたりのレコード数	0
21	1	レコード長	1～255
22	1	フィールド数	1～16
23	16	各フィールドのフィールド幅	1～254
39	2	(システムリザーブ)	-

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】 価格： 208,980円 （2016/11/26 22:01時点 ）

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

ユーザ関数の引数の仮変数を普通の変数の様に使用することができます。 但し、文字列型変数の場合文字列長に関して注意する点があります。

今回は仮のユーザ関数として以下の様なものを宣言します。
'--------------------------------------- '引き数の仮変数のテスト '--------------------------------------- 'Sub MsTest(Byval pstrCD$) '引　数： ' pstrCD$ :コード '--------------------------------------- Sub MsTest(Byval pstrCD$) 'エラー処理宣言 On Error Goto MsTest.ErrProc '3文字を設定 pstrCD$ = "123" PRINT "3文字を設定:" + pstrCD$ '4文字を設定 pstrCD$ = "1234" PRINT "4文字を設定:" + pstrCD$ '5文字を設定 pstrCD$ = "12345" PRINT "5文字を設定:" + pstrCD$ MsTest.Return '関数戻り On Error Goto 0 Exit Sub MsTest.ErrProc 'エラー発生時にエラーコード表示 PRINT "ERR=" + RIGHT$("00" + HEX$(ERR), 2) Resume MsTest.Return End Sub
この関数は仮変数である pstrCD$  に3文字～5文字までのテストデータを代入し単にその内容を表示しています。
尚、エラー処理では発生したエラーコードを表示させています。

上記の関数の動作をテストするソースを以下に記します。
SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 PRIVATE W$ W$ = "0001" '4文字データを代入 CALL MsTest(W$) '4文字データの変数の値を渡す WAIT 0, &h01 'キー入力待ち END
関数 MsTest の中でブレークポイントを設定し  pstrCD$ の 内容を表示させてみます。 以下の図は MsTest に制御が移った直後の  pstrCD$ ですが 文字列のサイズが4文字になっています。

呼出し元の変数 W$ はサイズが40文字のはずですが、 引き数としては4文字になっています。

さらにステップ実行すると以下の図になります。  pstrCD$ に"123"が設定されている様子です。
そのまま実行を継続すると、以下の図の表示なります。

5文字の設定のところでエラーが発生し、 エラーコードが 0F(16進数) と表示されます。 このエラー内容は  「文字列長が範囲外です。」 です。
※結果的に、ユーザ関数の引数の文字列型仮変数に代入する場合は 文字列長に注意が必要だということになります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】 価格： 208,980円 （2016/11/26 22:01時点 ）

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

データファイルの読み込みで、最初に既に入力されているコードを検索し、 そのコードに対応したレコード番号で行う場合があります。 データのメンテナンス処理ではこの方法が普通かと思います。

今回は標準関数の SEARCH関数 を使ってみます。


SEARCH関数の定義は以下の様です。

データファイルからコードを指定し検索する関数を以下の様に定義します。
'--------------------------------------- 'データ検索 '--------------------------------------- 'Function MfSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&) '引　数： ' pstrCD$ :コード ' pdblVal$ :数量 ' plngRecNo& :レコードNO '戻り値: ' MfSearchData% :読込OK:GcTrue%, NG:GcFalse% '--------------------------------------- Function MfSearchData%(Byval pstrCD$, Byref plngNum&, Byref plngRecNo&) 'エラー処理宣言 On Error Goto MfSearchData.ErrProc 'フィールドサイズ ' Const COL.CD% = 10 '上の関数[MfPutData%]で定義済み ' Const COL.NUM% = 26 '戻り値の初期化 MfSearchData% = GcFalse% PRIVATE FILENO%, REC.CD$, REC.NUM$ 'TEST.DATファイルを、ファイル番号#1としてオープンします FILENO% = 1 OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647 FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$ PRIVATE W$ W$ = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%) '既定の桁数分スペースを付加 IF plngRecNo& <= 0 THEN '先頭から検索 plngRecNo& = SEARCH(#FILENO%, REC.CD$, W$) ELSE '指定レコード位置から検索 plngRecNo& = SEARCH(#FILENO%, REC.CD$, W$, plngRecNo&) ENDIF IF plngRecNo& <> 0 THEN '読込 GET FILENO%, plngRecNo& '値を返す plngNum& = VAL(GfTrim$(REC.NUM$)) '数量 '正常を返す MfSearchData% = GcTrue% ENDIF MfSearchData.Return '関数戻り If FILENO% > 0 Then Close FILENO% Endif On Error Goto 0 Exit Function '----- 'エラー処理 '----- MfSearchData.ErrProc Resume MfSearchData.Return End Function
SEARCH関数 に指定する検索データは、 関数[MfPutData%]でコードの後ろにスペースを付加したので、その処理を行っています。
この時、ワーク変数の W$ を宣言していますが、 引き数の変数 pstrCD$ は、 コール元で代入された文字列長分しかサイズが無いので、 それ以上の長さの文字列を代入できないためです。

レコード番号の指定が０の場合は、ファイルの先頭からの検索を行います。

GcTEST.DAT$ 等の定数定義等に付いては以下の記事を参照して下さい。
BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）


上記の検索関数の動作をテストするソースを以下に記します。
SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 '最初は書き込み処理の連続 PRIVATE W% W% = MfPutData%("CD0001", 100, 0) W% = MfPutData%("CD0002", 102, 0) W% = MfPutData%("CD0101", 201, 0) W% = MfPutData%("CD0201", 202, 0) W% = MfPutData%("CD1001", 500, 0) W% = MfPutData%("CD0003", 1030, 0) W% = MfPutData%("CD0002", 1022, 0) PRIVATE CD$, RNO&, NUM& CD$ = "CD0101": RNO& = 0 W% = MfSearchData%(CD$, NUM&, RNO&) IF W% = GcTrue% THEN PRINT CD$ + "(" + STR$(RNO&) + "):" + STR$(NUM&) ELSE PRINT CD$ + ":Not Found" ENDIF CD$ = "CD0003": RNO& = 0 W% = MfSearchData%(CD$, NUM&, RNO&) IF W% = GcTrue% THEN PRINT CD$ + "(" + STR$(RNO&) + "):" + STR$(NUM&) ELSE PRINT CD$ + ":Not Found" ENDIF CD$ = "CD0002" 'RNO&は上の続きで W% = MfSearchData%(CD$, NUM&, RNO&) IF W% = GcTrue% THEN PRINT CD$ + "(" + STR$(RNO&) + "):" + STR$(NUM&) ELSE PRINT CD$ + ":Not Found" ENDIF WAIT 0, &h01 'キー入力待ち END
2番目の検索から分かるように、コードは順番に並んでいなくても検索できています。 つまり SEARCH関数 は、指定されたレコード位置からベタに検索し、 指定された検索データが等しいものが見つかった時点で、検索を止めるようです。

SEARCH関数 は特にバイナリサーチで行うわけではないので、 データ件数が多くて最後の方に目的のものが在る場合、時間が掛かるはずです。

ハンディターミナルで入力されたデータを検索する場合は、 そこまで入力件数が多いわけではないと思うので、 この SEARCH関数 でも 問題無いのでしょう。
このソースの実行結果は以下の図の様になります。

※尚、バイナリサーチに関しては、 拡張関数の中にバイナリサーチ処理関数(BSEARCH.FN3)があり、 これを使えば可能です。 この関数の使い方については別の記事で紹介します。

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


■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

データファイルの書き込み、読み込みの処理を行う場合、 その処理を行うそれぞれの場所で PUT命令 、  GET命令 を 行うのも冗長なので、 通常は関数化してそれをコールします。

今回テストデータファイルとして以下の2個のフィールドを持つファイルを想定します。

・第1フィールド：コードデータ（16バイト）
・第2フィールド：数量データ（12バイト）

 FIELD命令 は以下の様になります。
'フィールドサイズを定義 CONST COL.CD% = 16 'コード CONST COL.NUM% = 12 '数量 'フィールド変数 PRIVATE REC.CD$, REC.NUM$ 'フィールド定義 FIELD #1, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$ フィールドサイズをわざわざCONST命令で定義していますが、 この後でこれを有効に使います。 フィールドサイズをどこかで定義しておけば、 リテラルで FIELD命令 に記述するよりはソースがわかりやすと思います。


データファイルに書き込む関数を以下の様に定義します。
Const GcTEST.DAT$ = "TEST.DAT" '--------------------------------------- 'データ書込 '--------------------------------------- 'Function MfPutData%(Byval pstrCD$, Byval plngNum&, Byval plngRecNo&) '引　数： ' pstrCD$ :コード ' pdblVal$ :数量 ' plngRecNo& :レコードNO(0:レコード追加) '戻り値: ' MfPutData% :書込OK:GcTrue%, NG:GcFalse% '--------------------------------------- Function MfPutData%(Byval pstrCD$, Byval plngNum&, Byval plngRecNo&) 'エラー処理宣言 On Error Goto MfPutData.ErrProc 'フィールドサイズ Const COL.CD% = 16 Const COL.NUM% = 12 '戻り値の初期化 MfPutData% = GcFalse% PRIVATE FILENO%, REC.CD$, REC.NUM$ FILENO% = 0 'TEST.DATファイルを、ファイル番号#1としてオープンします FILENO% = 1 OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647 FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$ 'フィールドへデータ設定 REC.CD$ = LEFT$(pstrCD$ + GfSpc$(COL.CD%), COL.CD%) '既定の桁数分スペースを付加 REC.NUM$ = RIGHT$(GfSpc$(COL.NUM%) + STR$(plngNum&), COL.NUM%) '既定の桁数分スペースを付加 If plngRecNo& = 0 Then 'レコードNOが０の場合,レコードの最後尾に追加 PUT FILENO% Else 'レコードNOが指定された場合,レコードの上書 PUT FILENO%, plngRecNo& Endif '正常を返す MfPutData% = GcTrue% MfPutData.Return '関数戻り If FILENO% > 0 Then Close FILENO% Endif On Error Goto 0 Exit Function '----- 'エラー処理 '----- MfPutData.ErrProc Resume MfPutData.Return End Function
フィールド変数に値を設定するところで、 コードデータは右側に空白を付加してサイズ分のみ設定しています。 また、数値は文字列化後、左側にに空白を付加してサイズ分のみ設定しています。

レコード番号の指定が０の場合は、ファイルの最後尾に追加書込みし、 番号が呈されている場合はその番号で上書きします。


データファイルに書き込む関数を以下の様に定義します。
'--------------------------------------- 'データ読込 '--------------------------------------- 'Function MfGetData%(Byref pstrCD$, Byref plngNum&, Byval plngRecNo&) '引　数： ' pstrCD$ :コード ' pdblVal$ :数量 ' plngRecNo& :レコードNO '戻り値: ' MfGetData% :読込OK:GcTrue%, NG:GcFalse% '--------------------------------------- Function MfGetData%(Byref pstrCD$, Byref plngNum&, Byval plngRecNo&) 'エラー処理宣言 On Error Goto MfGetData.ErrProc 'フィールドサイズ ' Const COL.CD% = 10 '上の関数[MfPutData%]で定義済み ' Const COL.NUM% = 26 '戻り値の初期化 MfGetData% = GcFalse% PRIVATE FILENO%, REC.CD$, REC.NUM$ FILENO% = 0 'TEST.DATファイルを、ファイル番号#1としてオープンします FILENO% = 1 OPEN GcTEST.DAT$ AS FILENO% RECORD 2147483647 FIELD #FILENO%, COL.CD% AS REC.CD$, COL.NUM% AS REC.NUM$ IF plngRecNo& <= LOF(#FILENO%) THEN 'レコード数MAXを超えてはいない '読込 GET FILENO%, plngRecNo& '値を返す pstrCD$ = GfTrim$(REC.CD$) 'コード plngNum& = VAL(GfTrim$(REC.NUM$)) '数量 '正常を返す MfGetData% = GcTrue% ENDIF MfGetData.Return '関数戻り If FILENO% > 0 Then Close FILENO% Endif On Error Goto 0 Exit Function '----- 'エラー処理 '----- MfGetData.ErrProc Resume MfGetData.Return End Function
フィールド変数から値を返す変数に設定するところで、 GfTrim$ ユーザ関数で前後の空白を省いています。
レコード書込関数も読込関数もエラー処理では何もしていませんが、 エラー内容等を表示することも必要ではと思いますので、 実際のシステムで利用される方はご自身で追加してみて下さい。

尚、これらの関数を利用してテストしてみます。以下のソースにテスト処理を記述します。
SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 '最初は書き込み処理の連続 PRIVATE W% W% = MfPutData%("CD0001", 100, 0) W% = MfPutData%("CD0002", 102, 0) W% = MfPutData%("CD0101", 201, 0) W% = MfPutData%("CD0201", 202, 0) W% = MfPutData%("CD1001", 500, 0) PRIVATE CD$, NUM&, REC% REC% = 1 W% = GcTrue% '読み込み処理をレコード番号１から順次行う WHILE W% = GcTrue% W% = MfGetData%(CD$, NUM&, REC%) IF W% = GcTrue% THEN PRINT CD$ + ":" + STR$(NUM&) END IF REC% = REC% + 1 WEND WAIT 0, &h01 'キー入力待ち END
このソースの実行結果は以下の図の様になります。

MfGetData%関数のコールをレコード番号を１から順次カウントアップして与えています。 実際のレコードが無くなった時点で戻り値としてGcFalse%が返ってくるので、 その時にWHILEループが終わります。


実際にTEST.DAT をMTP接続か何かでパソコンにアップロードし内部を見てみると、 １レコードの区切りとしてCR,LFコードが付加されています。 これはいわゆるテキストファイルの改行コードそのものです）
よって、ファイルのサイズはレコード数×２バイト分増えることになります。



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



■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

ハンディスキャナのプログラムとして当然データを入力するわけですが、 何処に格納するかと言えば、やはりファイルとしてハンディスキャナの内部に書き込むことになります。

最近私が作成したシステムでは、 パソコンとのデータは全てデータファイル（テキストファイル）でやり取りを行うことにしました。 出庫処理などでは、作成された指示データをパソコンからダウンロードし、 そのデータに従って出庫の作業を行います。 また、入庫処理では検品チェックを行い、 ハンディに入庫処理データを登録します。 入庫処理では作業が終わった時点で、パソコンにアップロードし 後処理をパソコン側で行う様にしました。

パソコンとハンディターミナルを切り離して作業ができるので 既存のシステムにハンディターミナルのシステムを付加する場合には有効だと思います。

ハンディターミナルにはLAN接続できるものもありますので、 直接データベースにアクセスして処理を行うこともできますが、今回は見送りました。

ファイルの操作は昔のBASICと同じように  OPEN命令 でファイル番号を指定してオープン処理を行います。 データの読み書きは GET/PUT命令 で必ずレコード単位で行います。 処理後は CLOSE命令 でファイルをクローズします。

ファイルの格納先は内部Flashメモリと外部のmicroSD カードがあります。 それぞれの制約は以下の通りです。

仕様項目	内部メモリ(Flash)	外部メモリ(microSD カード)
最大ファイル数	420個	FAT32準拠
フォルダ作成	不可	可能
ファイル名の使用可能文字	英数字のみ 英字は,大文字/小文字の区別無	英数字,文字,スペース,ピリオドと 22種類の特殊文字
ファイル名の長さ制限	ファイル名：1～8文字 拡張子：1～3文字 (ファイル名と拡張子をピリオドで繋ぐ 但し、拡張子が無い場合はピリオドは要らない)	255文字 （ドライブ名およびフォルダ名を含めた場合は、259文字）
ドライブ名	Aドライブ Bドライブ	Dドライブ

データファイルのレコード、フィールドの制約は以下の通りです。

項目	制約内容
最大レコード件数	2,147,483,647(2G)※BHT搭載メモリサイズに依存
最大レコード長(バイト)	65,535
フィールド変数サイズ(文字)	8192
フィールド個数(個)	254

レコードとはデータファイルを読み書きする時の基本単位で、データ1件分のことです。 レコードは FIELD命令 でフォーマットを定義します。 １レコードの最大長は、各フィールドのサイズの合計です。


FIELD命令 の定義は以下の様になっています。

説明が前後しますが OPEN命令 の定義は以下の様になっています。

・同時にオープンできるのはバーコード、通信デバイスと合わせて16個までです。
・ファイル長は新規にファイルをオープンする時にしか機能せず、 既存のファイルをオープンする時には無視されます。


CLOSE命令 の定義は以下の様になっています。

・ファイル番号を省略するとオープン済みのファイルが全てクローズされます。
・クローズすればファイル番号は再利用可能です。
・オープンされていないファイル番号を指定しても、エラーは発生しません。

OPEN命令 、CLOSE命令 はファイル操作の最初と最後の処理で、 実際にデータを書き込む命令としての PUT命令 があります。

・レコードへの書込みは FIELD命令 で定義された、 フィールド変数を介して行われます。（PUTする前にフィールド変数へ値を設定します）
・レコード番号を省略すると、現在の最大レコード番号＋１の位置にレコードが書き込まれます。
・レコード番号は順番通りに指定しなくても書込みはOKで、 飛ばしたレコード番号の位置のレコードには空白が設定されます。
・レコードはテキストデータ（ASCII文字列）しか扱えないので、 数値データは STR$関数 で文字列に変換してからフィールド変数に設定します。


GET命令 の定義は以下の様になっています。

・ファイル番号で指定されたデータファイルから、レコード番号で指定されたレコードを読み込み、フィールド変数にデータを設定します。
・レコードが1件もないと実行時エラーが発生します。
・レコード番号を省略したときは、1つ前のGET命令で読んだレコード番号＋１の番号のレコードが読まれます。
　（最終レコードの次をGETすると実行時エラーが発生します。）
・レコード番号が最大レコード数より大きいと実行時エラーが発生します。


データファイルを扱う命令は基本的に以下の様な順番で行います。

(1)フィールド変数の宣言
(2) OPEN命令 
(3) FIELD命令 
(4) PUT命令 
(5) GET命令 
(6) CLOSE命令 

実際はこの順番でなくても良くて、PUT命令しかなかったり、GET命令だけの処理かもしれません。

以下の簡単なソースで例を示します。
SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 'フィールド変数定義 PRIVATE REC1$, REC2$, REC3$, REC4$ 'ファイル番号変数 PRIVATE FILENO% 'ファイル番号#1としてオープン FILENO% = 1 OPEN "TEST.DAT" AS FILENO% RECORD 2147483647 FIELD #FILENO%, 2 AS REC1$, 4 AS REC2$, 8 AS REC3$, 16 AS REC4$ 'フィールド変数に値設定 REC1$ = "AB" REC2$ = "12345" '文字列多目 REC3$ = "CDEFG" '文字列少な目 REC4$ = "0123456789012345" 'レコード書込み(先頭レコード) PUT #FILENO%, 1 'フィールド変数クリア REC1$ = "" REC2$ = "" REC3$ = "" REC4$ = "" 'レコード読込み GET #FILENO%, 1 'ファイルクローズ CLOSE #FILENO% 'フィールド変数の表示 PRINT "1:[" + REC1$ + "]" PRINT "2:[" + REC2$ + "]" PRINT "3:[" + REC3$ + "]" PRINT "4:[" + REC4$ + "]" WAIT 0, &h01 'キー入力待ち END
このソースの実行結果は以下の図の様になります。

フィールド変数REC2$には文字列を多目に設定していますが、 あふれた分は無視されていることが分かります。
また、REC3$には文字列を少な目に設定しましたが、 GETした結果は同じ文字列が返ってきました。 データファイルの中身には足りない分には空白が入っているようですが、 実際に読みだすと削除されてくるようです。
もし空白も読み出したいのであれば、 REC3$の設定で後ろの方に空白文字列を付加する必要があります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】 価格： 208,980円 （2016/11/26 22:01時点 ）

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

今までは何となく OUT命令 や  WAIT命令 を使ってきましたが、 ここで関連するI/Oポートの説明を行いたいと思います。 I/Oポートとは入力・出力ポートの略称で、 ハンディのCPUから見て外部装置に該当する キーボード、 LEDランプ、ブザーなどを制御するためのポート（外部メモリの様なもの）です。 I/Oポートは制御対象毎に別々のアドレスが割り当てられていて、 それへの入力命令が INP関数 で、 出力命令が OUTステートメント です。 また、I/Oポートの状態が指定状態になるまでプログラムを止めておく  WAITステートメント があります。

以下に私がプログラムで使用したポートについて一覧を記します。 ここに上げた以外のポートは各装置のマニアルを参照して下さい。

ポートNO (HEX)	bit	制御対象	R/W	データ			初期値
.pnEvent  (0000)	0	キーボードバッファ	R	-	0	データ無	-
				.pvEvKeyOn	1	データ有
	1	バーコードバッファ		-	0	データ無	-
				.pvEvBarOn	1	データ有
	2	トリガスイッチ		-	0	OFF	-
				.pvEvTrgOn	1	ON
	3	受信バッファ		-	0	データ無	-
				.pvEvtCmOn	1	データ有
	4	TIMEA関数		-	0	関数の値が0以外	-
				.pvEvTma0	1	関数の値が0
	5	TIMEB関数		-	0	関数の値が0以外	-
				.pvEvTmb0	1	関数の値が0
	6	TIMEC関数		-	0	関数の値が0以外	-
				.pvEvTmc0	1	関数の値が0
	7	CS(CTS)信号		-	0	常に0を返す	-
				.pvEvCsOn	1	-
.pnLEDCtrl  (0001)	0	表示LED(赤)	W	-	0	消灯	0
				.pvLEDRed	1	点灯
	1	表示LED(緑)		-	0	消灯	0
				.pvLEDGrn	1	点灯
	2	表示LED(青)		-	0	消灯	0
				.pvLEDBle	1	点灯
.pnFont  (6080)	0	表示フォント	R/W	.pvFtStd	0	標準フォント	0
				.pvFtSmall	1	小フォント
				サイズ指定(16,24,30,40)
.pnKeyEnt  (60B0)	0	キー入力方式	R/W	.pvKyNm	0	数字入力	0
				.pvKyAlpNm	1	英数字入力
.pnKeyMd  (60B1)	0	キー入力状態	R/W	.pvKMNm	0	数字	0
				.pvKMAlp	1	英字

例として先ずは、WAIT命令について説明します。

ポート番号で指定された入力ポートの内容を読込し、 AND パターンとXOR パターンで指定された値になるまで、 ユーザプログラムをこの命令で待つ様にします。

指定されたパターンになるまで命令が終わらないので、 指定値が間違っていると、命令から帰って来なくなり、 プログラムが止まってしまいますので、注意して下さい。
以下のソースがWAIT命令の使用例の関数なのですが、 ポート(0000)の0ビット目が1になるまで待っています。 WAIT命令を抜けてきた時点で、キーボードバッファにキー入力が在ることになるのでキーデータを1文字取得しています。
Function GfGetKey$ Wait 0, &h01 'キー入力待ち GfGetKey$ =Input$(1) '入力されたキーを取得して戻す。 End Function
次は、INP関数について説明します。

INP関数が返す値は整数型になります。 I/Oポートのデータは1バイトなので、整数型では最大でも255となります。
WAIT命令のところの関数の例をINP関数で置き換えると以下の様になります。
（ちょっと冗長すぎますね）
Function GfGetKey2$ PRIVATE W% W% = INP(0) WHILE (W% AND 1) = 0 W% = INP(0) WEND GfGetKey2$ =Input$(1) '入力されたキーを取得して戻す。 End Function
次は、OUT命令について説明します。

I/Oポートに割り振られていないポート番号を指定すると無視されます。 また、使用されているポート番号でも意味の無いBIT位置にデータを設定しても無視されます。
'数字入力方式に設定 OUT .pnKeyEnt, .pvKyAlpNm '英数字入力 OUT .pnKeyMd, .pvKMNm '数字 'フォントサイズ24ドット指定 OUT .pnFont , 24
最後にTIMER命令について説明します。
タイマは値を設定されてからカウントダウンが始まり、 カウント値が０になった時点で動きを止めます。 例えばある時間の待ちを作る場合に、カウンタに値を設定し、 カウンタを読込をループで行い その値が０になるのを待ちます。
ソースの例としては以下の様な感じです。
TIMEA = 100 '10秒設定 'TIMEAが0になったらループ終了 WHILE TIMEA > 0 WEND
この方法ですが、以下の様にしても同じことができます。
TIMEA = 100 '10秒設定 WAIT .pnEvent , .pvEvTma0 ' 0,&H10 TIMEA=0 待ち
尚、.pnEventなどのシステム定義定数は 「BHT-BASIC定義ファイル(BHTDEF.INC)」をプログラム先頭でインクルードする必要があります。 （このファイルですがDENSOの会員登録と装置の製品番号登録が必要なはずです。 DENSOのホームページからダウンロードして下さい）



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



■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

DENSOのハンディターミナルBHT-1300へのプログラム転送は「BHT-BASIC4.0 Creator」を使って行えます。 この場合、通信方法としてRS232C通信などを選択します）

しかし「BHT-BASIC4.0 Creator」がインストールされていないパソコンからプログラムを転送する場合、 BHT-1300の機種の様に直接USBケーブルでMTP接続で処理ができればいいのですが、 赤外線通信でUSBユニットでの通信しかない場合、DENSOさんの推奨ではWindowsの 「ハイパーターミナル」を使う様になっています。
Windowsの「ハイパーターミナル」は古いソフトで、 Windows7では標準では存在しないので、それに代わるターミナルソフトとして普及している 「TeraTerm」を利用します。（Vectorの以下のURLでダウンロードできます）

http://www.vector.co.jp/soft/win95/net/se320973.html

インストールは簡単で、メッセージに従えば特に問題無くできます。

以下に、「TeraTerm」を使った転送手順を記します。

パソコンにDENSOの「ActiveUSB-COMポートドライバ」がインストールされていることを確認します。 更に、USBで光通信ユニットと接続します。 （既に、光通信ユニットを使ってパソコンからデータファイルを転送できていればインストール済みです）

光通信ユニットにハンディターミナルを装着し、 「１」＋「ＳＦ」キーを押しながら電源ボタンを押して、電源を入れます。 「SYSTEM MENU」が表示されますので、「2：DOWNLOAD」を選択します。 その後「DOWNLOAD」メニューが表示されますので、「1：FILE」を選択します。
TeraTarmを起動すると最初に新しい接続の開始要求が行われます。 そこで、以下の図の様に「シリアル」の方を選択し、 「ポート」を「DENSO WAVE Active USB-COM Port」に設定します。


メニューの「設定(S)」⇒「シリアルポート(E)...」を選択すると以下の設定画面が表示されます。

項目名	設定値
ポート	COM5（ActiveUSB-COM）
ボー・レート	115200
データ	8 bit
パリティ	none
ストップ	1 bit
フロー制御	hardware

メニューの「ファイル(F)」⇒「転送(T)」⇒「YMODEM」⇒「送信(S)...」を選択すると以下のファイル選択画面が表示されます。
ここでは、ファイル名「HDY.PD4」を選びます。

その後、以下の様な転送中の画面が表示されます。

ハンディターミナル側も受信中の画面が表示されます。 ファイルの転送が終わるとハンディターミナル側ではブザー音が鳴り、 「Completed」が表示されるはずです。 これで、ハンディターミナル側は完了ですので、 電源を切って電源再投入で新しいプログラムが起動されるはずです。

「TeraTerm」側は以下の gC が表示されますが、 この状態で「ファイル(F)」⇒「接続断(D)」で接続を切ってください。



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

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

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

関数定義	引数	戻り値
指定された文字列を分離文字列で分解 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
これらの関数の実行ソースは以下の様になります。
'----- '実行はここから処理 '----- Main SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 PRINT "***GfPadd$" PRIVATE W$, W2$ W$ = GfPadd$(GcTrue%, "123", 5, " ") PRINT "[" + W$ + "]" W$ = GfPadd$(GcFalse%, "123", 5, "0") PRINT "[" + W$ + "]" PRINT "***GsSplit$" PRIVATE ARR$(10) CALL GsSplit$("123,AAA,!!!!!!!", ",", ARR$) FOR I% = 1 TO 3 PRINT "ARR$("; I%; PRINT ")="; ARR$(I%) NEXT WAIT 0, &h01 'キー入力待ち END これを実行すると以下の様な表示になります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】 価格： 208,980円 （2016/11/26 22:01時点 ）

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

文字列を扱うユーザ定義関数としてよくある感じのものを作成してみました。

関数定義	引数	戻り値
半角空白文字列生成 Function GfSpc$(byval pintCnt%)[128]	pintCnt%:文字数を指定	GfSpc$:空白文字列
右側半角空白削除 Function GfRTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfRTrim$:結果文字列
左側半角空白削除 Function GfLTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfRTrim$:結果文字列
前後の半角空白削除 Function GfTrim$(pstrValue$)[255]	pstrValue$:対象文字列	GfTrim$:結果文字列
文字列繰り返し Function GfString$(pintSize%, pstrChr$)[255]	pstrChr$:対象文字 pintSize%:文字数(最大1～255)	GfString$:結果文字列

以下のソースが5個の関数を宣言しています。
エラー処理を各関数に入れましたが、必要ないかもしれません。 また、引数の文字列の長さチェックは行っていませんので、必要ならば追加して下さい。
'--------------------------------------- '定数宣言:共通⇒(これは別ファイルにすべき) '--------------------------------------- Global GcTrue% : GcTrue% = -1 Global GcFalse% : GcFalse% = 0 '--------------------------------------- '半角空白文字列生成 '--------------------------------------- 'Function GfSpc$(byval pintCnt%)[128] '引　数： ' pintCnt% :文字数を指定 '戻り値: ' GfSpc$ :空白文字列 '--------------------------------------- Function GfSpc$(byval pintCnt%)[128] Private strSpc$[128]: strSpc$ = "" Private i% If pintCnt% > 128 Then pintCnt% = 128 Endif For i%=1 To pintCnt% strSpc$ = strSpc$ + " " Next GfSpc$ = strSpc$ End Function '--------------------------------------- '右側半角空白削除（Rtrim） '--------------------------------------- 'Function GfRTrim$(pstrValue$)[255] '引　数： ' pstrValue$ :対象文字列 '戻り値: ' GfRTrim$ :結果文字列 '--------------------------------------- Function GfRTrim$(pstrValue$)[255] 'エラー処理宣言 On Error Goto GfRTrim.ErrProc Private intCnt%, intIdx% '最後尾から空白以外の文字を探す intCnt% = 0 For intIdx% = Len(pstrValue$) To 1 Step -1 If Mid$(pstrValue$, intIdx%, 1) <> " " Then intCnt% = intIdx% intIdx% = 1 'ループを止める Endif Next '右側全ての空白を排除 GfRTrim$ = Left$(pstrValue$, intCnt%) GfRTrim.Return '関数戻り On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfRTrim.ErrProc GfRTrim$ = "" Resume GfRTrim.Return End Function '--------------------------------------- '左側半角空白削除（Rtrim） '--------------------------------------- 'Function GfLTrim$(pstrValue$)[255] '引　数： ' pstrValue$ :対象文字列 '戻り値: ' GfLTrim$ :結果文字列 '--------------------------------------- Function GfLTrim$(pstrValue$)[255] 'エラー処理宣言 On Error Goto GfLTrim.ErrProc Private intCnt% strTemp$ = "" '--- 左端からスペースではない文字を探していく For intCnt% = 1 To Len(pstrValue$) If Mid$(pstrValue$, intCnt%, 1) <> " " Then '空白では無い文字以降の文字列を戻す GfLTrim$ = Mid$(pstrValue$, intCnt%) intCnt% = Len(pstrValue$) End If Next intCnt% GfLTrim.Return '関数戻り On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfLTrim.ErrProc GfLTrim$ = "" Resume GfLTrim.Return End Function '--------------------------------------- '前後の半角空白削除（Trim） '--------------------------------------- 'Function GfTrim$(pstrValue$)[255] '引　数： ' pstrValue$ :対象文字列 '戻り値: ' GfTrim$ :結果文字列 '--------------------------------------- Function GfTrim$(pstrValue$)[255] Private strWK$[255] strWK$ = GfLTrim$(pstrValue$) '左側空白削除 GfTrim$ = GfRTrim$(strWK$) '右側空白削除 End Function '--------------------------------------- '文字列繰り返し '--------------------------------------- 'Function GfString$(pintSize%, pstrChr$)[255] '引　数： ' pstrChr$ :対象文字 ' pintSize% :文字数(最大1～255) '戻り値: ' GfString$ :結果文字列 '--------------------------------------- Function GfString$(pstrChr$, pintSize%)[255] 'エラー処理宣言 On Error Goto GfString.ErrProc Private intCnt%, strTemp$[255] strTemp$ = "" '文字数分の文字列連結 For intCnt% = 1 To pintSize% strTemp$ = strTemp$ + pstrChr$ Next intCnt% GfString$ = strTemp$ GfString.Return '関数戻り On Error Goto 0 Exit Function '----- 'エラー処理 '----- GfString.ErrProc GfString$ = "" Resume GfString.Return End Function
これらの関数の実行ソースは以下の様になります。
Sub DispData(Byval strP1$, Byval strP2$) PRINT "[" + strP1$ + "]=>[" + strP2$ + "]" End Sub '----- '実行はここから処理 '----- Main ' PRIVATE Num$, nRet%, intLoop% SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 PRINT "***GfRTrim$" PRIVATE W$, W2$ W$ = "1234 " W2$ = GfRTrim$(W$) CALL DispData(W$, W2$) W$ = "12 34 " W2$ = GfRTrim$(W$) CALL DispData(W$, W2$) W$ = "12 34 A" W2$ = GfRTrim$(W$) CALL DispData(W$, W2$) PRINT "***GfLTrim$" W$ = " 1234" W2$ = GfLTrim$(W$) CALL DispData(W$, W2$) W$ = " 12 34 " W2$ = GfLTrim$(W$) CALL DispData(W$, W2$) W$ = " 1234 A" W2$ = GfLTrim$(W$) CALL DispData(W$, W2$) PRINT "***GfTrim$" W$ = " 1234 " W2$ = GfTrim$(W$) CALL DispData(W$, W2$) W$ = " 12 34 " W2$ = GfTrim$(W$) CALL DispData(W$, W2$) PRINT "***GfString$" W$ = GfString$("@", 10) PRINT W$; WAIT 0, &h01 'キー入力待ち END これを実行すると以下の様な表示になります。

【DENSO】ハンディターミナルBHT-1306BWB＋USB通信ユニットCU-1321＋ACアダプタAD2＋標準バッテリBT-130L-C【送料無料・代引手数料無料】【02P05Nov16】 価格： 208,980円 （2016/11/26 22:01時点 ）

■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数の値渡し・参照渡しについて（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について

以前、ユーザ定義関数の値渡し・参照渡しについて記事にしましたが、 抜けていた項目もありますので、再度紹介します。

ユーザ定義関数を作成する場合に、何がしかの引数（ひきすう）を持つことはよくあります。 この引数の渡し方には、値渡し（call by value）と、 参照渡し（call by reference）の2種類があります。

値渡しとは、引数で渡された値を関数内では参照・変更できるが呼出し元の変数に影響を与えない。
参照渡しとは、引数で渡された値を関数内で変更した場合、呼出し元の変数に影響を与えます。 言い方を変えれば、関数内で参照する変数は、 呼出し元の変数を直接アクセスしています。 C言語的に言えば、参照つまり変数のポインタを引数で渡すことでしょうか。

よく関数は独立性を持たせるために、値渡しが推奨されますが、参照渡しには参照渡しの良さもあります。 値渡しの値そのものは関数を呼出す時に、ユーザ定義関数用スタックに格納されます。 （スタックなので積むと表現した方がしっくりきますが）
渡される値が文字列で非常に長い場合などは、スタックの消費が多くなりますし、 値そのものをスタックにコピーされる時間が多くかかります。 これを抑えるために参照渡しにすることがあります。

また、配列データを引数で渡す時には値渡しではできなく、参照渡しにしなければなりません。 配列データは多くのメモリ領域を必要とするため、BHT-BASICではメモリもそんなに多くないので、 参照渡しの仕様にしたのだと思います。

以下のソースがその例なのですが以下の4個の関数を宣言しています。
・TestByval の名前で値渡し関数
・TestByref の名前で参照渡し関数
・TestByval2%% の名前で値渡し値を返す関数
・TestArrByref の名前で配列・参照渡し関数

'File [MODULE1.SRC] '値渡し関数テスト Sub TestByval(byval pintWK%) pintWK% = pintWK% + 1 '引数の変数を変更できる PRINT "pintWK%="; pintWK% '変更確認 End Sub '参照渡し関数テスト Sub TestByref(byref pintWK%) pintWK% = pintWK% + 1 '引数の変数を変更できる PRINT "pintWK%="; pintWK% ' End Sub '値渡し関数テスト2 Function TestByval2%(byval pintWK%) pintWK% = pintWK% + 1 TestByval2% = pintWK% '戻り値で引数変数値を返す End Function '配列参照渡し関数テスト Sub TestArrByref(byref pintArrWK%()) PRIVATE I% FOR I% = 1 TO 4 PRINT "pintArrWK%("; I%; ")="; pintArrWK%(I%) '配列データに1加算 pintArrWK%(I%) = pintArrWK%(I%) + 1 NEXT I% End Sub '----- '実行はここから処理 '----- Main SCREEN 1 '漢字モード LOCATE , , 2 'カーソルをブロック表示 PRIVATE WK% WK% = 1 '値渡しの関数コール PRINT "値渡しの関数..." Call TestByval(WK%) PRINT "WK%="; WK% '参照渡しの関数コール PRINT "参照渡しの関数..." Call TestByref(WK%) PRINT "WK%="; WK% '値渡しの関数2コール PRINT "値渡しの関数2..." WK% = TestByval2%(WK%) PRINT "WK%="; WK% '配列を渡すテスト PRIVATE I%, ArrWK%(4) FOR I% = 1 TO 4 ArrWK%(I%) = I% * 10 NEXT I% Call TestArrByref(ArrWK%) PRIVATE W$ WAIT 0, &h01 'キー入力待ち W$ =Input$(1) '入力されたキーを取得して戻す。 PRINT "TestArrByrefコール後" FOR I% = 1 TO 4 PRINT "ArrWK%("; I%; ")="; ArrWK%(I%) NEXT I% WAIT 0, &h01 'キー入力待ち END
このソースの実行の様子は以下の様になります。（最初のキー入力待ちまでの表示）

値渡しの関数ではWK%が変更されないことが確認できます。 また、参照渡しの関数ではWK%が変更さたことが確認できます。

その後、配列データの変更がされたことを確認する表示が以下の様になります。




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


■関連記事
⇒BHT-BASIC:DENSOのハンディターミナルの開発言語のBHT-BASIC4.0を使ってみた
⇒BHT-BASIC4.0:変数宣言の書き方（BHT-1300）
⇒BHT-BASIC4.0:変数宣言の書き方その２（BHT-1300）
⇒BHT-BASIC4.0:ユーザ定義関数について（BHT-1300）
⇒BHT-BASIC4.0:演算子について（BHT-1300）
⇒BHT-BASIC4.0:画面への表示について（BHT-1300）
⇒BHT-BASIC4.0:キー入力について（BHT-1300）
⇒BHT-BASIC4.0:数値用キー入力関数（ユーザ定義関数）について（BHT-1300）
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数について
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその２
⇒BHT-BASIC4.0:文字列を扱うユーザ定義関数についてその３
⇒BHT-BASIC4.0:TeraTermを使ってDENSOのハンディターミナルにファイル(プログラム)転送を行う方法
⇒BHT-BASIC4.0:I/OポートとWAIT、さらにTIMERについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについて（BHT-1300）
⇒BHT-BASIC4.0:データファイルの取り扱いについてその２（書込み・読込みの実用的な関数）
⇒BHT-BASIC4.0:データファイルの検索について（SEARCH関数）
⇒BHT-BASIC4.0:ユーザ関数の引数の仮変数に対する代入の注意点
⇒BHT-BASIC4.0:データファイルの削除等について（KILL、CLFILEのラッパ関数）
⇒BHT-BASIC4.0:ファイルの存在確認関数を作ってみました
⇒BHT-BASIC4.0:拡張関数のバイナリサーチ処理関数(BSEARCH.FN3)の使い方
⇒BHT-BASIC4.0:拡張関数のサーチ処理関数(SEARCH.FN3)の使い方
⇒BHT-BASIC4.0:簡単なメニュー表示・選択を行うユーザ関数について
⇒BHT-BASIC4.0:ファイル伝送におけるXFILE命令の使い方
⇒BHT-BASIC4.0:バーコードの読込み（バーコードスキャン）について
⇒BHT-BASIC4.0:Bluetoothデバイスアドレス取得等について
⇒VB.NET:ハンディターミナル（BHT-1300等）とのデータファイルの送受信について