桐質問掲示板 [One Message View / Re[11]: 更新を判定出来ますか？]

■13866 / 11階層)

　更新を判定出来ますか？

□投稿者/ 困り犬 -(2023/07/12(Wed) 17:07:23)

■No13865に返信(ONnojiさんの記事)
> 簡単に仕掛けを解説をします。
>
> よろしければご参考にしてください。

せっかく作って頂いたので、貰いっぱなしは良くないと本日は

FW_オートINF_Framework_MkII.kex　と　要領書.kex　の　差異を見ていました。

・要領書.kexには　2行目に　変数宣言　局所，文字列｛ &mString ｝がある

・要領書.kexには　252行目　から　1296行目が追加してある（ここがカスタムして頂いた所ですよね？ありがたいです！）
>
> ＜手続き一覧＞
>
> 名札　メイン
>
> cmdStartupClick
>
> txtField_24::入力前
>
> txtField_24::入力後
> │
> └ prc項目値代入実行
>
> ■名札メイン
>
> 　　変数宣言　局所，文字列｛ &mString ｝
>
> 　局所変数を１つ宣言しています。
>
>
> ■入力前と入力後のイベントハンドラ
>
> 　txtField_1::入力前/txtField_1::入力後　～　txtField_100::入力前/txtField_100::入力後　とそれぞれ１００個あります。
> 　コピペではなく事前に印字コマンドを利用してまとめて作ったものを読み込んだものです。
>
> 以下の例はテキストオブジェクト：txtField_24 のイベントハンドラです。
>
> 手続き定義開始　txtField_24::入力前(参照　文字列　&編集文字列)
> 　&mString = &編集文字列
> 　トレース出力　&this, " ", _&mString, " 入力前"
> 手続き定義終了
>
> 手続き定義開始　txtField_24::入力後(参照　文字列　&編集文字列，長整数　&モード，参照　長整数　&入力継続)
> 　トレース出力　&this, " ", _&mString, " ", _&編集文字列, " 入力後"
> 　手続き実行　prc項目値代入実行( &this, &mString, &編集文字列 )
> 手続き定義終了
>
> 手続き定義開始　prc項目値代入実行( 文字列 &objectName, 文字列 &lastString, 文字列 &nowString )
> 　変数宣言　自動，文字列｛ &icon, &title = "prc項目値代入実行( )", &msg ｝
> 　変数宣言　自動，文字列｛ &source ｝
> 　トレース出力　&title + " 引数：&objectName = " + &objectName + " 引数：lastString = " + &lastString + " 引数：&nowString = " + &nowString
>
> 　オブジェクト操作　&objectName｛ &source = ソース｝
> 　if ( &lastString <> &nowString )
> 　　項目値代入　[更新日] = #日時値
> 　　トレース出力　&title + " 項目名" + &source + " の値が変更されたので、［項目値代入　[更新日] = #日時値］を実行しました"
> 　else
> 　　トレース出力　&title + " 項目名" + &source + " の値は変更されていません"
> 　end
>
> 手続き定義終了

要領書.wfxの定義で　txtField　が100まであったので、式は　txtField100　まであるのだろうと予想はできました。(書いてある内容は分からないのですが・・・)

txtField24　までは連番であるのに、その次が100なので　25　から　99　はどうやって省けるのか不思議に感じたました。

