elsarticle-num.bst 格式调整

elsarticle-num.bst

格式调整

输出文章   不想用可以注释掉

FUNCTION {article}
{
  output.bibitem        % 输出文献条目开始
  format.authors "author" output.check % 输出作者
  title empty$ 'skip$ 'setup.inlinelink if$ % urlbst
  format.title "title" output.check      % 输出题目
  crossref missing$     % 如果没有引用其他文献
    { format.journal    % 输出期刊名称缩写
      "journal" output.check
      % add.blank
      before.all 'output.state :=
      format.vol.num.pages output % 输出卷、号、页码
    }
    { format.article.crossref output.nonnull % 如果引用了其他文献，则输出交叉引用的信息
      format.pages output
    }
  if$
  format.journal.pages  % 输出期刊页码范围
  format.note output     % 输出附注信息
  pages empty$           % 如果没有页码信息
    { format.date "year" output.check } % 输出年份
    'skip$ 
  if$
  fin.entry              % 文献条目结束
  write.url              % 输出网址信息
}

每一个format都对应一个函数，比如 format.journal

journal 替换为简写的形式
FUNCTION {format.journal}
{ 
  journal empty$
    { "" }
    { 
      journal "Journal of Nuclear Materials" = 
        { "J. Nucl. Mater." }
        { journal "Materials & Design" = 
            { "MATER DESIGN." }
            { journal "Scripta Materialia" = 
                { "Scripta Mater." }
                { journal "Physical Review B" = 
                    { "Phys. Rev. B " }
                    { journal }
                  if$
                }
              if$
            }
          if$
        }
      if$
    }
  if$
}

format.vol.num.pages  输出卷 页码 等

FUNCTION {format.vol.num.pages}
{
  % volume field.or.null
  " "
  volume empty$
    { pop$ "" }
    { volume * }            //vol
  if$
  number empty$
    'skip$
    {
      %"~(" number * ")" * *      //num
      volume empty$
        { "there's a number but no volume in " cite$ * warning$ }
        'skip$
      if$
    }
  if$
}