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 0050名無しさん@お腹いっぱい。2012/10/16(火) 04:04:49.10ID:kEAeGR350 function search_browser$() 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 0051名無しさん@お腹いっぱい。2012/10/16(火) 04:05:21.57ID:kEAeGR350 function reg_query$(root,subkey$) 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 0052422012/10/16(火) 06:35:18.94ID:LGM22O9o0>>47 至れり尽くせりで感謝の言葉もないよ…! 0053名無しさん@お腹いっぱい。2012/10/16(火) 10:18:21.54ID:jfQvq5wt0 前スレ398が作ってくれた「ウィンドウ幅で自動折り返し」マクロ、 自動実行マクロとしてじゃなく、QX起動中に任意で実行・停止出来れば 言うこと無しなんだが……。
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 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 0074名無しさん@お腹いっぱい。2012/10/18(木) 02:58:35.12ID:m9dxtSA40 @MacroDisableAuto を使うとファイル(QAOPND01.MACとか)での自動実行マクロ が止まるからやっぱり使わない方がいいか、というわけでやっぱり戻す
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 0075名無しさん@お腹いっぱい。2012/10/18(木) 10:13:53.79ID:m9dxtSA40 文書毎にon/offを独立させずに、全体としてon/offを制御するなら簡単になる(AutoActivateも不要) (こっちの方が実用には適しているかも知れない)
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 0076名無しさん@お腹いっぱい。2012/10/27(土) 14:23:28.55ID:huAzKsr+0 ttp://www.marenijr.net/qx/index.html ここの「常駐リストに背景を」、バグフィックス待ってたけど結局更新来なかったなー。 0077名無しさん@お腹いっぱい。2012/11/17(土) 22:52:45.29ID:UNRSjBSs0 12/11/13 NewQX α0.4 開発続いていたのか。。。 0078名無しさん@お腹いっぱい。2012/11/18(日) 20:24:40.42ID:tlq/T4J00>>77 本当だ、更新されていた。情報ありがとう。 0079名無しさん@お腹いっぱい。2013/01/22(火) 17:02:47.04ID:2tkicrlv0 NewQXは、高機能な企画かも知れんが、今までのマクロを書換えねばならんので要らんわ。 いちいち、そんなことやってられない。 実用優先!実用第一!
操作性の前提は動作の軽快さである。 Win10で使う旧QX6.91は、まことに軽い。Meryよりよほど軽くて速い。 高速スクロール時のMery画面表示の乱れ様は、QXづかいには考えられない見苦しさ。 なんでMeryを使う必要があるのか。 0183名無しさん@お腹いっぱい。2021/03/08(月) 22:27:55.44ID:VQqw95Xl0 もう旧は殆ど起動しなくなったなあ 新が使いやすくて 0184名無しさん@お腹いっぱい。2021/03/08(月) 22:37:19.19ID:gb8dfWPI0 新は出た当時取っつきにくくて、そのまま旧を使い続けてるな Windowsの問題なんだが縦書きだと……とか――の表示がおかしいフォントがあるのが微妙だけど、新入れても改善されるわけじゃないだろうなぁ でもまた新入れてみるかな 0185名無しさん@お腹いっぱい。2021/03/09(火) 01:42:39.23ID:T2k/3I760 新で、左にbinderとoutlineの2つを表示して3つのペインで使ってる 0186名無しさん@お腹いっぱい。2021/03/15(月) 12:45:33.52ID:3F4nNwKv0 NewQX導入した 最初の頃見て離れてたけど旧のマクロ使えるようになってるし、旧だと出る縦書き表示のフォント問題出ないのはいいね ファイルリストの背景色変えられないとか気になる点はあるけど使えそう 0187名無しさん@お腹いっぱい。2021/03/15(月) 16:07:11.35ID:xPr0gjP60 UTF-8がまともに使えるのと検索の正規表現が一般的なものになったのが大きい 0188名無しさん@お腹いっぱい。2021/03/18(木) 23:42:29.42ID:Mi4Kkh0F0 NewQXの最大のメリットは、一行の文字数が多くても途中で切れないで表示されること まあデメリットは月に一度はlogファイルの掃除が必要なこと 試作版なのでトレース情報をlogしてるのは理解できるけどね 0189名無しさん@お腹いっぱい。2021/03/24(水) 18:47:22.98ID:8LHdlvC/0 vzバインドのマクロから離れられなくて旧使ってるわ 新がサポートするなら使ってみるか 0190名無しさん@お腹いっぱい。2021/03/24(水) 18:50:30.57ID:c5W4xbC+0 10のこないだのアプデからかな?ちょっと調子が悪い 漢字変換で動きが変になったり他の操作ができなくなったり 0191名無しさん@お腹いっぱい。2021/03/24(水) 20:54:36.74ID:rU3byq1n0 なんか行移動(ctrl+G)ができない(OKが押せなくなった) 0192名無しさん@お腹いっぱい。2021/03/25(木) 15:13:06.31ID:NE/zss3n0>>191 同じく とりあえずマクロでしのいでる 0193名無しさん@お腹いっぱい。2021/03/25(木) 20:45:11.59ID:UF0whFQc0>>192 なるほどマクロか ちょっと作ってみたけど、実行中のマクロ名取得が分からん あと、ダイアログ実行も Application.ExecIDString(MoveLineX) だとやっぱりOKが押せない sub main dim line if ActivePane is nothing then exit sub line = InputBox("行番号:","行移動マクロ") if line = "" then exit sub if IsNumeric(line) then line = int(line) if line <= 0 then line = 1 ' if ActiveDocument.maxLineLF >= line then ActivePane.Selection.CurrentLine = line-1 ' else ' ActiveFrameWindow.Status = "マクロ: 行番号が範囲外です。" ' end if else ActiveFrameWindow.Status = "マクロ: 行番号が間違っています。" end if end sub 0194名無しさん@お腹いっぱい。2021/03/25(木) 21:19:39.97ID:UF0whFQc0 マクロファイル名取得は分かった Application.は省略して Command(qxCOMMAND_MacroFile) '=-2 0195名無しさん@お腹いっぱい。2021/03/25(木) 21:36:47.86ID:UF0whFQc0 こういうチェックも入れた方がいいか if ActivePane.Selection.Type > 0 then ActiveFrameWindow.Status = "マクロ: 選択状態では移動しません。" exit sub end if 0196名無しさん@お腹いっぱい。2021/03/25(木) 21:40:45.22ID:UF0whFQc0 やっぱ入れないほうが便利かな 0197名無しさん@お腹いっぱい。2021/03/25(木) 22:52:41.65ID:WvWfDol40 旧マクロだけど、こんなのでやってる
proc main dim maxCrLn,n if @hwnd=0 then exit proc maxCrLn=@ScrLineToCrLine(@LastLine) n=inputbox("行番号 (1〜"+str$(maxCrLn)+")","移動",@ScrLineToCrLine(@Line)) if n=INPUTBOX_CANCEL or n>maxCrLn then exit proc @Line=@CrLineToScrLine(n) end proc 0198名無しさん@お腹いっぱい。2021/03/26(金) 07:21:49.23ID:6CLOzfu70 折り返し行モードを忘れてた この変換は新マクロでどうやるんだろう? 分からんので、みっともないけど、この部分は旧マクロを呼び出すことにした (旧QXからQXWMAC32.DLLをコピーしてくること)
'*** moveline_sub.mac *** proc main dim line line = val(@@Global$("Line")) if @LastLine < line then line = @LastLine @@Global$("Line") = str$(@ScrLineToCrLine(line)) end proc 0199名無しさん@お腹いっぱい。2021/03/26(金) 07:56:23.55ID:5AV2mlIU0 貼れなかったので https://www.axfc.net/u/4034798.zip02001982021/03/26(金) 08:32:00.93ID:vJvbp2Cr0 若干修正 https://www.axfc.net/u/4034801.zip0201名無しさん@お腹いっぱい。2021/05/06(木) 03:51:07.20ID:05K9wluG0 オーイ 0202名無しさん@お腹いっぱい。2021/05/10(月) 17:34:21.18ID:YV/Ba5MB0 NewQX α0.91 21/5/1 0203名無しさん@お腹いっぱい。2021/05/11(火) 11:38:12.79ID:RU81HHhu0 既出のバグも直ってるね