■ 質問はここへ ■

990 にジャンプ
No. 984 題名 : 「文書全選択」のマクロ記述 投稿者 : Kyoko
No. 985 題名 : Re:「文書全選択」のマクロ記述 投稿者 : CINEPHILE
No. 986 題名 : Re^2:「文書全選択」のマクロ記述 投稿者 : Kyoko
No. 989 題名 : Re^3:「文書全選択」のマクロ記述 投稿者 : かぶねこ HP
No. 993 題名 : Re^4:「文書全選択」のマクロ記述 投稿者 : Kyoko
No. 990 (986へのコメント)投稿者: かぶねこ HP日付: 2003/07/21 20:40:08
題名 : Re: 引用符挿入

>1、引用符の右に最初から半角スペースが入っているもの
>2、引用符のみでスペースはないもの
>
>の 2 種類を登録してすぐ使用できるようにしたいのですが、何か手段はあるでしょうか。

基本機能の「引用符挿入」は、ヘルプに「引用符の設定 で設定した引用符の1
番が使用されます」とありますので、2 種類の使い分けはできないと思います。
半角スペース入りの「> 」が 1 番に設定されていれば半角スペースも入ります。

基本機能でできないので、マクロになります。引用符の種類はこのマクロの例で
は 5 種類まで設定行を増やして対応できます。いらない設定行は削除してくだ
さい。QSPACE.MAC のアレンジです。

'引用符挿入
proc main
dim startline, endline
dim j
dim oldline
dim quote$[5]
dim i, sel, s$

i = 1
quote$[i++] = "&a. > "
quote$[i++] = "&b. >"
quote$[i++] = "&c. >>"
sel = popupmenu(quote$)
s$ = mid$(quote$[sel], 5)

if @Select = 0 then
'選択されていないときは1行だけ
@MoveBeginningLine
@Insert s$
@MoveNextLineCr
exit sub
end if
@Redraw = 0
startline = @SelectStartLine
endline = @SelectEndLine - 1
@BlockSelectEnd

@UndoBlock = 1
for j = endline to startline step -1
@Line = j
@MoveBeginningLine
oldline = @Line
@Insert s$
j = oldline
next
@XDisplay = 1
@Redraw = 1
@UndoBlock = 0
end proc

No. 994 題名 : Re^2: 引用符挿入 投稿者 : Kyoko
No. 995 題名 : Re^3: 引用符挿入 投稿者 : かぶねこ HP
No. 991 題名 : Re^3:「文書全選択」のマクロ記述 投稿者 : CINEPHILE
No. 992 題名 : Re^3:「文書全選択」のマクロ記述 投稿者 : CINEPHILE

全テキストを表示
順番に表示(No. 990 から)


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

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