>ありがとうございます。
>大変参考になりました。
>マーク行数を数えるマクロを作ってみました。
>
>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
上手く目的が達成できたようで幸いでした。
成る程、こういう感じですか。色々と応用が利きそうですね。 |