| 添付ファイルは後日削除しますので、イベント処理のリストを掲載しておきます。
名札 メイン
*
手続き定義開始 cmdテキストデータ出力Click( ) 変数宣言 自動,文字列{ &title = "cmdテキストデータ出力Click( )", &msg } 変数宣言 自動,文字列{ &studentName } 変数宣言 自動,文字列{ &year } 変数宣言 自動,文字列{ &indexTblName = #一括パス名 + "index" } 変数宣言 自動,文字列{ &outputTxtName = #一括パス名 + "test.txt" } 変数宣言 自動,整数 { &multiTblNum } 変数宣言 自動,整数 { &index } 変数宣言 自動,整数 { &status } 変数宣言 自動,整数 { &done } 変数宣言 自動,整数 { &ans } 変数宣言 自動,長整数{ &longError }
編集表 &hwindow 多重化 &multiTblNum = #is表 ┌if ( &multiTblNum ) │ │ *----- begin インデクス作成 -----* │ 並べ替え { [生徒氏名] 昇順, [修得時期] 昇順 } │ │ ジャンプ 行番号 = 先頭 │┌if ( .not #eof ) ││ ││ &studentName = [生徒氏名] ││ &year = [修得時期] ││ &index = 1 ││ ││ 行訂正 [インデックス] = &index ││ **トレース出力 _#行番号, " ", &studentName, " ", _&year, " ", _&index │└end │ │┌繰り返し ( .not #eof ) ││ ジャンプ 行番号 = 次行 ││ ││┌if ( .not #eof ) │││ │││┌if ( [生徒氏名] = &studentName ) ││││ ││││┌if ( [修得時期] <> &year ) │││││ &index = &index + 1 ││││└end │││├else ││││ ││││ &index = 1 │││└end │││ │││ 行訂正 [インデックス] = &index │││ **トレース出力 _#行番号, " ", &studentName, " ", _&year, " ", _&index │││ │││ &studentName = [生徒氏名] │││ &year = [修得時期] ││└end ││ │└繰り返し終了 │ *----- end インデクス作成 -----* │ │ *----- begin インデクスファイル書き出し -----* │ 絞り込み 単一化 = { [生徒氏名], [修得時期], [インデックス] } │ 書き出し 表, &indexTblName, 終了状態 = &status, { [生徒氏名], [修得時期], [インデックス] } │ トレース出力 _&status │ 絞り込み解除 * │ *----- end インデクスファイル書き出し -----* │ │ *----- begin テキストファイル作成 -----* │ 印字終了 │ 印字開始 &outputTxtName, 終了状態 = &status │ トレース出力 _&status │┌if ( &status = 1 ) ││ ││ ジャンプ 行番号 = 先頭 ││ &studentName = [生徒氏名] ││ &done = 0 ││┌繰り返し ( .not #eof ) │││ │││┌if ( [生徒氏名] <> &studentName ) ││││ &done = 0 ││││ &studentName = [生徒氏名] │││└end │││ │││┌if ( [インデックス] = 1 .and .not &done ) ││││ 手続き実行 prc見出し印字( &indexTblName, &studentName ) ││││ &done = 1 │││└end │││ 編集表 &multiTblNum │││ │││ 印字 [生徒氏名], _09, [科目名], _09, #cond( [インデックス] = 1, [評価] ), _09, #cond( [インデックス] = 2, [評価] ), _09, #cond( [インデックス] = 3, [評価] ), _13, _10, │││ **トレース出力 [生徒氏名], " _09 ", [科目名], " _09 ", #cond( [インデックス] = 1, [評価] ), " _09 ", #cond( [インデックス] = 2, [評価] ), " _09 ", #cond( [インデックス] = 3, [評価] ), " _13, _10" │││ │││ ジャンプ 行番号 = 次行 ││└繰り返し終了 ││ ││ 印字終了 ││ &msg = "タブ区切り形式のテキストファイルを出力しました" ││ &msg = &msg + "\n\n&outputTxtName = " + #文字置換( &outputTxtName, "\", "\\" ) ││ &msg = &msg + "\n\nファイルを見ますか?" ││ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 5, 制御文字展開 = する, &ans ││┌if ( &ans = 6 ) │││ シェル実行 &outputTxtName, &longError ││└end │├else ││ ││ &msg = "コマンドの実行に失敗しました" ││ &msg = &msg + "\n\n印字開始 &outputTxtName, 終了状態 = &status ││ &msg = &msg + "\n\n&outputTxtName = " + #文字置換( &outputTxtName, "\", "\\" ) ││ &msg = &msg + "\n\n&status = " + #str( &status ) ││ メッセージボックス &title, &msg, アイコン = e, ボタン指定 = 1, 制御文字展開 = する, &ans │└end │ *----- end テキストファイル作成 -----* │ │ 終了 表 &multiTblNum └end 編集表 &hwindow
&msg = "done" **メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する
手続き定義終了
手続き定義開始 prc見出し印字( 文字列 &indexTblName, 文字列 &studentName ) 変数宣言 自動,文字列{ &title = "prc見出し印字( )", &msg } 変数宣言 自動,文字列{ &expression, &WQ = #jis( #hex("22") ) } 変数宣言 自動,整数 { &tblNum } 変数宣言 自動,整数 { &reccount }
表 &indexTblName 解除 * &tblNum = #is表
&expression = &WQ + &studentName + &WQ 絞り込み [生徒氏名]_&expression &reccount = &選択件数 ┌繰り返し ( .not #eof ) │ │┌if ( #行番号 = 1 ) ││ ││ 印字 [生徒氏名], _09, "科目名", ││ **トレース出力 [生徒氏名], " _09 ", "科目名" │└end │ 印字 _09, [修得時期], │ **トレース出力 " _09 ", [修得時期] │ │ ジャンプ 行番号 = 次行 └繰り返し終了 印字 _13, _10, **トレース出力 " _13, _10"
終了 表 &tblNum
&msg = #文字置換( &indexTblName, "\", "\\" ) &msg = &msg + "\n\n" + &studentName **メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する
手続き定義終了
|