>
> ■開始時実行コマンドボタンから実行するプロシージャ
>
> 手続き定義開始　cmdStartupClick( )
> 　変数宣言　自動，文字列｛ &icon, &title = "cmdStartupClick( )", &msg ｝
> 　変数宣言　自動，文字列｛ &objectName ｝
> 　変数宣言　自動，文字列｛ &source ｝
> 　変数宣言　自動，整数　｛ &cnt ｝
>
> 　&msg = &EZWmFieldList1
> 　&icon = "i"
> 　**手続き実行　INFprcMsgPause( &icon, &title, &msg )
>
> 　&cnt = 1
> 　&objectName = #対応文字列( &EZWmFieldList1, &cnt )
> 　繰り返し　( &objectName <> #u )
>
> 　　オブジェクト操作　&objectName｛ &source = ソース｝
> 　　**トレース出力　_&cnt, " ", _&objectName, " ", _&source
>
> 　　**トレース出力　" if ( &source = ""[製品長]"" .or &source = ""[製品幅]"" ) = " + #str( ( &source = "[製品長]" .or &source = "[製品幅]" ) )
> 　　if ( &source = "[製品長]" .or &source = "[製品幅]" )
>
> 　　　オブジェクト操作　&objectName｛入力前 = 1, 入力後 = 1 ｝
> 　　end
>
> 　　&cnt = &cnt + 1
> 　　&objectName = #対応文字列( &EZWmFieldList1, &cnt )
> 　繰り返し終了
>
> 手続き定義終了

今回は　数値　を更新した時　更新日を本日に変更して頂く物を作って頂きました。

質問ですが、将来的に　文字列　を更新した時も　更新日を本日にしたい場合が出たときは

変数宣言　自動，整数　｛ &cnt ｝

と

&cnt = 1
&objectName = #対応文字列( &EZWmFieldList1, &cnt )
繰り返し　( &objectName <> #u )

がキモになるんですかね？

素人考えで申し訳ないです・・・

自分としては、せっかく作って貰った物を何も考えずに使うよりは、分からないなりに考えてみたいので！

[メール受信/OFF] 削除キー/

→Re[12]: 更新を判定出来ますか？ /ONnoji
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
更新を判定出来ますか？ / 困り犬 (23/07/10(Mon) 17:35) #13853
`└` Re[1]: 更新を判定出来ますか？ / ONnoji (23/07/10(Mon) 19:11) #13854
`└` Re[2]: 更新を判定出来ますか？ / 困り犬 (23/07/11(Tue) 08:25) #13855
`├` Re[3]: 更新を判定出来ますか？ / ONnoji (23/07/11(Tue) 10:12) #13856
`│└` Re[4]: 更新を判定出来ますか？ / 困り犬 (23/07/11(Tue) 10:41) #13857
`│ └` Re[5]: 更新を判定出来ますか？ / ONnoji (23/07/11(Tue) 11:19) #13859
`│ └` Re[6]: 更新を判定出来ますか？ / 困り犬 (23/07/11(Tue) 14:02) #13860
`│ └` Re[7]: 更新を判定出来ますか？ / ONnoji (23/07/11(Tue) 19:14) #13862
`│ └` Re[8]: 更新を判定出来ますか？ / 困り犬 (23/07/12(Wed) 09:09) #13863 解決済み!
`│ └` Re[9]: 更新を判定出来ますか？ / ONnoji (23/07/12(Wed) 10:15) #13864
`│ └` Re[10]: 更新を判定出来ますか？ / ONnoji (23/07/12(Wed) 15:24) #13865
`│ └` 更新を判定出来ますか？ / 困り犬 (23/07/12(Wed) 17:07) #13866 ←Now
`│ └` Re[12]: 更新を判定出来ますか？ / ONnoji (23/07/12(Wed) 18:03) #13867
`│ └` Re[13]: 更新を判定出来ますか？ / 困り犬 (23/07/13(Thu) 08:56) #13868
`│ └` Re[14]: 更新を判定出来ますか？ / ONnoji (23/07/13(Thu) 10:30) #13869
`│ └` Re[15]: 更新を判定出来ますか？ / 困り犬 (23/07/13(Thu) 11:31) #13870
`│ └` Re[16]: 更新を判定出来ますか？ / ONnoji (23/07/13(Thu) 14:27) #13871
`│ └` Re[17]: 更新を判定出来ますか？ / 困り犬 (23/07/13(Thu) 16:43) #13872
`│ └` Re[18]: 更新を判定出来ますか？ / ONnoji (23/07/14(Fri) 11:44) #13873
`│ └` Re[19]: 更新を判定出来ますか？ / 困り犬 (23/07/14(Fri) 16:45) #13874
`│ └` Re[20]: 更新を判定出来ますか？ / ONnoji (23/07/14(Fri) 17:21) #13875
`│ └` Re[21]: 更新を判定出来ますか？ / ONnoji (23/07/14(Fri) 18:16) #13877
`│ └` Re[22]: 更新を判定出来ますか？ / 困り犬 (23/07/15(Sat) 09:06) #13878
`│ └` Re[23]: 更新を判定出来ますか？ / ONnoji (23/07/15(Sat) 09:17) #13879
`│ └` Re[24]: 更新を判定出来ますか？ / 困り犬 (23/07/15(Sat) 10:41) #13880
`│ └` Re[25]: 更新を判定出来ますか？ / ONnoji (23/07/15(Sat) 11:17) #13881
`│ └` Re[26]: 更新を判定出来ますか？ / 困り犬 (23/07/15(Sat) 11:54) #13882
`│ └` Re[27]: 更新を判定出来ますか？ / ONnoji (23/07/15(Sat) 12:11) #13884
`│ └` Re[28]: 更新を判定出来ますか？ / 困り犬 (23/07/15(Sat) 13:37) #13885
`└` Re[3]: 更新を判定出来ますか？ / 尾形 (23/07/11(Tue) 11:01) #13858
`└` Re[4]: 更新を判定出来ますか？ / 困り犬 (23/07/11(Tue) 14:04) #13861
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

■お願い－－－－－－－

質問には、できるだけ「OS・桐 Ver」等ご記入願います
将来ここに掲載されました内容を、桐のファイルへ変換予定です。
できましたら、3,500文字以内位での投稿お願い致します

■ご注意(Comment)－－－－－

通常モード・・・通常文章等
図表モード・・・等幅表示(イベントや数字等を記入したとき：初期設定)

■解決しましたら最下段にチェックを入れてください

■引用文は、最小限に、お願いいたします

Name	/
E-Mail	/
└> 関連するレス記事をメールで受信しますか? / アドレス
Title	/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No13866に返信(困り犬さんの記事) > ■No13865に返信(ONnojiさんの記事) >>簡単に仕掛けを解説をします。 >> >>よろしければご参考にしてください。 > > せっかく作って頂いたので、貰いっぱなしは良くないと本日は > > FW_オートINF_Framework_MkII.kex　と　要領書.kex　の　差異を見ていました。 > > ・要領書.kexには　2行目に　変数宣言　局所，文字列｛ &mString ｝がある > > ・要領書.kexには　252行目　から　1296行目が追加してある（ここがカスタムして頂いた所ですよね？ありがたいです！） >> >>＜手続き一覧＞ >> >>名札　メイン >> >>cmdStartupClick >> >>txtField_24::入力前 >> >>txtField_24::入力後 >>│ >>└ prc項目値代入実行 >> >>■名札メイン >> >>　　変数宣言　局所，文字列｛ &mString ｝ >> >>　局所変数を１つ宣言しています。 >> >> >>■入力前と入力後のイベントハンドラ >> >>　txtField_1::入力前/txtField_1::入力後　～　txtField_100::入力前/txtField_100::入力後　とそれぞれ１００個あります。 >>　コピペではなく事前に印字コマンドを利用してまとめて作ったものを読み込んだものです。 >> >>以下の例はテキストオブジェクト：txtField_24 のイベントハンドラです。 >> >>手続き定義開始　txtField_24::入力前(参照　文字列　&編集文字列) >>　&mString = &編集文字列 >>　トレース出力　&this, " ", _&mString, " 入力前" >>手続き定義終了 >> >>手続き定義開始　txtField_24::入力後(参照　文字列　&編集文字列，長整数　&モード，参照　長整数　&入力継続) >>　トレース出力　&this, " ", _&mString, " ", _&編集文字列, " 入力後" >>　手続き実行　prc項目値代入実行( &this, &mString, &編集文字列 ) >>手続き定義終了 >> >>手続き定義開始　prc項目値代入実行( 文字列 &objectName, 文字列 &lastString, 文字列 &nowString ) >>　変数宣言　自動，文字列｛ &icon, &title = "prc項目値代入実行( )", &msg ｝ >>　変数宣言　自動，文字列｛ &source ｝ >>　トレース出力　&title + " 引数：&objectName = " + &objectName + " 引数：lastString = " + &lastString + " 引数：&nowString = " + &nowString >> >>　オブジェクト操作　&objectName｛ &source = ソース｝ >>　if ( &lastString <> &nowString ) >>　　項目値代入　[更新日] = #日時値 >>　　トレース出力　&title + " 項目名" + &source + " の値が変更されたので、［項目値代入　[更新日] = #日時値］を実行しました" >>　else >>　　トレース出力　&title + " 項目名" + &source + " の値は変更されていません" >>　end >> >>手続き定義終了 > > 要領書.wfxの定義で　txtField　が100まであったので、式は　txtField100　まであるのだろうと予想はできました。(書いてある内容は分からないのですが・・・) > > txtField24　までは連番であるのに、その次が100なので　25　から　99　はどうやって省けるのか不思議に感じたました。 > >> >>■開始時実行コマンドボタンから実行するプロシージャ >> >>手続き定義開始　cmdStartupClick( ) >>　変数宣言　自動，文字列｛ &icon, &title = "cmdStartupClick( )", &msg ｝ >>　変数宣言　自動，文字列｛ &objectName ｝ >>　変数宣言　自動，文字列｛ &source ｝ >>　変数宣言　自動，整数　｛ &cnt ｝ >> >>　&msg = &EZWmFieldList1 >>　&icon = "i" >>　手続き実行　INFprcMsgPause( &icon, &title, &msg ) >> >>　&cnt = 1 >>　&objectName = #対応文字列( &EZWmFieldList1, &cnt ) >>　繰り返し　( &objectName <> #u ) >> >>　　オブジェクト操作　&objectName｛ &source = ソース｝ >>　　トレース出力　_&cnt, " ", _&objectName, " ", _&source >> >>　　**トレース出力　" if ( &source = ""[製品長]"" .or &source = ""[製品幅]"" ) = " + #str( ( &source = "[製品長]" .or &source = "[製品幅]" ) ) >>　　if ( &source = "[製品長]" .or &source = "[製品幅]" ) >> >>　　　オブジェクト操作　&objectName｛入力前 = 1, 入力後 = 1 ｝ >>　　end >> >>　　&cnt = &cnt + 1 >>　　&objectName = #対応文字列( &EZWmFieldList1, &cnt ) >>　繰り返し終了 >> >>手続き定義終了 > > 今回は　数値　を更新した時　更新日を本日に変更して頂く物を作って頂きました。 > > 質問ですが、将来的に　文字列　を更新した時も　更新日を本日にしたい場合が出たときは > > 変数宣言　自動，整数　｛ &cnt ｝ > > と > > &cnt = 1 > &objectName = #対応文字列( &EZWmFieldList1, &cnt ) > 繰り返し　( &objectName <> #u ) > > がキモになるんですかね？ > > 素人考えで申し訳ないです・・・ > > 自分としては、せっかく作って貰った物を何も考えずに使うよりは、分からないなりに考えてみたいので！ > > >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回100KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[13/500KB] 残り:[487KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -