|目次|前ページ|次ページ| ─────────────────────────────────── 5.ストリングリストの追加シーケンスの説明 追加前の仕様は、ビジュアルコントロールモジュールに記載されています。 編集領域番号は、0 <--> 63 と 531,532,533,534 を指定できます。 ─────────────────────────────────── ビジュアルコントロールモジュールエラーの場合メッセージ窓を表示させたくない Rerr2 が 0以外の場合に発生します。 ◆ [777]エラー表示メッセード表示/非表示の設定 ※ sw=0 は非表示 sw=1 は表示する <esc>%999;777;;sw;;;;;;;; sp M ※ エラーが発生しても無視したい時非表示に設定 ※ (デフォルト)はエラー表示メッセードボックス表示 ----------------------------------------- sw <-- sw=0 は非表示 sw=1 は表示する D ERRMSG^ZVCM999 --------------------------------------------------------------------- ■<<<文字列リストのリスト件数を取得 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 <esc>%402;501;cid;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 D COUNT^ZVCMSTR6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数 Rselcnt -> リスト件数 Rmain -> リスト件数 --------------------------------------------------------------------- ■<<<文字列リストを<CR><LF>で全て結合したときのバイトサイズを取得 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 <esc>%402;502;cid;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 D SIZE^ZVCMSTR6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数 Rselcnt -> リスト件数 Rmain -> <CR><LF>で全て結合したときの文字数 --------------------------------------------------------------------- ■<<<指定した位置のリストを1件指定領域に格納 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- リストを1件の文字列を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで pos <-- インデックス(0,1,2,...) <esc>%402;503;cid;edit;;pos;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます editの領域 --> 指定した位置のリスト1件の文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- リストを1件の文字列を格納する領域(531,532,533,534)32763文字まで 0<->63 255文字まで pos <-- インデックス(0,1,2,...) D STRINGS^ZVCMSTR6 【応答メッセージ】 Rselno -> 取得したリスト1件の文字数 Rselcnt -> pos 範囲外のとき-1 editstr -> 指定した位置のリスト1件の文字列 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<プロパテイで使われる区切り記号を指定し全ての文字列を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 <esc>%402;504;cid;edit;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534) editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 D DELIMITER^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号と引用符で全て結合したときの文字数 Rselcnt -> リスト件数 rectの領域 -> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます rectstr -> 全ての文字列を区切り記号で結合した文字列 [*]文字列にデリミタ、空白、引用符、コントロールコードが含まれている 場合に引用符で囲まれます Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<カンマ(,)デリミタと引用符(")で全ての文字列を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 <esc>%402;505;cid;;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 D COMMATEXT^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号と引用符で全て結合したときの文字数 Rselcnt -> リスト件数 rectの領域 -> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます rectstr -> 全ての文字列を区切り記号で結合した文字列 [*]文字列にデリミタ、空白、引用符、コントロールコードが 含まれている場合に引用符で囲まれます Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<プロパテイで使われる引用符を指定 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで editstr <-- 引用符文字(1byte)(")(')等 rect <-- 531,532,533,534 を指定 <esc>%402;506;cid;edit;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534) editstr <-- 引用符文字(1byte)(")(')等 rect <-- 531,532,533,534 を指定 D QUOTECHAR^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号と引用符で全て結合したときの文字数 Rselcnt -> リスト件数 rectの領域 -> 全ての文字列を区切り記号で結合した文字列 引用符にも影響されます rectstr -> 全ての文字列を区切り記号で結合した文字列 [*]文字列にデリミタ、空白、引用符、コントロールコードが含まれている 場合に引用符で囲まれます Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<区切り記号を指定し全ての文字列を結合し取得する >>> --------------------------------------------------------------------- 【プロパテイで使われる区切り記号】には影響しません。 [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534) editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 <esc>%402;507;cid;edit;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 全ての文字列を区切り記号で結合した文字列 引用符は(")が使用された後除去されて格納されます 【文字列の末尾に余分な区切り記号が付きます】<CR><LF>を変換しているため。 --------------------------------------------------------------- 【プロパテイで使われる区切り記号】には影響しません。 [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 D NOQUOTE^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号で全て結合したときの文字数 Rselcnt -> リスト件数 rectの領域 -> 全ての文字列を区切り記号で結合した文字列 引用符は(")が使用された後除去されて格納されます rectstr -> 全ての文字列を区切り記号で結合した文字列 【文字列の末尾に余分な区切り記号が付きます】<CR><LF>を変換しているため。 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<プロパテイで使われる区切り記号を指定し全ての文字列を設定 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <--(531,532,533,534) editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 rectstr <-- 全ての文字列を区切り記号で結合した文字列 <esc>%402;508;cid;edit;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- 区切り記号文字(1byte)(,)(;)等 rect <-- 531,532,533,534 を指定 rectstr <-- 全ての文字列を区切り記号で結合した文字列 D SETDELIMITER^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<カンマ(,)デリミタと引用符(")で全ての文字列を結合し設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 rectstr <-- 全ての文字列を区切り記号で結合した文字列 <esc>%402;509;cid;;rect; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 rectstr <-- 全ての文字列を区切り記号で結合した文字列 D SETCOMMATEXT^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<現在の区切り記号で文字列リストの一部分を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534) editstr <--取得開始位置インデックス(0,1,2,...) rect <-- 531,532,533,534 を指定 count --> 取得希望件数 0:以降全件を取得 取得開始位置インデックス=0にすると先頭から全件 <esc>%402;510;cid;edit;rect;count;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 文字列リストの一部分を区切り記号で結合した取得文字列 [*]文字列が引用符で囲まれることはありません! --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534) 0<->63 255文字まで editstr <--取得開始位置インデックス(0,1,2,...) rect <-- 531,532,533,534 を指定 count --> 取得希望件数 0:全件を取得 取得開始位置インデックス=0にすると先頭から全件 D GETPORTION^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号で全て結合したときの文字数 Rselcnt -> 最後に取り出しされた位置インデックス 取得された件数がゼロ件の場合は 0 となる Rmain -> 実際に取得された件数(最大インデックスを越えた場合countと異なる) rectの領域 -> 文字列リストの一部分を区切り記号で結合した取得文字列 [*]文字列が引用符で囲まれることはありません! rectstr ->文字列リストの一部分を区切り記号で結合した取得文字列 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<現在の区切り記号で文字列リストを複数件追加する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <--(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- 現在の区切り記号で区切られた複数件のデータ [*]文字列を引用符で囲んではいけません! <esc>%402;511;cid;edit;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- 現在の区切り記号で区切られた複数件のデータ [*]文字列を引用符で囲んではいけません! D ADDBYDELIM^ZVCMSTR6 【応答メッセージ】 Rselno -> 区切り記号で全件を結合したときの文字数 Rselcnt -> 全体の総件数 Rmain -> 実際に追加された件数 Rerr2 --> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<プロパテイで使われる区切り記号を指定 >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <--(531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- 区切り記号文字(1byte)(,)(;)等 <esc>%402;504;cid;edit;0; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで 0<->63 255文字まで editstr <-- 区切り記号文字(1byte)(,)(;)等 D DELIMONLY^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) ─────────────────────────────────── ◆以下さらに追加しました[2008-2-7]【応答有り版】 ─────────────────────────────────── ■<<<ストリングリストをファイルからロードする>>> --------------------------------------------------------------------- 【注記】以下場合は既存の【応答無版】です <esc>%402;441;cid;edit;; sp M D LOADFILE^ZVCMSTR [1] シーケンス cid <== ストリングリストのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534) 0<->63 255文字まで editstr <-- ファイル名 <esc>%402;610;cid;edit;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534) 0<->63 255文字まで editstr <-- ファイル名 D LOADFROMFILE^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<ストリングリストをファイルに保存する>>> --------------------------------------------------------------------- 【注記】以下場合は既存の【応答無版】です <esc>%402;442;cid;edit;; sp M D SAVEFILE^ZVCMSTR [1] シーケンス cid <== ストリングリストのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534) 0<->63 255文字まで editstr <-- ファイル名 <esc>%402;611;cid;edit;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストのコントロールid番号 edit <-- ファイル名を格納する領域(531,532,533,534) 0<->63 255文字まで editstr <-- ファイル名 D SAVETOFILE^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<ストリングリストをストリームからロードする>>> --------------------------------------------------------------------- 【注記】以下場合は既存の【応答無版】です <esc>%402;270;cid;edit;;;srccid;; sp M D LOADFILE^ZVCMSTR [1] シーケンス cid <== ストリングリストのコントロールid番号 srccid <-- ストリームのコントロールid番号 offset <-- ソースストリームの読み書きを行う位置指定 0: ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭から) 1: ソースストリームの現在オフセット値 <esc>%402;670;cid;;;srccid;offset;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストのコントロールid番号 srccid <-- ストリームのコントロールid番号 offset <-- ソースストリームの読み書きを行う位置指定 0: ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭から) 1: ソースストリームの現在オフセット値 D LOADFROMSTREAM^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<ストリングリストをストリームに保存する>>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストのコントロールid番号 dstcid <-- ストリームのコントロールid番号 offset <-- 保存先ストリームの読み書きを行う位置指定 0: 保存先ストリームの読み書きを行うオフセット値を0に 設定してから行います 1: 保存先ストリームの現在オフセット値 <esc>%402;671;cid;;;dstcid;offset;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストのコントロールid番号 dstcid <-- ストリームのコントロールid番号 offset <-- 保存先ストリームの読み書きを行う位置指定 0: 保存先ストリームの読み書きを行うオフセット値を0に 設定してから行います(先頭に保存) 1: 保存先ストリームの現在オフセット値 D SAVETOSTREAM^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<ストリングリストを別のストリングリストから設定する>>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 <esc>%402;633;cid;;;srccid sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストのコントロールid番号 srccid <-- ストリングリストのコントロールid番号 D ASSIGN6^ZVCMSTR6 【応答メッセージ】 Rselno -> 文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程や例外発生エラー) --------------------------------------------------------------------- ■<<<<CR><LF>区切りで全ての文字列を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 <esc>%402;702;cid;;rect;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> <CR><LF>区切りで結合した文字列 --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 rect <-- 531,532,533,534 を指定 D CRLFTEXT^ZVCMSTR6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数 Rselcnt -> リスト件数 rectの領域 -> <CR><LF>区切りで結合した文字列 rectstr -> <CR><LF>区切りで結合した文字列 [*]rect文字列を取得するにはコントロールA等の終端文字を指定します Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<<CR><LF>で文字列リストの一部分を結合し取得する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで 0<->63 255文字まで editstr <--取得開始位置インデックス(0,1,2,...) rect <-- 531,532,533,534 を指定 count --> 取得希望件数 0:以降全件を取得 取得開始位置インデックス=0にすると先頭から全件 <esc>%402;703;cid;edit;rect;count;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます rectの領域 --> 文字列リストの一部分を<CR><LF>で結合した取得文字列 [*]文字列が引用符で囲まれることはありません! --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- (531,532,533,534)32763文字まで 0<->63 255文字まで editstr <--取得開始位置インデックス(0,1,2,...) rect <-- 531,532,533,534 を指定 count --> 取得希望件数 0:全件を取得 取得開始位置インデックス=0にすると先頭から全件 D CRLFPORTION^ZVCMSTR6 【応答メッセージ】 Rselno -> <CR><LF>で全て結合したときの文字数 Rselcnt -> 最後に取り出しされた位置インデックス 取得された件数がゼロ件の場合は 0 となる Rmain -> 実際に取得された件数(最大インデックスを越えた場合countと異なる) rectの領域 -> 文字列リストの一部分を<CR><LF>で結合した取得文字列 [*]文字列が引用符で囲まれることはありません! rectstr ->文字列リストの一部分を<CR><LF>で結合した取得文字列 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) --------------------------------------------------------------------- ■<<<<CR><LF>区切りで全ての文字列を設定する >>> --------------------------------------------------------------------- [1] シーケンス cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- 531,532,533,534 を指定 <esc>%402;718;cid;edit;;;; sp M 【応答メッセージ】がtelnetサーバから送信されて来ます --------------------------------------------------------------- [2] Cache用共通関数 cid <== ストリングリストオブジェクトのコントロールid番号 edit <-- 531,532,533,534 を指定 [*]<CR>または<LF>で区切ったテキストを指定します D SETTEXT6^ZVCMSTR6 【応答メッセージ】 Rselno -> <CR><LF>区切りで全て結合したときの文字数 Rselcnt -> リスト件数 Rerr2 -> 内部エラー(処理の過程やAPIの戻り値エラー) ─────────────────────────────────── 5 |目次|前ページ|次ページ|