Endnote to Bibtex

2017-01-16 by:CAE仿真在線來源:互聯網

為了方便將Endnote格式轉換為Bibtex格式,特編寫如下程序。

Endnote在轉換為Bibtex格式時,缺少label項,如果文獻較多的情況下,人工添加是非常費時費力的。網上相關的程序又少。

簽于轉出格式為TXT,所以就用MATLAB編寫相關代碼,實現批量添加label項。

label項格式為 author-year-pages

如需其它命名格式可自行在代碼中添加,非常簡單。

注意:本程序運行時,請先在Endnote輸出文件第一行回車,即@從第二行起。第一行留空。

原文件aa.txt

Endnote to Bibtex

回車第一行留空aa.txt

Endnote to Bibtex

處理

endnote2bibtex('aa.txt')

Endnote to Bibtex

===========源代碼================

% label =Author-year-pages
function endnote2bibtex(filename)

% Author: J.H.Zhujhzhu99@gmail.com
fid = fopen(filename);

% create label
k = 0;
while ~feof(fid)
tline = fgetl(fid);
if ~isempty(strfind(tline,'author'))
author{k} = getstring(tline,'author');
elseif ~isempty(strfind(tline,'year'))
year{k} = getstring(tline,'year');
elseif ~isempty(strfind(tline,'pages'))
pages{k} = getstring(tline,'pages');
end

if sum(tline=='@')
k = k+1;
end
end

for i =1:k
label{i}=[author{i},'-',year{i},'-',pages{i}];
end

k =0;frewind(fid)
fid2 = fopen(['New_',filename],'w+');
while ~feof(fid)
tline = fgetl(fid);
if sum(tline=='@')
k = k+1;
tline = updatelabel(tline,label{k});
end
fwrite(fid2,tline);
fprintf(fid2,'\n');

end
fclose all

function s = getstring(tline,flag)

switch flag
case 'author'
idx_start=findstr(tline,'{');
idx_end = findstr(tline,',');
s = tline(idx_start+1:idx_end(1)-1);
idx = findstr(s,' ');
if ~isempty(idx)
s(idx)=[];
end

case 'year'
idx_start=findstr(tline,'{');
idx_end = findstr(tline,'}');
s = tline(idx_start+1:idx_end-1);
case 'pages'
idx_start=findstr(tline,'{');
idx_end = findstr(tline,'}');
s = tline(idx_start+1:idx_end-1);
end