テキストエディタＱＸ　5

**名無しさん＠お腹いっぱい。** · 2011/12/04(日) 18:03:21.37

《過去スレ》
テキストエディタＱＸ　4
http://hibari.2ch.net/software/kako/1128/11280/1128011742.html
テキストエディタＱＸ　3
http://pc7.2ch.net/test/read.cgi/software/1080860598/
テキストエディタＱＸ　2
http://pc5.2ch.net/test/read.cgi/software/1042148570/
テキストエディタＱＸ
http://pc3.2ch.net/software/kako/1003/10038/1003879529.html

《公式サイト》
http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/

関連
>>2-3

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 15:13:06.31

>>191
同じく
とりあえずマクロでしのいでる

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 20:45:11.59

>>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

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 21:19:39.97

マクロファイル名取得は分かった
Application.は省略して
Command(qxCOMMAND_MacroFile) '=-2

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 21:36:47.86

こういうチェックも入れた方がいいか
if ActivePane.Selection.Type > 0 then
ActiveFrameWindow.Status = "マクロ: 選択状態では移動しません。"
exit sub
end if

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 21:40:45.22

やっぱ入れないほうが便利かな

**名無しさん＠お腹いっぱい。** · 2021/03/25(木) 22:52:41.65

旧マクロだけど、こんなのでやってる

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

**名無しさん＠お腹いっぱい。** · 2021/03/26(金) 07:21:49.23

折り返し行モードを忘れてた
この変換は新マクロでどうやるんだろう？
分からんので、みっともないけど、この部分は旧マクロを呼び出すことにした
（旧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

**名無しさん＠お腹いっぱい。** · 2021/03/26(金) 07:56:23.55

貼れなかったので
https://www.axfc.net/u/4034798.zip

**198** · 2021/03/26(金) 08:32:00.93

若干修正
https://www.axfc.net/u/4034801.zip

**名無しさん＠お腹いっぱい。** · 2021/05/06(木) 03:51:07.20

ｵｰｲ

**名無しさん＠お腹いっぱい。** · 2021/05/10(月) 17:34:21.18

NewQX α0.91 21/5/1

**名無しさん＠お腹いっぱい。** · 2021/05/11(火) 11:38:12.79

既出のバグも直ってるね

テキストエディタＱＸ 5

テキストエディタＱＸ　5