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

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

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

お時間ある時に…　





　

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

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

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

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

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

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

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

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

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

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

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

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

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

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

'文書をカーソル位置に挿入 / 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

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

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

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

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

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

また　宜しくお願ひします

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

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

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

昨日は　

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

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