桐質問掲示板 [One Message View / Re[9]: [英単語]　を単語単位で検索・絞込する方法]

■14205 / 9階層)

　[英単語]　を単語単位で検索・絞込する方法

□投稿者/ ONnoji -(2024/03/03(Sun) 11:57:53)

例文にはピリオド( . )がありませんでしたので対応しませんでしたが、

もしも、

・フォースを使え。感じるのだ。　Use the Force. Feel it.

・フォースと共にあらんことを。　May the Force be with you.

のような例文の場合、文末の Force it you が見つかりません。

もしも。必要ならば以下のように改修してください。

手続き定義開始　prcString検索実行( 文字列 &fieldName, 文字列 &string, 文字列 &parameter, 整数 &mode, 整数 &searchByWord )
　変数宣言　自動，文字列｛ &icon, &title = "prcString検索実行( )", &msg ｝
　変数宣言　自動，文字列｛ &expression, &ankWQ = #jis( #hex("22") ), &knjWQ = #jis( #hex("2149") ), &asterisk = #jis( #hex("2A") ) ｝
　変数宣言　自動，文字列｛ &macro, &action, &order ｝
　変数宣言　自動，整数　｛ &status, &return ｝
　変数宣言　自動，文字列｛ &orgString ｝　/* 2015.06.01 */
　変数宣言　自動，文字列｛ &chrList = "{,},`,~,|" ｝　/* 2019.05.21 */
　変数宣言　自動，文字列｛ &character ｝　　　　　　　/* 2019.05.21 */

　変数宣言　自動，文字列｛ &SP = #jis( #hex("20") ), &knjSP = #jis( #hex("2121") ) ｝
　変数宣言　自動，文字列｛ &commaAnk = #jis( #hex("2C") ) ｝
　変数宣言　自動，文字列｛ &dotAnk　 = #jis( #hex("2E") ) ｝　/* 2024.03.03 */

　変数宣言　自動，文字列｛ &traceMsg = &title ｝
　変数宣言　自動，整数　｛ &traceON ｝

　** 2024.02.17 utx_list3.kev / prcString検索実行より流用

　**&traceON = 1
　条件　( &traceON )　トレース出力　&traceMsg + "を実行開始しました"

　&order　　　= #cond( &mode, ":E", 1, #u )
　&action　　 = #cond( &parameter = "次行", "∨, ", &parameter = "前行", "∧, ", 1, #u )
　&orgString　= &string　/* 2015.06.01 */
　&character　= &string

　条件　( &traceON )　トレース出力　"if ( .not &searchByWord ) … " + #str( .not &searchByWord )
　if ( .not &searchByWord )

