| |
こんばんは。ユーザの IKKI です。
> 見出しの階層表示に使っている記号をそのまま番号振り付けにできるのを捜していま
> す。
> ◎ → 1
> ◆ → 1.1
> ・ → 1.1.1
既成のマクロがあるかどうか私も知りませんが、
とりあえず次のようなマクロではいかがでしょうか。
// 行頭記号を章節番号にする
$marks = "◎◆・";
setcompatiblemode 0x0200;
$searchbuffer = searchbuffer;
#searchoption = searchoption;
gofiletop;
searchdown2 "^[" + $marks + "]", regular;
while (result) {
##p = strstr($marks, gettext(foundtopx, foundtopy, foundendx, foundendy, tr
ue));
if (##p >= 0) {
#n[##p] = #n[##p] + 1;
while (##p < strlen($marks)) {
##p = ##p + 2;
#n[##p] = 0;
}
$$number = "";
while (##p > 0) {
##p = ##p - 2;
if (#n[##p]) $$number = str(#n[##p]) + "." + $$number;
}
insert leftstr($$number, strlen($$number) - 1) + " ";
}
finddown;
}
setsearch $searchbuffer, #searchoption;
|
|