>わたしも旧QXを起動してマクロを動作確認したりして、
>やっぱりすごくいろいろできて便利な環境だなあ、と
>再確認しました。周辺情報の共有を続けていければ、と
>思います。

昨日アラケンさんからお返事届きました
スマートアプリコントロールのブロック解除は
＜オフ＞にする以外　道はないとのこと

初めにWindows11を設定する時に＜オフ＞にして置けば
良かったやうに思へます
しかし　再起動や　USB保存のEXEを起動させたりすると
ブロック解除され　無事　作業開始できます

世情
　このまま与へられたソフトの操作におぼれてしまふと
　ますます考へる力が劣り　
　人に操作といふか　AIに操作され
　人間味を失って行くと思ひます

自分の＜意思＞で操作する＜マクロ言語＞の習得は
子供たちや　大人たちの考へる力の養成にも繋がる
余り無理をせず　自分の理解の及ぶ範囲のマクロを
ひとつづつ整理して　世に遺したいと思ってゐます

引き続き　ご指導お願ひします

>＜質問できるところがある＞
>この後ろ盾があったので＜マクロ＞を初めから勉強し直さう
>そんな覚悟が　生まれました

わたしはマクロの質問にちゃんと答えられるほどの知識は
なくて、たまたまこの掲示板の管理人をやっているだけですが、
すでにニフティの会議室もメーリングリストもなくなって
しまった現在、QX関係の情報交換の場はもうここだけですね。

いはた さんは貴重な久しぶりの訪問者です。

わたしも旧QXを起動してマクロを動作確認したりして、
やっぱりすごくいろいろできて便利な環境だなあ、と
再確認しました。周辺情報の共有を続けていければ、と
思います。

>いろいろ自力で解決できたようでなによりです。
>わたしも古いサイトを更新もなく維持を続けていますが、
>お役にたてたならその甲斐があったというものです。

＜質問できるところがある＞
この後ろ盾があったので＜マクロ＞を初めから勉強し直さう
そんな覚悟が　生まれました

昨日は　

　�@＜クリップボード＞の代入式
　�A＜IME入力文字＞の代入式
　�Bソフトに読込ファイル渡して自動起動する＜お渡し起動＞
　こんなものを整理しました

ほとんど　わっからないことだらけなので
一つ一つが　ハッキリとわかるだけで　＜無邪気な喜び＞を感じます
まだまだ　自身の書いた昔のマクロも　ほとんど読めません
また　お世話になることあるかと思ひます
宜しく　お願ひします

いろいろ自力で解決できたようでなによりです。
わたしも古いサイトを更新もなく維持を続けていますが、
お役にたてたならその甲斐があったというものです。

ひょっとして　かぶねこさんのマクロにあるかも…
さう　思って　常駐リストのマクロを手にいれ
マクロの記述を探したら
@@FileopenDir を見つけて
そこに　フォルダのフルパス入れたら無事開きました
ずっと　opendirectory この文字周辺を探してゐたため

@@fileopenDirに気づきませんでした

また　宜しくお願ひします

proc main
　ポップアップメニューを作り　←忘れてゐたのでこれも時間かかりました
proc end

　�@sub 書込　　　　…解決
　�Asub 開く　　　　…解決
　�Bsub フオルダ　　…未解決

お蔭さまにて　
　�@可視化せず＜書込追加＞
　�A指定した＜ファイルを開く＞　この二つは解決
　�B指定した「フオルダ開く」で　二時間位立ち往生してゐます
　　
　�Bの記述　是非教へて下さい
　予想するに　簡単な記述だと思ひますが…

さきほど紹介したマクロには、繰り返し使うフォルダに便利に
アクセスするための「フォルダリスト」機能をつけたので、
少し内容が煩雑になっていました。

もっとシンプルな、ファイルを選択して挿入するだけのマクロは
こちらです。自分のマクロフォルダを掘ったらありました。

'文書をカーソル位置に挿入 / ver. 0.50 / by Kabuneko 2000/05/08

proc main

if @hwnd = 0 then exit proc
dim file$, a$
file$ = GetFileName$("", "*.*", "挿入するファイルを選択")
if file$ = "" then exit proc
@Redraw = 0
@UndoBlock = 1
open file$ for input as #1
do until eof(1)
lineinput #1, a$
@Input a$
@CharReturn2
loop
close #1
@CharReturn2
@Redraw = 1
@UndoBlock = 0

end proc

>さて　今回は　かぶねこさんの自動書込が　上手く行かず

そうですか。UTF-8 じゃなかったら何が原因でしょうね。

わたしがこのマクロを作ったのも、あまりにも昔のことなので、
すでにすっかり忘れていて解説とかムリな状態です。