　　if ( #対応番号( &chrList, &character ) = 0 )　/* 2019.05.21 */

　　　&string　　 = #文字置換( &string, &knjWQ, &knjWQ + &knjWQ )
　　　&string　　 = #文字置換( &string, &ankWQ, &ankWQ + &ankWQ )
　　　&expression = &asterisk + &ankWQ + &string + &ankWQ + &asterisk + &order
　　else

　　　** 単一文字の {, }, `, ~, | ならば
　　　if ( &mode )　/* 単一文字の {, }, `, ~, | を拡張辞書順で検索するとＮＧ */

　　　　&expression = "#文字位置( #半角([単語]), " + &ankWQ + &character + &ankWQ + ") <> 0"
　　　else

　　　　&expression = &asterisk + &ankWQ + &string + &ankWQ + &asterisk　/* 拡張辞書順でなければＯＫ */
　　　end
　　end

　　if ( &parameter = "絞り込み" )
　　　&macro = "絞り込み　" + "&fieldName_&expression, 終了状態 = &status"
　　else
　　　&macro = "検索　" +　&action + "&fieldName_&expression, 終了状態 = &status"
　　end
　　コマンド　&macro
　　条件　( &traceON )　トレース出力　_&macro
　　条件　( &traceON )　トレース出力　_&status
　　** 戻り値説明
　　** 1 該当する行が存在した。処理対象行は、検索した行に移動する。
　　** -1 該当する行が存在しなかった。処理対象行は移動しない。
　　** このパラメータを指定せず、該当する行が存在しない場合は、終端行に移動します。

　else

　　条件　( &traceON )　トレース出力　_&action
　　条件　( &traceON )　トレース出力　_&string
　　条件　( &traceON )　トレース出力　#文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk )

　　&string　　 = #文字置換( &string, &knjWQ, &knjWQ + &knjWQ )
　　&string　　 = #文字置換( &string, &ankWQ, &ankWQ + &ankWQ )

　　**&expression = "#対応番号( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ), " + &ankWQ + &string + &ankWQ + " ) <> 0"
　　**&expression = "#対応番号( #lc2( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ) ), " + &ankWQ + #lc2( &string ) + &ankWQ + " ) <> 0"
　　&expression = "#対応番号( #lc2( #文字置換( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ), &dotAnk, &commaAnk ) ), " + &ankWQ + #lc2( &string ) + &ankWQ + " ) <> 0"
　　条件　( &traceON )　トレース出力　_&expression

　　if ( &parameter = "絞り込み" )
　　　&macro = "絞り込み　" +　"&fieldName_&expression, 終了状態 = &status"
　　else
　　　&macro = "検索　" +　&action + "&fieldName_&expression, 終了状態 = &status"
　　end

　　コマンド　&macro
　　条件　( &traceON )　トレース出力　_&macro
　　条件　( &traceON )　トレース出力　_&status

　end

　if ( &status = -1 .or &parameter = "絞り込み" .and #eof )

　　&msg = "検索文字が見つかりません"
　　&msg = &msg + "\n" + #複写( "-", 50 )
　　&msg = &msg + "\n\n" + &ankWQ + &string + &ankWQ
　　**&msg = &msg + "\n\n" + &ankWQ + &orgString + &ankWQ
　　&msg = &msg + "\n\n検索方向　：" + #cond( &parameter <> #u, #cond( &parameter = "前行", "↑", &parameter = "次行", "↓", 1, &parameter ), 1, "先頭から" )

　　if ( .not &mSearchByWord )
　　　&msg = &msg + "\n\n拡張辞書順：" + #cond ( &mode, "ON", 1, "OFF" )
　　else
　　　&msg = &msg + "\n\n単語単位：ON"
　　　&msg = &msg + "\n\n＜重要＞"
　　　&msg = &msg + "\n\n単語単位の検索対象の文字列は"
　　　&msg = &msg + "\n\n空白文字(全角・半角)、または半角コンマ(,)で区切られている必要があります"
　　　&msg = &msg + "\n\n※注意：検索する文字列に空白文字(全角・半角)、または半角コンマ(,)が含まれていると検索に失敗します"
　　　&msg = &msg + "\n\n＜ヒント＞"
　　　&msg = &msg + "\n\n単語単位のチェックをオフ(OFF) にして検索してみてください"
　　end

　　メッセージボックス　 &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する

　end

　条件　( &traceON )　トレース出力　&traceMsg + "を実行終了しました"
手続き定義終了

ｐ．ｓ．

もしも、解決したらですが・・・

解決済み! BOX/ 解決したらチェックしてください!

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

返信無し
　

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
[英単語]　を単語単位で検索・絞込する方法 / いぶけん (24/02/16(Fri) 21:54) #14141
`├` Re[1]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 12:08) #14142
`│├` Re[2]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 13:42) #14143
`││└` Re[3]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 15:13) #14147
`│└` Re[2]: [英単語]　を単語単位で検索・絞�.. / いぶけん (24/02/17(Sat) 18:45) #14148
`│ └` Re[3]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 19:10) #14149
`│ └` Re[4]: [英単語]　を単語単位で検索・絞�.. / いぶけん (24/02/17(Sat) 20:17) #14150
`│ └` Re[5]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 20:37) #14151
`│ └` Re[6]: [英単語]　を単語単位で検索・絞�.. / いぶけん (24/02/17(Sat) 21:06) #14152
`│ └` Re[7]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/17(Sat) 21:38) #14153
`│ └` Re[8]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/02/18(Sun) 10:24) #14160
`│ └` [英単語]　を単語単位で検索・絞込する方法 / ONnoji (24/03/03(Sun) 11:57) #14205 ←Now
`├` Re[1]: [英単語]　を単語単位で検索・絞�.. / うにん (24/02/17(Sat) 14:20) #14144
`│└` Re[2]: [英単語]　を単語単位で検索・絞�.. / うにん (24/03/03(Sun) 19:41) #14206
`│ └` Re[3]: [英単語]　を単語単位で検索・絞�.. / ONnoji (24/03/03(Sun) 21:48) #14207
`└` Re[1]: [英単語]　を単語単位で検索・絞�.. / 通りすがり (24/02/17(Sat) 14:45) #14146
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

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

