■ 質問はここへ ■

953 にジャンプ
No. 953投稿者: 狛江日付: 2003/06/23 11:48:26
題名 : マーク状態の取得

マクロで、
その行がマークされているかどうかを取得するってできますか。

No. 954 (953へのコメント)投稿者: 鋼だね HP日付: 2003/06/23 14:03:31
題名 : Re:マーク状態の取得

狛江 さん はじめまして。

>マクロで、
>その行がマークされているかどうかを取得するってできますか。

実際に試したわけではありませんが、可能なようです。↓をご覧下さい。

http://0ban.com/araken/qxhelp/m_docindex.htm#qLineAttr

No. 955 (954へのコメント)投稿者: 狛江日付: 2003/06/23 17:25:47
題名 : Re^2:マーク状態の取得

>狛江 さん はじめまして。
>
>>マクロで、
>>その行がマークされているかどうかを取得するってできますか。
>
>実際に試したわけではありませんが、可能なようです。↓をご覧下さい。
>
>http://0ban.com/araken/qxhelp/m_docindex.htm#qLineAttr

ありがとうございます。
大変参考になりました。
マーク行数を数えるマクロを作ってみました。

proc countMark	'マークを数える
	dim i,topLine,lineAttr
	@@redraw = 0
	topLine = @TopLine
	lineAttr = @LineAttr(1,1)
	if lineAttr = 8 or lineAttr = 40 or lineAttr = 136 or lineAttr = 168 then
		i++
	end if
	@MoveFileTop
	do
		@MarkSearchDown
		if @@SearchFound <> 0 then
			i++
		end if
	loop while @@SearchFound <> 0
	@TopLine = topLine
	print str$(i) + "行マークされています"
end proc

No. 957 (955へのコメント)投稿者: 鋼だね HP日付: 2003/06/24 13:44:42
題名 : Re^3:マーク状態の取得

>ありがとうございます。
>大変参考になりました。
>マーク行数を数えるマクロを作ってみました。
>
>proc countMark	'マークを数える
>	dim i,topLine,lineAttr
>	@@redraw = 0
>	topLine = @TopLine
>	lineAttr = @LineAttr(1,1)
>	if lineAttr = 8 or lineAttr = 40 or lineAttr = 136 or lineAttr = 168 then
>		i++
>	end if
>	@MoveFileTop
>	do
>		@MarkSearchDown
>		if @@SearchFound <> 0 then
>			i++
>		end if
>	loop while @@SearchFound <> 0
>	@TopLine = topLine
>	print str$(i) + "行マークされています"
>end proc

上手く目的が達成できたようで幸いでした。
成る程、こういう感じですか。色々と応用が利きそうですね。


ヘッダのみ表示
順番に表示(No. 953 から)


メールアドレスを表示するにはURLの後ろに &m=b2258a7e をつけてください。
ユーザー フォーラム一覧

http://www2k.biglobe.ne.jp/~araken/
http://0ban.com/araken/