テキストエディタＱＸ 5
テキストエディタＱＸ 4
http://hibari.2ch.sc/software/kako/1128/11280/1128011742.html
テキストエディタＱＸ 3
http://pc7.2ch.sc/test/read.cgi/software/1080860598/
テキストエディタＱＸ 2
http://pc5.2ch.sc/test/read.cgi/software/1042148570/
テキストエディタＱＸ
http://pc3.2ch.sc/software/kako/1003/10038/1003879529.html
《 公式サイト 》
http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/
関連
>>2-3
http://www2.justnet.ne.jp/~chic/qx_ml.html
http://www.egroups.co.jp/group/uraqx (裏ML)
http://www.egroups.co.jp/group/qx_users_macro (USERS MACRO ML)
《 マクロ＆Tips 》
http://www.vector.co.jp/vpack/filearea/win/writing/edit/qx/index.html
http://homepage3.nifty.com/neko33/
http://homepage1.nifty.com/kabuneko/
http://www.marenijr.net/qx/
http://members.jcom.home.ne.jp/shimadagen/QX.html
http://0ban.com/kay/qxmain2.html
《 ユーザー・インタビュー 》
http://0ban.com/yook/intv/index.html
《 NewQX情報 》
http://0ban.com/araken/uralib/newqx040401.htm
http://nekomimi.la.coocan.jp/
あれはどこに保存してあるんだ
でも行数が多いファイルだとマーク情報が保存されない
どういうことだ
■ xxキロバイト以下の文書の時マーク保存
指定したサイズ以下の文書では、文書を閉じたときにマークを保存します。次回、同じ文書を開いたときにマークが復元されます。
文書を保存した時は 0 を指定した場合を除いて必ず保存されます。
0 を指定すると、マークを保存しません。
文書の先頭から最大30個だけが保存されます。
とりあえず5Mに上げといた
別に無制限でも構わないと思うけど
最大編集作業領域のデフォルトも2Mバイト
10Mに上げようと思ったら最大が9999KiBだ
メモリくらいどんどん使ってくれていいのに
とりあえず礼いっとけや
この軽さがありがたい時もある。先にIMEがヘタッたりするがｗ
と言うてもワードとの比較だけやけどね。
他のエディタはスペック確かめただけで使う気にならなかった。
これもテンプレに入れて欲しい。
UTF8QX は、UTF-8正式対応までのつなぎに、ＱＸを無理やりUTF-8対応化してくれる、
はかない運命のプログラムです。
http://www.geocities.jp/chiyorou2005/
両方とも要らんわ！
それで、従来のマクロが使えなくなる損失甚大。
使い心地は今ので充分慣れたし。
名前で毛嫌いしてるだけで、使ってみたら意外といい物かもしれないし
QXに金払ってる上にさらに4200円払うのは負けな気がする…
いまさら秀丸に移行する必要性が無い
qxdata/iniフォルダ内のqxmsg.txtに
//デフォルトのコードページ 無題ファイルやサイズ０で自動判定できないときに使用される。指定しないとシステムのコードページ
QMSG_DefaultCodepage
という行があるので、
QMSG_DefaultCodepage 1200
とすればいける。
ありがとうございます。設定出来ました。
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
ソウカ
死・ね
超適当に作ってみた
--- web_search.mac ---
'選択文字列 を googleで検索する
const URL$ = "http://www.google.com/search?hl=ja&lr=lang_ja&safe=off&q="
dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, int);
proc search()
if @hwnd = 0 then exit proc
ShellExecute(0, "open", URL$ & @TextSelect$, 0, 0, SW_SHOWNORMAL)
end proc
---------------------
これをmacroフォルダに置いて、qxwkey.ｉｎｉのPopup "編集"の適当な場所に"google検索"の一行を追加しqxwを再起動
--- qxwkey.ini ---
Popup "編集"
"ＵＮＤＯ" Undo
"ＲＥＤＯ" UndoUndo
separator
"google検索" $web_search.mac,search
separator
"コピー" BlockClipboardCopy
"切り取り" BlockClipboardCut
"貼り付け" BlockClipboardPaste
------------------
ありがとう！！
QXと>>43愛してる！！
これだとダブルクォーテーションがあるとそこでちょん切れるぜ
で、ちょびっと修正してみた
なお、起動するブラウザとURL$指定のオプションパラメタは各自修正してちょ
(num=50&lr=lang_ja&safe=offなどなど)
--- web_search.mac ---
'選択文字列 を googleで検索する
'--- ブラウザ.exeファイル名を指定する（レジストリに登録されないものはフルパスで）
'const browser$ = """G:\bin\INET\Donut RAPT\Donut.exe"""
const browser$ = "iexplore.exe"
const URL$ = "http://www.google.co.jp/search?hl=ja&q="
dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, int);
proc search()
dim keyword$
dim exe$
if @hwnd = 0 then exit proc
exe$ = searchexe$(browser$)
if exe$ = "" then exe$ = browser$
keyword$ = """" & URL$ & @TextSelect$ & """"
'ShellExecute(0, "open", keyword$, 0, 0, SW_SHOWNORMAL)
if shell(exe$ & " " & keyword$,1)=0 then
call msgbox(exe$ & "が起動できません",MB_ICONEXCLAMATION, "google検索マクロ")
exit proc
end if
end proc
---------------------
なにからなにまで、すまねえ、すまねえ……。
なんつーか、QXって今だに愛されてるエディタなんだなぁ、って思うよ。
個人的に好きではないのでさらに修正してみた
ShellExecuteやrundll32.exe url.dll,FileProtocolHandlerで
ダブルクォーテーションをそのまま受け渡すのがうまくいかなかったので、
レジストリを参照することにしたものを最後にあげとく
なお、firefox（古い版だけど）だとパラメタが編集されて、
ダブルクォーテーションが削除されるようだ
IE8だと複数回起動するとウィンドウが複数開かないように設定できないのかな？
' ブラウザ.exeファイル名を指定する（レジストリに登録されないものはフルパスで）
' なお、ヌル文字列を指定した場合は既定のブラウザが使用される
'const browser$ = """G:\bin\INET\Donut RAPT\Donut.exe"""
'const browser$ = "iexplore.exe"
const browser$ = ""
const URL$ = "http://www.google.co.jp/search?hl=ja&q="
dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, long*);
dllname "advapi32.dll"
const ERROR_SUCCESS = 0
const HKEY_CLASSES_ROOT = &H80000000
const HKEY_CURRENT_USER = &H80000001
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_USERS = &H80000003
const HKEY_CURRENT_CONFIG = &H80000005
const HKEY_DYN_DATA = &H80000006
cdeclare long RegOpenKey(long, LPCSTR, long*);
cdeclare long RegCloseKey(long);
cdeclare long RegQueryValueEx(long, LPCSTR, long, long, LPSTR, long*);
dim keyword$
dim exe$
if @hwnd = 0 then exit proc
exe$ = search_browser$()
keyword$ = """" & URL$ & @TextSelect$ & """"
if shell(exe$ & " " & keyword$,1)=0 then
call msgbox(exe$ & "が起動できません",MB_ICONEXCLAMATION, "google検索マクロ")
exit proc
end if
end proc
dim subkey$
dim exe$
if browser$ = "" then
subkey$ = reg_query$(HKEY_CLASSES_ROOT,"http\shell")
if subkey$="" then subkey$ = "open"
exe$ = reg_query$(HKEY_CLASSES_ROOT,"http\shell\" & subkey$ & "\command")
if exe$ <> "" then
if left$(exe$,1)="""" then
exe$ = left$(exe$,instr(2,exe$,""""))
else
if instr(exe$," ")>0 then exe$ = left$(exe$,instr(exe$," ")-1)
end if
end if
else
exe$ = searchexe$(browser$)
if exe$ = "" then exe$ = browser$
end if
search_browser$ = exe$
end function
dim hKey
dim buf$ as string[251]
dim BUF_LEN
BUF_LEN = 250
if RegOpenKey(root,subkey$,hKey)=ERROR_SUCCESS then RegQueryValueEx(hKey,"",0,0,buf$,BUF_LEN)
RegCloseKey(hKey)
reg_query$ = buf$
end function
至れり尽くせりで感謝の言葉もないよ…！
自動実行マクロとしてじゃなく、QX起動中に任意で実行・停止出来れば
言うこと無しなんだが……。
久しぶりにこのスレが活況を呈していたので、甘えたことを言ってみた。
あんまり推奨できないけど、サンプルを提示するね
トグルスイッチとしては、ステータスバーボタンとポップアップメニューに追加するものとした
--- qxwkey.ini ---
[StatusBar]
//*** 先頭から、この部分は省略 ***
" " 12
""
"$G$gg_toggle$3" $AutoXXX.mac,toggle_width
[Macro]
AutoMacro=AutoXXX.mac
----------------
--- AutoXXX.qma ---
[1]
"自動幅合わせ on/off" AutoXXX.mac,toggle_width
AutoXXX.mac,toggle_width 1S "随時、自動的に文書の横幅を調整する on/off"
----------------
proc AutoTimer()
dim width
if @hwnd = 0 then exit proc
if @Global$("g_toggle_width")<>"on" then exit proc
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
if width<40 then width = 40
if width>254 then width = 254
if val(@Global$("g_prev_width")) <> width then @width = width : @Global$("g_prev_width") = str$(width)
end proc
proc AutoOpened()
@Global$("g_toggle_width") = "off"
@Global$("g_prev_width") = str$(@width)
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
proc toggle_width()
if @Global$("g_toggle_width")<>"on" then
@Global$("g_toggle_width")="on"
else
@Global$("g_toggle_width")="off"
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
proc AutoActivate()
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
------------------
なんか気にかかる部分があるので修正した方がいいかもしれない
cdeclare long RegOpenKey(long, LPCSTR, long*);
--> cdeclarea long RegOpenKey(long, LPCSTR, long*);
cdeclare long RegQueryValueEx(long, LPCSTR, long, long, LPSTR, long*);
--> cdeclarea long RegQueryValueEx(long, LPCSTR, long, long, LPSTR, long*);
dim buf$ as string[251]
をfunction reg_query()の上に移動する（つまりfunctionの外に出す）
あ な た が 神 か
すごい！ありがとう！
ただ、俺のやり方が悪いのか、ポップアップメニューには追加されたんだけど
ステータスバーボタンのどこに追加されたのか見つからない……。
いや、現状でも十分なんだけどね！
ステータスバー自体は表示されているんだよね？表示されてないなら
共通設定-ツールバーで設定を
他になにも追加してなければ、ステータスバーには
12個のファンクションキーボタンが表示さｒえているはずで、今回のはそのF12キーの
右隣に表示するようになってる
>>54のqxwkey.iniは、ここに貼り付けた時にタブコードが消えてるけど
追加するのは
""
"$G$gg_toggle$3" $AutoXXX.mac,toggle_width
の2行（下の1行だけでもよい）です
（マクロのファイル名はお使いのファイル名に正しく修正してください）
自動マクロが正常に動いてるとすればqxwの再起動は行ってるようだし
（常駐も終了させてる）
もしかしたらウィンドウの幅が小さくて右側に隠れているのかもしれない
ので少し広げてみてください
[StatusBar]セクションの最後ってことです
表示された！
単に共通設定で「ファンクションキー表示」にチェックが入ってなかったみたいです。
ありがとう、ありがとう。
たびたびすみません。
ファンクションキーの表示なんですが、うちの環境だと↓みたいな状態で……。
http://uploda.cc/img/img507e08f1efd77.jpg
一度でもステータスバーのF12キー右端をクリックすれば「on/off」の表示がされます。
（ちなみにqxwkey.iniを開くだけでも表示されます）
------------------
[StatusBar]
" " 1
" " 2
" " 3
" " 4
""
" " 5
" " 6
" " 7
" " 8
""
" " 9
" " 10
" " 11
" " 12
""
"$G$gg_toggle$3" $utf8qx.mac,toggle_width
[Macro]
AutoMacro=utf8qx.mac
------------------
ファイルネームがutf8qx.macなのは、
ttp://www.geocities.jp/chiyorou2005/
↑ここのutf8qx.macの先頭に>>54-55を追記してる形にしてるからです。
そもそもこれが問題なのかな……？
ｸﾚｸﾚで本当に申し訳ないんだけど、もし他にどこかおかしいところがあったら
教えてもらえないでしょうか。
何か文書（新規に開くでもよい）を開くまではボタンに文字は表示されないので正常です
これは、文書を開いた直後(AutoOpened)に初期値を設定しているためです
ただ、文書を何も開いていない状態ではボタンはクリックできないはずで
もし何か開いているのなら既に表示されていると思うのですが？
もし、起動直後から表示させたければ、
utf8qx.macに存在している AutoInit() に
@@Global$("gg_toggle") = "off"
を追加してください
AutoTimer() AutoOpened() AutoActivate()
の proc の部分を全て sub に変更してください（中身の部分 exit procとかも全部 exit subへ）
（理由はマクロ一覧でprocだと表示されちゃうってだけだけど）
ボタンをPFキーを表示しなくても良いようにToolBarに移動したい場合は
qxwkey.iniの [StatusBar] セクションじゃなくて [ToolBar] セクションに
"$G$gg_toggle$3" "自動的に文書幅をｳｨﾝﾄﾞｳ幅に合わせる" $utf8qx.mac,toggle_width
というように移動してください
他にも、キーやマウスに割り付けるとか、メニューに入れるとかお好きにどうぞ
なお、ステータスバーやツールバーにボタンを表示しない場合は
@@Global$("gg_toggle")のある行は全て不要です
つまりは、AutoActivate() 自体も不要になります
何から何までありがとうございます！
ただ、上記変更を加えたところ起動直後には「on/off」表示がされるんですが、
ウィンドウを切り替えると表示が消えてしまうみたいです。
それだと、AutoOpened() が動作してないですね
確認のために、AutoOpened() の先頭に
call msgbox("openしたぞ")
を入れて、再起動後、何か文書を開いてみて、このメッセージが表示されるかどうかみてください
もし表示されないならもう一度マクロを確認してみてください
（もしやマクロはコピーペーストじゃなくて手打ちですか？）
"openしたぞ"、表示されました。
あと、原因らしきものも発見しました。
どうやら
http://www.vector.co.jp/soft/win95/writing/se050613.html
こちらのマクロで複数ファイルを開いてウィンドウを切り替えると
「on/off」表示が消えるようです。
うーむ、不思議……。
そういうことでしたか
AutoActivate() の先頭に
if @Global$("g_toggle_width") = "" then AutoOpened : exit sub
を追加してください
原因は、通常マクロ実行中は自動マクロは止まっているため
文書を開いても自動マクロAutoOpenedが呼ばれなかったためです
対処としては、文書を切り換えた時に、初期値が入ってなければ
初期化するようにしました
gg_toggleという名前はあんまりなので、もう少し気の利いた名前
（他マクロとは絶対重ならないもの）に変更してください
なるほど、ありがとうございました！
いや−、すごい……。
これものすごく便利なので
是非、ID:SAg6k3tV0さんにベクターなりで公開して欲しいです。
個人的には、QWIDTH.MACをポップアップメニューなりキーに割り付けておいて
必要なときに実行するだけで良いと思ってるんだけど．．．
個人的には、自動マクロなんてあんまり使うもんじゃないような気がする
んで別の場で公開とかする気は無いです
（僅かでも動作が遅くなるわけだしね）
あと動作としては、AutoTimerとtoggle_widthの2つだけあればいいですよ
（他はボタン表示のためのようなもんだし）
標準機能にある
@MacroDisableAuto 自動実行マクロを停止させる
@MacroEnableAuto 自動実行マクロを動作させる
これを使えば以前のままで対処できたね
他の自動マクロがある場合に、それも止まったらダメだろと思ってたけど
今試したら、AutoTimerだけが止まるようだから、十分使える
sub AutoTimer()
dim width
if @hwnd = 0 then exit sub
if @Global$("g_toggle_width") = "" then AutoActivate : exit sub
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
if width<40 then width = 40
if width>254 then width = 254
if val(@Global$("g_prev_width")) <> width then @width = width : @Global$("g_prev_width") = str$(width)
end sub
proc toggle_width()
if @Global$("g_toggle_width")<>"on" then
@Global$("g_toggle_width")="on" : @MacroEnableAuto
else
@Global$("g_toggle_width")="off" : @MacroDisableAuto
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
sub AutoActivate()
if @Global$("g_toggle_width") = "on" then
@MacroEnableAuto
else
@Global$("g_toggle_width") = "off"
@Global$("g_prev_width") = str$(@width)
@MacroDisableAuto
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end sub
が止まるからやっぱり使わない方がいいか、というわけでやっぱり戻す
sub AutoTimer()
dim width
if @hwnd = 0 then exit sub
if @Global$("g_toggle_width") = "" then AutoActivate : exit sub
if @Global$("g_toggle_width") <> "on" then exit sub
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
if width<40 then width = 40
if width>254 then width = 254
if val(@Global$("g_prev_width")) <> width then @width = width : @Global$("g_prev_width") = str$(width)
end sub
proc toggle_width()
if @Global$("g_toggle_width")<>"on" then
@Global$("g_toggle_width")="on"
else
@Global$("g_toggle_width")="off"
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end proc
sub AutoActivate()
if @Global$("g_toggle_width") = "" then
@Global$("g_toggle_width") = "off"
@Global$("g_prev_width") = str$(@width)
end if
@@Global$("gg_toggle") = @Global$("g_toggle_width")
end sub
（こっちの方が実用には適しているかも知れない）
sub AutoTimer()
dim width
if @hwnd = 0 then exit sub
if @@Global$("gg_toggle") <> "on" then exit sub
width = @ScreenWidth - 4
if @PrintNumber then width = width - 6
if width<40 then width = 40
if width>254 then width = 254
if val(@Global$("g_prev_width")) <> width then @width = width : @Global$("g_prev_width") = str$(width)
end sub
proc toggle_width()
if @@Global$("gg_toggle")<>"on" then
@@Global$("gg_toggle")="on"
else
@@Global$("gg_toggle")="off"
end if
end proc
ここの「常駐リストに背景を」、バグフィックス待ってたけど結局更新来なかったなー。
開発続いていたのか。。。
本当だ、更新されていた。情報ありがとう。
いちいち、そんなことやってられない。
実用優先！実用第一！
NewQXよりも、従来の各種制限事項をみんな取っ払って欲しいわ。
（特に、clipboad$や文字列変数の容量）
つか、なして、webサイト構築ならUTF8、なんだぜ？
男ならEUCだろ？
書けないような難しい漢字使わないし
漢字だけって？？
あのなあ、エディタでUnicodeって言ったら普通UTF8だろ！
現行QXは、対応してないから、今時の汎用エディタとしては云々となるわけで…
http://www.geocities.jp/chiyorou2005/
これでもあかんか
QTClip v3.0β for Windows XP, 7
試してみたけど、設定が悪いのか、うまくいかない。
誰かできた人いる？
ちょっと遅れたエイプリルフールです
qxwmac32.dllをコピーした？
qxwmac32.dllも旧Macroフォルダもコピーしたけど。
ＰＣ２台で検証。１台は「マクロ一覧」にちゃんとマクロフォルダの中身が表示される
ものの、もう１台は表示されず。iniファイルを変にいじっちゃったか……よくわかりません。
ただ、その場合でも「マクロ登録」に直接マクロファイルの名前を記述してやれば
（「参照」は用いず）、マクロを認識することはします。
ただ、走らせるとエラーが出る……。たぶん、正常に動くマクロと動かないマクロが
あるんだと思います。うーん。
新規インストールするとそうなっている。
100〜のスレッドの続きを読む