他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
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文字以内) ■No14205に返信(ONnojiさんの記事) > 例文にはピリオド( . )がありませんでしたので対応しませんでしたが、 > > もしも、 > > ・フォースを使え。感じるのだ。　Use the Force. Feel it. > > ・フォースと共にあらんことを。　May the Force be with you. > > のような例文の場合、文末の Force it you が見つかりません。 > > もしも。必要ならば以下のように改修してください。 > > > 手続き定義開始　prcString検索実行( 文字列 &fieldName, 文字列 &string, 文字列 &parameter, 整数 &mode, 整数 &searchByWord ) > 　変数宣言　自動，文字列｛ &icon, &title = "prcString検索実行( )", &msg ｝ > 　変数宣言　自動，文字列｛ &expression, &ankWQ = #jis( #hex("22") ), &knjWQ = #jis( #hex("2149") ), &asterisk = #jis( #hex("2A") ) ｝ > 　変数宣言　自動，文字列｛ &macro, &action, &order ｝ > 　変数宣言　自動，整数　｛ &status, &return ｝ > 　変数宣言　自動，文字列｛ &orgString ｝　/* 2015.06.01 / > 　変数宣言　自動，文字列｛ &chrList = "{,},`,~,\|" ｝　/ 2019.05.21 / > 　変数宣言　自動，文字列｛ &character ｝　　　　　　　/ 2019.05.21 / > > 　変数宣言　自動，文字列｛ &SP = #jis( #hex("20") ), &knjSP = #jis( #hex("2121") ) ｝ > 　変数宣言　自動，文字列｛ &commaAnk = #jis( #hex("2C") ) ｝ > 　変数宣言　自動，文字列｛ &dotAnk　 = #jis( #hex("2E") ) ｝　/ 2024.03.03 / > > 　変数宣言　自動，文字列｛ &traceMsg = &title ｝ > 　変数宣言　自動，整数　｛ &traceON ｝ > > 　* 2024.02.17 utx_list3.kev / prcString検索実行より流用 > > 　*&traceON = 1 > 　条件　( &traceON )　トレース出力　&traceMsg + "を実行開始しました" > > 　&order　　　= #cond( &mode, ":E", 1, #u ) > 　&action　　 = #cond( &parameter = "次行", "∨, ", &parameter = "前行", "∧, ", 1, #u ) > 　&orgString　= &string　/ 2015.06.01 / > 　&character　= &string > > 　条件　( &traceON )　トレース出力　"if ( .not &searchByWord ) … " + #str( .not &searchByWord ) > 　if ( .not &searchByWord ) > > 　　if ( #対応番号( &chrList, &character ) = 0 )　/ 2019.05.21 / > > 　　　&string　　 = #文字置換( &string, &knjWQ, &knjWQ + &knjWQ ) > 　　　&string　　 = #文字置換( &string, &ankWQ, &ankWQ + &ankWQ ) > 　　　&expression = &asterisk + &ankWQ + &string + &ankWQ + &asterisk + &order > 　　else > > 　　　* 単一文字の {, }, `, ~, \| ならば > 　　　if ( &mode )　/* 単一文字の {, }, `, ~, \| を拡張辞書順で検索するとＮＧ / > > 　　　　&expression = "#文字位置( #半角([単語]), " + &ankWQ + &character + &ankWQ + ") <> 0" > 　　　else > > 　　　　&expression = &asterisk + &ankWQ + &string + &ankWQ + &asterisk　/ 拡張辞書順でなければＯＫ / > 　　　end > 　　end > > 　　if ( &parameter = "絞り込み" ) > 　　　&macro = "絞り込み　" + "&fieldName_&expression, 終了状態 = &status" > 　　else > 　　　&macro = "検索　" +　&action + "&fieldName_&expression, 終了状態 = &status" > 　　end > 　　コマンド　&macro > 　　条件　( &traceON )　トレース出力　_&macro > 　　条件　( &traceON )　トレース出力　_&status > 　　* 戻り値説明 > 　　 1 該当する行が存在した。処理対象行は、検索した行に移動する。 > 　　 -1 該当する行が存在しなかった。処理対象行は移動しない。 > 　　このパラメータを指定せず、該当する行が存在しない場合は、終端行に移動します。 > > 　else > > 　　条件　( &traceON )　トレース出力　_&action > 　　条件　( &traceON )　トレース出力　_&string > 　　条件　( &traceON )　トレース出力　#文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ) > > 　　&string　　 = #文字置換( &string, &knjWQ, &knjWQ + &knjWQ ) > 　　&string　　 = #文字置換( &string, &ankWQ, &ankWQ + &ankWQ ) > > 　　&expression = "#対応番号( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ), " + &ankWQ + &string + &ankWQ + " ) <> 0" > 　　&expression = "#対応番号( #lc2( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ) ), " + &ankWQ + #lc2( &string ) + &ankWQ + " ) <> 0" > 　　&expression = "#対応番号( #lc2( #文字置換( #文字置換( #文字置換( [単語], &SP, &commaAnk ), &knjSP, &commaAnk ), &dotAnk, &commaAnk ) ), " + &ankWQ + #lc2( &string ) + &ankWQ + " ) <> 0" > 　　条件　( &traceON )　トレース出力　_&expression > > 　　if ( &parameter = "絞り込み" ) > 　　　&macro = "絞り込み　" +　"&fieldName_&expression, 終了状態 = &status" > 　　else > 　　　&macro = "検索　" +　&action + "&fieldName_&expression, 終了状態 = &status" > 　　end > > 　　コマンド　&macro > 　　条件　( &traceON )　トレース出力　_&macro > 　　条件　( &traceON )　トレース出力　_&status > > 　end > > 　if ( &status = -1 .or &parameter = "絞り込み" .and #eof ) > > 　　&msg = "検索文字が見つかりません" > 　　&msg = &msg + "\n" + #複写( "-", 50 ) > 　　&msg = &msg + "\n\n" + &ankWQ + &string + &ankWQ > 　　&msg = &msg + "\n\n" + &ankWQ + &orgString + &ankWQ > 　　&msg = &msg + "\n\n検索方向　：" + #cond( &parameter <> #u, #cond( &parameter = "前行", "↑", &parameter = "次行", "↓", 1, &parameter ), 1, "先頭から" ) > > 　　if ( .not &mSearchByWord ) > 　　　&msg = &msg + "\n\n拡張辞書順：" + #cond ( &mode, "ON", 1, "OFF" ) > 　　else > 　　　&msg = &msg + "\n\n単語単位：ON" > 　　　&msg = &msg + "\n\n＜重要＞" > 　　　&msg = &msg + "\n\n単語単位の検索対象の文字列は" > 　　　&msg = &msg + "\n\n空白文字(全角・半角)、または半角コンマ(,)で区切られている必要があります" > 　　　&msg = &msg + "\n\n※注意：検索する文字列に空白文字(全角・半角)、または半角コンマ(,)が含まれていると検索に失敗します" > 　　　&msg = &msg + "\n\n＜ヒント＞" > 　　　&msg = &msg + "\n\n単語単位のチェックをオフ(OFF) にして検索してみてください" > 　　end > > 　　メッセージボックス　 &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する > > 　end > > 　条件　( &traceON )　トレース出力　&traceMsg + "を実行終了しました" > 手続き定義終了 > > ｐ．ｓ． > > もしも、解決したらですが・・・ > > 解決済み! BOX/ 解決したらチェックしてください! > >
File	/ アップ可能拡張子=> /.gif/.jpg/.jpeg/.png/.txt/.lzh/.zip/.mid 圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回100KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[88/500KB] 残り:[412KB]
パスワード	/ 半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!
プレビュー/

- Child Tree -
- Antispam Version -