スマートアプリコントロールとやらで苦労されているようですが、
わたしは Windows 11 でもまったくブロックされたことがないので、
（特にオフにした記憶もないけど、たぶんどっかがオフなんでしょう）、
参考になるような情報が何もありません。

あ、クラウド接続はしないようにしているので、そのあたりかも。

早速のお返事ありがたうござゐます

proc main

if @hwnd = 0 then exit proc
　　dim file$, a$
　　file$=@@QxDirectory$+ "\新規手紙.txt"　
　　if file$ = "" then exit proc
　　@Redraw = 0
　　 @UndoBlock = 1
　　open file$ for input as #1
　　do until eof(1)
　　ineinput #1, a$
　　@Input a$
　　　@CharReturn2
　　loop
　　close #1
　　@CharReturn2
　　 @Redraw = 1
　　@UndoBlock = 0
end proc

一部修正して　この記述にしてやうやく思ひ出しました

open file$ for input as #1＝ファイル開いて　カーソル位置に　１行づつ挿入せよ
loop＝繰り返せ
　
　#1＝カーソル位置
　a$＝読み込んだ論理行
　@charReturn2＝改行

@Redraw=0
視覚化せずに
@Redraw=1

この＜視覚化せず＞にファイル文書を一行づつ
＜読込み＞そして＜書込む＞　この技法スゴイですよね
------------------------------------------------------------
さて　今回は　かぶねこさんの自動書込が　上手く行かず
たった一つのテキストの読込みに修正してしまひましたが
宜しかったら　
ショートカットキーの取扱ひから
全くの初心者に　応へる感じで　
読込みテクスト自動書き込みの操作法を教へていただけたら…
兎に角　呑み込みが悪い奴だと思って　ご指導下さい
------------------------------------------------------------

別件ですが
　スマートアプリコントロールのブロックで
　ＱＸ使へなくなってゐる方がゐると思ひ
　そのブロックを受けないやうに旧ＱＸを改良できないものか？
　アラケンさんに　メール飛ばして置きました
　この件で　何か進展ありましたら
　それは　それで投稿の題名を＜スマートブロック解除＞で投稿します
私の場合　
　・粘り強く再起動
　・＜ＰＣ＞のＱＸではなく＜ＵＳＢ＞に取り込んだＱＸを起動させる
　合計数十回＜ＳＡＣ＞のブロックに合ひましたが
　その都度上記法で乗り越えてきました

>やりたいこと
>　
>　�@今あるカーソルの場所に
>　�A希望のテキストファイルを呼び出して
>　�Bそこに　そのテキスト全文を貼り付ける

わたしの古いマクロですが、
https://qx1.qdots.net/qx/sub/lib_3.htm#insdir にある
カーソル位置にファイルを読込み（履歴つき） L_InsDir.mac
がやりたいことの内容に合っているように思いますので紹介します。

自分の環境で動作確認してみたらエラーになることもあり、
どうも UTF-8 のファイルはダメなようです。

スマートアプリコントロールのブロックから
やうやく解放されたやうで
昔のＱＸで　また　仕事を始めました
しかし　マクロが作れる「頭」に戻ることが出来ません
以下の簡易なマクロの記述をご提示いただきたくメール書きました

やりたいこと
　
　�@今あるカーソルの場所に
　�A希望のテキストファイルを呼び出して
　�Bそこに　そのテキスト全文を貼り付ける
　
昔なら「即」自身のマクロを読んで書けましたが
今は　どう頑張っても　「頭」がついていきません
既に　そんなマクロでてゐましたら
そのＵＲＬをご紹介していただければと思ひます

お時間ある時に…　





　

>>�@旧版の見出設定した常駐リスト
>>　これは　どうすれば出来ますか
�@常駐リスト…設定できました
　　　　　　　しかし　色設定は只今格闘中
�Aスマートアプリコントロールで開けない
　ＵＳＢに保管してあったＱＸ32を
　他のフォルダに再インストールしたら開きました
　
よって　使ひ勝手のいいＱＸ32に再び戻りました
しかし　やがてＳＡＣに引っかかり開けないことが
出て来ると思ひます　その時は　またお世話になります
ありがたうござゐました

>�@旧版の見出設定した常駐リスト
>　これは　どうすれば出来ますか

書式設定 > アウトライン（見出し）で文字列を設定してアウトラインウィンドウを表示すればできます。

NewQX になってできなくなった（いつ実装されるのか未定）こともあるのですが、このあたりに関しては旧QXよりずっと強力になっていると言えると思います。

