Excel VBA参考文献中人名与年份格式转换

一、用途

将Excel中含有人名与年份的字符串转换为指定格式。要求输入格式中作者的姓必须大于1个字符，名必须为1个字符。

【案例】某不规则的参考文献字符串
Wang, H X, Ng, T B, 2000. Ginkbilobin, a novel antifungal protein from Ginkgo biloba seeds with sequence similarity to embryo-abundant protein. Biochem Bioph Res Co 279(2):407-411.

使用该函数后，能够将人名与年份自动转换为指定格式，例如转换为：Wang, H. X., Ng, T. B. (2000).（不限于这种格式）

二、使用方法

在Excel中打开Visual Basic工作界面，在对应Excel表上新建模块，并将以下代码复制到模块中
在Excel表的某一单元格中输入“=People_year(参数表)”，按回车即可。
【参数表说明】
cell - 需转换参考文献格式的单元格或字符串
Fam_sep - 名后面的分隔符，默认为逗号
Fir_sep - 姓后面的分隔符，默认为即句号
Peo_sep - 人后面的分隔符，默认为逗号
has_brack - 发表年份是否要加括号

三、代码

Function min(a, b)If a > b Thenmin = bElsemin = aEnd If
End FunctionFunction is_char(a)is_char = FalseIf (a >= "a" And a <= "z") Or (a >= "A" And a <= "Z") Thenis_char = TrueEnd If
End FunctionFunction have_char(Str)have_char = 0For i = 1 To Len(Str)If is_char(Mid(Str, i, 1)) Thenhave_char = iExit ForEnd IfNext i
End FunctionFunction ctrl_right(Str, start)Dim endding As Integerendding = startDo While is_char(Mid(Str, endding, 1))endding = endding + 1Loopctrl_right = endding - 1
End FunctionFunction People_year(cell, Optional Fam_sep As String = ",", _Optional Fir_sep As String = ".", Optional Peo_sep As String = ",", _Optional has_brack As Boolean = True)' Fam_sep 名后面的分隔符，默认为Journal of Ecology格式，即逗号' Fir_sep 姓后面的分隔符，默认为Journal of Ecology格式，即句号' Peo_sep 人后面的分隔符，默认为Journal of Ecology格式，即逗号' has_brack 选择发表年份是否加括号Dim Str As StringDim year As IntegerDim Pub_year As StringStr = cell.Value' 确定发表时间在字符串中的位置year = 9999For i = 0 To 9t_year = Val(InStr(1, Str, CStr(i)))If t_year <> 0 Thenyear = min(year, t_year)End IfNext i' 确定发表时间的第一个字符位置Do While Mid(Str, year - 1, 1) >= "0" And Mid(Str, year - 1, 1) <= "9"year = year - 1LoopPub_year = Mid(Str, year, 4)Str = Mid(Str, 1, year - 1)' 寻找姓名Dim start As IntegerDim Name As StringDim Family As StringDim Result As StringDim Fir_fam As String'Dim next_start As Integer'Dim next_fir_fam As StringResult = ""start = have_char(Str)Do While startFir_fam = Mid(Str, start, ctrl_right(Str, start) - start + 1)' 原理：只要长度为1，就是名；长度超过1，就是姓If Len(Fir_fam) = 1 Then'next_start = have_char(Mid(Str, ctrl_right(Str, start) + 1))'next_fir_fam = Mid(Str, next_start, ctrl_right(Str, next_start) - next_start + 1)'If Len(next_fir_fam) = 1 Then  ' 之后还是名Result = Result + " " + Fir_fam + Fir_sepElseResult = Result + Peo_sep + " " + Fir_fam + Fam_sepEnd IfStr = Mid(Str, ctrl_right(Str, start) + 1)start = have_char(Str)Loop' 是否加年份括号Result = Mid(Result, 3)If (has_brack = True) ThenResult = Result + " (" + Pub_year + ")."ElseResult = Result + " " + Pub_year + "."End IfPeople_year = Result
End Function

Excel VBA参考文献中人名与年份格式转换相关推荐

biblatex中如何修改参考文献中日期的著录格式
biblatex中如何修改参考文献中日期的著录格式日期是参考文献中重要著录项,因此通常具有一定格式要求.根据国标GB/T 7714-2015要求,不同日期具有不同的格式,比如: 引用日期通常由方括号 ...
Excel VBA开发中数字签名的管理
Excel 禁用无数字签署的宏网上下载的Excel文件可能含有宏病毒,因此打开Excel文件时最好不要轻易启动宏,同时为了不让"启动宏"的提示每次出现,可以在Excel设置中提高 ...
ESRI的Shapefile文件向Google Earth中KML文件的格式转换
转载自http://wenku.baidu.com/link?url=3TG7c0cERbdnZwFBLq6n2v-chB-k4ja5ikNYSyRQHyLf4yvYCGBEGrlhch8GD5e-9 ...
java date 转integer_java 中Date的各种格式转换
把java.util.Date格式的时间转为java.sql.Date格式的时间 java.sql.Date sqldate = new java.sql.Date(date.getTime()); ...
python日期格式转换_python中有关时间日期格式转换问题
每次遇到pandas的dataframe某列日期格式问题总会哉坑,下面记录一下常用时间日期函数.... 1.字符串转化为日期 str->date import datetime date_str ...
开发中的各种时间格式转换（二）
2.Java 时间日期格式转换 import java.util.*;import java.text.*;import java.util.Calendar;public class VeDate ...
开发中的各种时间格式转换（三）
3.SQLServer数据库中时间日期格式转换 1,sql语句中获取datetime的日期部分 .2,sql语句中经常操作操作datetime类型数据.3.主要方法还是通过日期格式的转换来获取.如 ...
vue 中常见的时间格式转换
项目中后台返回的时间有多种形式,时间戳.ISO标准时间格式等,我们需要转化展示成能看的懂得时间格式: 将2022-05-27T14:20:27.000000Z 时间格式转换成 2022-05-27 1 ...
Latex中图片编辑以及图片格式转换
Latex是使用起来非常清爽的论文格式,但是Latex论文的图片插入总是让刚学的人十分头疼.在此我对图片的插入和图片格式的转换做一个总结. 图片编辑插入图片使用到的插入图片的宏包要在前面添加: \ ...

Excel VBA参考文献中人名与年份格式转换

一、用途

二、使用方法

三、代码

Excel VBA参考文献中人名与年份格式转换相关推荐

最新文章

热门文章