01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
//// " # "あるいは" % "を行頭に入れるマクロ
golinetop2; // 行頭に移動
beginsel;
down;
replaceall "^\\t+" , "" , regular, nocasesense, inselect; // 行頭のタブを消去
golinetop2; // 行頭に移動
if(filetype == ".r"){ // 拡張子がrの場合
insert "\t# "; // タブ+#+半角空白を挿入
} else { // 拡張子がr以外の場合
insert "\t% "; // タブ+%+半角空白を挿入
}
endmacro; //終了
% 文献情報の確認をする場合は 1,しない場合は0
% FUNCTION {informationcheck}{"0"} % 文献情報の確認をしない場合
FUNCTION {informationcheck}{"1"} % 文献情報の確認をする場合
FUNCTION {format.infocheck} % 文献情報の確認用
{ informationcheck "1" =
{ % informationcheck が"1"の場合
infocheck empty$
{ "" } % infocheckが空だったら,何も出力しない
{ "○" } % infocheck が空でなければ,"○"を出力する
if$
}
{ "" } % informationcheck が"1"以外の場合は,何も出力しない
if$
}
最後に,次のように article とかを処理するところに,適当に上で定義した"format.infocheck"を入れておく.すると,「{informationcheck}{"1"}」とした場合,bibファイルに「infocheck = {1},」とあれば,文献情報の前に「○」が付く.
FUNCTION {article}
{ output.bibitem
format.infocheck
format.authors "author" output.check.nocomma
format.year "year" output.check.nocomma
format.title "title" output.check.nocomma
format.journal "journal" output.check.nocomma
format.vol.num.pages output.nocomma
fin.entry
}
久々にbstファイルをいじった.たまにプログラムをすると疲れるが,楽しい.
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
最終更新時間: 2010-06-01 21:29