bibtex中，如何修改.bst文件使作者姓名只有首字母大写，如格式“Peng H”？

Question

我目前使用gbt7714-2005.bst，但是参考文献中的作者姓名全为大写，

格式如“PENG H”。

我修改.bst文件中的format.names函数，将其中的"u" change.case$改为了"t" change.case$，但是格式变为了只有姓氏的首字母大写了，

格式如“Peng h”。

我希望姓名格式如“Peng H”，应该怎么改。

目前的format.names函数如下：

FUNCTION {format.names}
{ 's :=
  #1 'nameptr :=
  s num.names$ 'numnames :=
  numnames 'namesleft :=
    { namesleft #0 > }
    { s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
      nameptr max.num.authors >
        { bbl.et.al
          #1 'namesleft :=
        }
        { t "others" =
            { bbl.et.al }
            { t get.str.lang 'name.lang :=
              name.lang lang.en =
                { t #1 "{vv~}{ll}{~f{~}}" format.name$
                  uppercase.name
                    { "t" change.case$ }
                    'skip$
                  if$
                  t #1 "{, jj}" format.name$ *
                }
                { t #1 "{ll}{ff}" format.name$ }
              if$
            }
          if$
        }
      if$
      nameptr #1 >
        { ", " swap$ * * }
        'skip$
      if$
      nameptr #1 + 'nameptr :=
      namesleft #1 - 'namesleft :=
    }
  while$
}

Answer 1

https://blog.csdn.net/xueshengke/article/details/77446478