アウトラインウィンドウは初期状態では表示されていると思いますが、いったん閉じると再表示の方法がわかりにくいかもしれません。ツールバーの先頭あたりでカーソルが十字になるところでの右クリックメニューから選択して表示できます。

わたしもたくさんある機能をちゃんと把握しているわけではないので、とりあえずわかるところだけしか解説できないのですが、NewQX になって大きいファイルも楽に開けるようになっているので、NewQX の自由に文字列が設定できるアウトライン（見出し一覧）はとても便利です。

もう２０年は　経ちませうか
ＭＬと　縦書でお世話になった岩田です
あれからずっと　縦書研究は続けて
ＱＸで　和たぐをつくり　縦書和たぐ新聞ができるやうになりました
昨年　Windows11に　乗り変へても順調に打てました
しかし　本年になって　スマートアプリコントロールに引っかかり
度々　QX32が開けず　仕事が　中断することしばしば
一日あけて　次の日　開けることもありますが
今後のことを考へますと　乗換時機だと思ひ
NEWQXをダウンロードしましたが　縦書表示ができた程度で
・昔の常駐リストが使へず
・オマケに見出設定もできず
・マクロも使へず　困ってゐます
やうやく　かぶねこさんのWIKIをみつけましたが
そちらに投稿しても　投稿通知来ぬため　投稿に気づかぬこともある
といふことで　こちらに投稿します
できないことが沢山あるので初めは一つに絞ります

�@旧版の見出設定した常駐リスト
　これは　どうすれば出来ますか

宜しくお願ひします

投稿テスト

その後、なんの反応もないので、ちょっとやきもきしてました。結果を教えていただいて、ありがとうございます。

ここに書き込みをしたあとで、
「カーソルの種類を変えたらどうかな」
と思いついたのだけど、てっきり、旧ＱＸのほうだと思い込んでいました。NewQXで、そんなことが起きるんですね。
このごろ老眼がひどくなって DOS カーソルを愛用しています。私なら、細長なカーソルしか使えないのは、ちと、つらいな。

どっちにしろ、いちおう解決したのは、よかった。

その後、このユーザーさんが、わたしがずっと前に個人的に
QXエディタの導入をおすすめしたかただとわかったので、
直接やりとりしてこの特定の問題は解決しました。

新しいパソコンになって NewQX をインストールしたところ、
マウスクリックした位置にカーソルが表示されない、という
問題だったようです。

NewQX の「その他」−「共通設定」−「テキストカーソル」の
設定を見直してもらって、「I型」カーソルにしたら見えたようです。

でもデフォルトの「DOSタイプ・50%・反転」でなぜ見えなかったのかは、
謎のままです。

移動できないカーソルは、ずっと点滅していますか？　それとも、途中で点滅が止まりますか？

移動できないカーソルの位置はＱＸで文書をひらくたび、毎回変わったりしませんか？　位置の変わり方に規則性はありませんか？

キーボードの Home キーや End キーで、カーソルを行頭や行末へ移動できますか？

Ctrl + Home、Ctrl + End で文書の最初や最後へカーソルを移動できますか？

かぶねこさん、おひさしぶり。わせいです。

ここに質問が出ているのには気づいていたのですが、
新しいパソコンなら Windows 11 か？
カーソルが動かないって、それは、いつも同じ位置にあるのか？
ＱＸの設定の問題ではなくて、Windows 11 のバグとか、深刻な事態のような気がする。
ＱＸの自動実行マクロで強引にカーソルを動かすことができるかな。
とにかく、いっぱい質問が必要だな。どこから質問すればいいのか。

……というようなことを考え込むうちに出遅れてしまいました。
なんにしろ、情報が足りない。

最近この掲示板を頻繁に巡回していなかったので、質問に気がつくのが遅くなりました。

>新しいパソコンに移行したら、マウスの右クリックでも↓→キーでも点滅するカーソルが移動しなくなりました。
>桁数の表示は変わり、前の文章の訂正もできるのですがブラインドでやる状態なのでとても不便です。
>どこかの設定の問題だと思いますが、共通設定のマウスのところに「カーソルを文字の左側に移動する」項目が見当たりません。
>どうしたらいいでしょうか？

お使いのバージョンとOSも書いて下さると手がかりになるかもしれません。わたしは Windows 10 で New QX を使っていますが、旧QX ではウィンドウサイズが記憶されないなどマイナーな問題が出るのと、このごろは UTF-8 の編集が必要なためです。

カーソルキーでカーソル移動ができない、というのはかなり重大な問題だと思います。しかし「共通設定」の「マウス」のところに「カーソルを文字の左側に移動する」という項目が、古い QX でも New QX でもみつけられませんでした。

この返信にお気づきでしたら、もう少し詳しく状況をお知らせください。