>○見出設定○に関連する質問です
>
>現況
> ①見出設定の<インプットボックス>を呼び出し
> ②検索文字列 たとへば ○,□,▼ を選ぶと
> ③見出検索一覧表示され 常駐リストに見出項目が表示されます
↓ ↓ ↓
@@ListUserString$ = "検索したい文字列"
@@listAutoClose = -1
@ListUser
解決しました
○見出設定○に関連する質問です
現況
①見出設定の<インプットボックス>を呼び出し
②検索文字列 たとへば ○,□,▼ を選ぶと
③見出検索一覧表示され 常駐リストに見出項目が表示されます
やらうとして できなく難儀してゐる所
②と③の作業をマクロで書いて
②と③を省略して 一発で 見出項目を常駐リストに表示させたい
－－質問－－
どんな記述にしたらいいでせうか？
宜しく お願ひします
>proc 右
@@command$(1)
end proc
proc ダブル
@@command$(2)
end proc
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<取得できてゐた>ものを
<取得できてゐない>と思ひ込み
丁寧に アラケンさんのサンプル見ながら
丁寧に復習したら 上記の記述に辿りつきました
これで<フォルダ一覧表>を<常駐リスト>に送り
＜該当フォルダ＞を開くことが出来ます
昔 意味もわからず動かしてゐたので
こんなことになるんですネ
今回 マクロヘルプも<テクストファイル>から丁寧に読み直し
ひとつひとつ わかる用語を増やして行った結果 自己解決に辿り着けました
お騒がせでしたが
今後も わからぬことだらけなので 宜しくお願ひします
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
dllname USER
cdeclare long SendMessage(HWND, long, int, long);
dllname "shell32.dll"
cdeclare long ShellExecute(HWND,LPSTR,LPSTR,LPSTR,LPSTR,int);
dim 数,行$,語$,ファイル$,番,番$[1000]
'--------------------------------------------------------------------
const 白紙 = &h0184 '内容をリセットする
sub 常駐リスト白紙
SendMessage(@@hwndToolListL, 白紙, 0, 0)
end sub
'--------------------------------------------------------------------
const 文字列送信 = &h0180'文字列追加
sub 文字列送信(text$)
SendMessage(@@HwndToolListL,文字列送信 ,0,varptr(text$))
end sub
'一覧に項目を１つ追加（index=-1 のときは最後に追加）
'--------------------------------------------------------------------
const 文字列獲得=&h0189
function 文字列獲得$(index)
dim x$ as string[1000]
SendMessage(@@HwndToolListL, 文字列獲得, index, varptr(x$))
文字列獲得$ = x$
end function
'--------------------------------------------------------------------
proc main
@@redraw=0
@line=1
常駐リスト白紙
行$=@TextCr$(@line)
数=1
do while 1
行$=@TextCr$(@line)
文字列送信(行$)
@MoveNextLineCr :数++
if @line=@lastline then exit do
loop
語$="を<全文>読込みました"
ファイル$=@filename$+語$
@@ToolListUserDef ファイル$,macrofilename$ + ",右", \
macrofilename$ + ",ダブル",macrofilename$ + ",シングル"
@@ToolListType = 6 'ユーザー定義一覧
@@PrintToolList = 1 'チェックしてゐる
@@ToolListPos = 3 '常駐リストの位置
@@redraw=1
end proc
proc 右
print "青人草"
end proc
proc ダブル
print "いろは"
end proc
proc シングル
print "あめつち"
end proc
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ○常駐リストフ＜ァイル＞を読み込ませる○
①これは 貼り付けた<マクロ>で成功しました
②しかし 常駐リストに送信した＜行$＞を取得することができなく
困ってゐます
やらうとしてゐることは
①…沢山ある＜フォルダ＞の一覧表の<ファイル>を<常駐リスト>に読み込ませる
②…その＜フォルダ名＞を <ダブルクリック>で開く
幾つか階層化された<フォルダ>も 親Dirの違ふフォルダも
そのフォルダ名が得られれば それを手掛かりに ＜一発開箱＞できます
----------------------------------------------------------------------------
かそねこさんのHPを見ると 別ルートで<常駐リスト>に<ファイル>を読み込ませてゐる
記述がありましたが 解読が甘いためか 再現できませんでした
つまるところ
常駐リストに<ファイル>を読み込ませ
その表示の<文字列>を取得するにはどうしたらいいですか？
推測…文字列獲得$(index) を使用するのだと思ひますが
その使ひ方で 立ち往生してをります
宜しく お願ひします
＜追記＞
わせいさんのところで 初めてバインダーの使ひ方がわかりました
ありがたうござゐます
先日のご回答も すっかりかぶねこさんかと思って
誤認して返信しました すみませんでした
昔作ったマクロが 少しずつ読めるやうになりました
以下に貼り付けます
貼り付けたら 容量オーバーになったので
つぎの投稿で貼り付けます
●CMDエヂタとしてQXを使ふ●
①バッチファイル＝.bat をQXで作り
②＜関連づけ＞で実行すると＜.bat＞が実行されることを知り
③起動する メモ帳・エクスブローラー・ペイント・QX・電卓など
④フォルダ ｛新規フォルダ｝の作成・削除
⑤ファイル ＜新規ファイル＞の作成・削除
⑥拡張子 ｛フォルダ｝指定して そこの拡張子一括変換など
⑦ソート 指定した＜ファイル＞を指定した｛フォルダ｝に新規作成
⑧画像 指定した＜画像.jpgを～mspaint～に送る
こんな＜バッチ＞が沢山できました
マクロを作るやうに＜CMD＞を記述することが少し出来るやうに
なりつつあり 作る喜びを実感してゐます
お蔭さまにて CMDの記述言語が 少しだけわかるやうになりました
ありがたうござゐます
>只今 決着が着きました
----------------------------------------------------------------
ねこみみさんの＜選択範囲ソート＞で
①全文ソート
②英単語 チェック
③塾語 チェック
無事 日本語 英単語 英語の熟語も拾ってくれました
---------------------------------------------------------------
随分と時間がかかりましたが 上記のテクスト並換で無事 正常動作確認
何度も諦めかけましたが 自分の対策に どこか誤りがあると決めつけて
粘りました
お手数お掛けました
>sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT
>を実行したのですか？
>
>実行するのは、
>
>sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT > C:\Users\logos\Documents\エヂタ\QDICSMP-2.TXT
>
>です。これがdicsort.batの中身。
－－－ハッキリわかりました
>QDICSMP.TXT の次の「 > 」はリダイレクト・コマンド。
>「 > 」の左側で実行したコマンドの結果を右側で指定したファイルに保存します。
－－－この説明で＜サンプル＞を土台にさせて
－－－それを＜サンプル-2＞に適用させてゐる＜道理＞がわかりました
>あしたから用事があって留守にするので、この続きは一週間後になります。
－－－お忙しい中 ありがたうござゐます
道理がわかったので＜五種類の辞書＞のバッチファイルも
ひとつで五行で用済なのか？ 試しながら 作ってみます
自身が考へてゐる＜オンマウス＞は 少なくともも十種類はあります
ひとつずつでも 十個作れば事足りるので 粘り強く作りたいと思ひます
たとへば 英語学習なら
単語辞書 起きる get up
塊の辞書 起きる get uo early
英作の辞書 起きる He gets up early.
助動詞の辞書 起きる He can get up early
疑問の辞書 起きる What time do you get up?
こんな五種の辞書の作り方を子供に伝授
本人は おそらく＜ゲーム感覚＞で 作る喜びがあると思ひます
ポップアップする その動的反応を 子供は喜ぶと思ひます
・記述法
・読込みの道理
この二つが 明確になりました
ありがたう ござゐました
sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT
を実行したのですか？
実行するのは、
sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT > C:\Users\logos\Documents\エヂタ\QDICSMP-2.TXT
です。これがdicsort.batの中身。
sort から QDICSMP-2.TXT まで、論理行で一行。
画面上で何行になっても、改行から改行までで一行。
arakenさんのメールにも「次の一行を」とありますよね。
それは「次の論理行を」という意味です。
QDICSMP.TXT の次の「 > 」はリダイレクト・コマンド。
「 > 」の左側で実行したコマンドの結果を右側で指定したファイルに保存します。
あしたから用事があって留守にするので、この続きは一週間後になります。
●●大きな発見●●
今まで
・特定のフオルダを開ける
・特定のファイルを開く
これをマクロで書いてましたが
①…QTCLIP.txt
②…実行部分に追加することで
同様のことができるので その記述を書き留めて置きます
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
ＱＴＣｌｉｐ
Ｃtrl ＋ Ｓhift ＋ Ｐ＝＜ポップアップ画面＞
一番下に＜実行＞があります
※この＜実行＞の記述を追加すれば
・指定の＜ＥＸＥ＞起動も
・＜指定のファイル＞を＜指定のＥＸＥ＞で起動できることを知りました
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
テキスト名
［ＱＸＤｒ］
└QTCLIP.TXT
記述ルール
*EX (&E)エクスプローラ:EXPLORER
*EX タブ (&E)表示文字 :コマンド文字
たとへば
●フオルダを開く場合
開けたいフォルダ名:xplorer C:\Users\logos\Documents\エヂタ
↑↑ ↑ ↑ ↑
フォルダを起動するＥＸＥが＜↑↑＞＝＜explore＞
そこにフルパスで ＜↑↑↑＞＝ ＜フォルダ名＞を示してあげれば
無事＜指定したフォルダ＞が開きました
●指定したファイルを開く
起動するＥＸＥが<qxw32.exe>ならば
""で括って "パス\qxw32.exe"
開けたいファイル名が<パレスチナ.txt>ならば
"ＥＸＥ" + 半角スペース + "フルパス/ファイル名"
これで ＜指定したファイル＞が＜ＱＸエヂタ＞で開きました
今回 dicsort.bat の実行を探ってゐる内に
・コマンドプロンプトの＜指示語＞を初めて学び
・この指示語を＜QTCLIP.TXT＞に 正しく書き込めば
ＱＸ→コマンドプロンプト→実行→実現されることがわかりました
ひょっとしたら 皆さんは 当たり前のことのやうに
ご存知だったからも知れませんが
パソコンど素人には 眼が飛び出る程の驚きだったので
ここに記して置くことにしました
ＱＸは<やはりスゴイ>なと改めて その<スゴサ>を自覚した一日でした
辞書引きのエラー回避は まだ たどりついてゐませんが…>以下の1行を dicsort.bat として保存(必ずSHIFT JIS
>またはメモ帳ならANSI)し、dicsort.batを実行してソートし、QDICSMP-2.TXT
>を辞書ファイルとして使用してみてください。
>sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT >
>C:\Users\logos\Documents\エヂタ\QDICSMP-2.TXT
●●辞書引き辞書の単語ぎ増やせない●●
こんなお返事（引用符記事）を＜アラケン＞さんからいただきました
そこで
①…ＱＸで
sort C:\Users\logos\Documents\エヂタ\QDICSMP.TXT
②…Shift Jis で dicsort.bat
③…バッチファイルの実行
・Win 検索 cmd
・cd フルパスフォルダ
・dicsort.bat
└その辞書の記述が そのまま出て来ます
これを見て バッチファイルの＜実行＞に成功したか？
さう思ひましたが…
④…辞書ファイルをQDICSMP-2.TXT
共通設定
└辞書
└作成 →エラーメッセージ
この旨 アラケンさんにも 伝へてありますが
・何か ＜バッチファイル＞の＜実行＞等で 間違ひがあるのでは…
・何か 他でも お気づきのことがあるかも…と思ひ 投稿しました
>そうですね、自分が仕組みをわかって小さい自動化をする、というのは
>とても楽しいですね。
>
>なんといいますか、テキストエディタでマクロを組むというのは、
>大規模建築に対するピタゴラスイッチのようなものではないかと
>思います。仕組みが自分で理解できる規模なのがいいですよね。
----------------------------------------------------------------------
［ドキュメント］に［エヂタ］のフォルダを作り
├--［辞書］…自作やサンプル辞書.txt
│
├--［短縮］…自作やサンプルの短縮入力.txt
│
├--［TEXT］…QTCLIP登録テクスト.txt
│
├--［知る］…学んだこと.txt
│
├--［その他］
今までいい加減に その場しのぎでフォルダを作り
・ＱＴクリップからの＜テクスト挿入＞も
・辞書のインデックスの作り方もわからず
・でたらめに納めてゐたため
・頭が混乱しましたが
上記のやうな［フォルダ］に各種テクストを納めることで
整理整頓が進みスッキリするやうになりました
恐らく初めてＱＸエヂタを使ふ子供も大人も
①…この辞書や短縮入力のテクストを作っては
②…それをキチンとフォルダに納める
この①と②の作業をしながら＜独習＞すると
それを土台に 自身の才能や考へる力が
少しづつ ついて行くやうな気がします
一人二人と そんな子供や大人が増えて行くことを
想像しながら ＱＸを学び直してゐます
・操作上のこと
・マクロ言語のこと
何か 思ひつくことありましたら
気づいたものを この掲示板でお知らせいただけたら嬉しいです
宜しく お願ひします
そうですね、自分が仕組みをわかって小さい自動化をする、というのは
とても楽しいですね。
なんといいますか、テキストエディタでマクロを組むというのは、
大規模建築に対するピタゴラスイッチのようなものではないかと
思います。仕組みが自分で理解できる規模なのがいいですよね。
念のため＜アラケンさん＞にも質問して置きました
エラーメッセージを記録する＜ＬＯＧ＞の記述を報告して欲しい
といふことで そのメッセッージを報告して置きました
解決策が わかりましたら こちらに書き込みます
あれだけの高機能のエヂタを 野放しにして置くのは 非常にもったいない
この思ひが 強いですね
-----------------------------------------------------------------------
＜使用用途＞
小学四年生に<英断語ノート>を自作してもらふ
・自身が作った辞書の単語が＜ポップアップ＞する
・これだけで 小学生は 嬉しいと思ひます
・もし 面白がってやるやうですと…
辞書作りが 楽しくて 楽しくて…
こんな感情が湧き上がって来たら 大成功です
-----------------------------------------------------------------------
今のままだと パソコン操作は エクセル・動画・ワード・パワーポイントだけ
エヂタは 子供から大人まで 全く操作できない人だらけ
一昔前では 考へられないことです
パソコンの＜いろは手習ひ＞を＜ＱＸエヂタ＞でやらうとしてゐます
よって ある程度の操作上の基礎知識や マクロの基礎知識も習得してをかないと
指導者として恥づかしいと思ひ 初めから勉強し直してゐます
ひとつひとつ学習してゐます
あたり前のことですが わかる範囲で結構ですので
また ご指導 宜しくお願ひします
辞書引き関係の質問ですが、わたしはこのところ旧QXエディタを
ほとんど使っておらず、きょうもデスクトップ機で旧QXを起動
しようとして、古いマシンからファイルはちゃんとコピーしてきた
ものの、まだちゃんとセットアップしてなかった、というような
状況です。
辞書引きは昔はちゃんと設定して使っていたこともあったはず
ですが、長いこと使っていません。
辞書ファイルも何回かパソコンを乗り換えるうちに紛失してしまった
ようで、少しあせっていますが、20年以上前のファイルですから
しかたないですね。
というわけで、この件についてまったく情報提供ができません。
いはたさんはまた、今回も、いろいろ自力で調べて解決されるのでは
ないかと思います。
なんの答えにもなっていなくて恐縮ですが、いちおう掲示板は見ています、
というご報告でした。
①短縮入力 やうやく習得
②ＱＴcrip やうやくアラケンさん制作のマクロ手に入れＱＴclip操作確認
①＜ＴＥＸＴ＞フォルダへの＜新規追加.txt＞
ここがわからず 一日半 ウロウロしましたが
本日＜新規追加.txt＞が できるやうになりました
５０個登録できるやうですね
同時に テキスト追加Ａ～Ｚの登録も習得しました
③さて ここで質問です
ついでに＜単語オンマウス＞と＜ポップアップ解説＞の習得に励み
無事 辞書の＜インデックス＞制作も覚え
いざ ＜単語＞を追加すると ＜インデックス＞でエラーメッセージが出ます
もし 単語オンマウス－－ポップアップ解説を使はれてゐたら
①＜無事に単語追加＞できましたでせうか？
②あるゐは＜インデックス＞作成時の＜エラーメッセージ＞は
どのやうに乗り越えましたか？
ちなみに
・辞書の形式は タブ
・英単語チエック外してゐます
宜しくお願ひします
>わたしも旧QXを起動してマクロを動作確認したりして、
>やっぱりすごくいろいろできて便利な環境だなあ、と
>再確認しました。周辺情報の共有を続けていければ、と
>思います。
昨日アラケンさんからお返事届きました
スマートアプリコントロールのブロック解除は
＜オフ＞にする以外 道はないとのこと
初めにWindows11を設定する時に＜オフ＞にして置けば
良かったやうに思へます
しかし 再起動や USB保存のEXEを起動させたりすると
ブロック解除され 無事 作業開始できます
世情
このまま与へられたソフトの操作におぼれてしまふと
ますます考へる力が劣り
人に操作といふか AIに操作され
人間味を失って行くと思ひます
自分の＜意思＞で操作する＜マクロ言語＞の習得は
子供たちや 大人たちの考へる力の養成にも繋がる
余り無理をせず 自分の理解の及ぶ範囲のマクロを
ひとつづつ整理して 世に遺したいと思ってゐます
引き続き ご指導お願ひします
>＜質問できるところがある＞
>この後ろ盾があったので＜マクロ＞を初めから勉強し直さう
>そんな覚悟が 生まれました
わたしはマクロの質問にちゃんと答えられるほどの知識は
なくて、たまたまこの掲示板の管理人をやっているだけですが、
すでにニフティの会議室もメーリングリストもなくなって
しまった現在、QX関係の情報交換の場はもうここだけですね。
いはた さんは貴重な久しぶりの訪問者です。
わたしも旧QXを起動してマクロを動作確認したりして、
やっぱりすごくいろいろできて便利な環境だなあ、と
再確認しました。周辺情報の共有を続けていければ、と
思います。
>いろいろ自力で解決できたようでなによりです。
>わたしも古いサイトを更新もなく維持を続けていますが、
>お役にたてたならその甲斐があったというものです。
＜質問できるところがある＞
この後ろ盾があったので＜マクロ＞を初めから勉強し直さう
そんな覚悟が 生まれました
昨日は
①＜クリップボード＞の代入式
②＜IME入力文字＞の代入式
③ソフトに読込ファイル渡して自動起動する＜お渡し起動＞
こんなものを整理しました
ほとんど わっからないことだらけなので
一つ一つが ハッキリとわかるだけで ＜無邪気な喜び＞を感じます
まだまだ 自身の書いた昔のマクロも ほとんど読めません
また お世話になることあるかと思ひます
宜しく お願ひします
いろいろ自力で解決できたようでなによりです。
わたしも古いサイトを更新もなく維持を続けていますが、
お役にたてたならその甲斐があったというものです。