当前位置 —论文—大学毕业论文— 范文

关于核心期刊相关论文范文文献,与基于EXCELCNKI题录文件实现对文献主题的计量相关毕业论文网

本论文是一篇关于核心期刊相关毕业论文网,关于基于EXCELCNKI题录文件实现对文献主题的计量相关硕士学位毕业论文范文。免费优秀的关于核心期刊及互联网及文献方面论文范文资料,适合核心期刊论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。

ommandBars.ActiveMenuBar‘恢复原系统默认菜单

mymenubar.Reset

EndSub

２.１将CNKI的RefWork输出文件导入EXCEL

本功能使用“导入题录”子菜单项,在随后出现的标准文件选择窗口中选取先前由CNKI生成的一组RefWork题录文件,即可将多个题录信息文件导入EXCEL之中.此时,每一条题录占10～12行,多条记录依次以行序存放在名为“原数据”的EXCEL工作表中.

由于RefWork格式的题录文件使用UTF-8编码,若直接读入EXCEL表格将显示乱码.故本程序首先使用ADO的Stream数据流读入题录文件,经格式转换后存放至一个临时文件,最后再读入EXCEL数据表.其相应的主要代码如下：

Setobjstream等于CreateObject(″adodb.stream″)‘产生一个ADO的Stream数据流,以打开指定题录文件

filetoopen等于Application.省略),*.″,,″请选择要导入的题录文件″,,True)‘打开标准的文件选择窗口供用户指定需导入的题录文件

IfIsArray(filetoopen)Then

ForEachccInfiletoopen‘逐个打开选择的题录文件

Withobjstream

.Type等于2‘打开文本文件

.Mode等于3‘打开后供“读写”

.Open

.LoadFromFilecc‘指定文件名

.省略文件

.Position等于2‘读取位置

allstring等于.readtext‘读至allstring变量中

.Close

EndWith

cc1等于cc&″.省略.tmp的临时文件

Setfso等于CreateObject(″Scripting.FileSystemObject″)

SetMyFile等于fso.OpenTextFile(cc1,2,True)‘将allstring写入其中

MyFile.Write(allstring)‘并将文件格式由UTF-8转换为标准Unicode

MyFile.Close

j等于ActiveSheet.［a65536］.End(xlUp).Row‘计算当前信息存放位置

WithActiveSheet.QueryTables.Add(Connection：等于″TEXT,″+cc1,Destination：等于Range(Cells(j+1,1),Cells(j+1,1)))‘读取指定文件,并在当前位置转存

.Name等于″data″

.TextFilePlatform等于936‘指定Unicode代码页为简体中文

.TextFileParseType等于xlDelimited‘指定数据分割符

EndWith

fso.省略.tmp的临时文件

Nextcc

EndIf

２.２论文汇总处理

本功能使用“论文汇总”子菜单项,用于从一组指定题录文件中忽略多余信息,仅提取感兴趣的作者姓名、作者单位、论文题名、期刊名称、发表时间（年／卷／期）、关键词、期刊中图分类号、中图分类名及是否核心期刊等信息,此时每条文献题录记录仅占一行,并存放在名为“已处理数据”的EXCEL工作表中.由于论文与其关键词的一对多关系,为方便对关键词的统计处理,另生成一个名为“已处理数据KW”的EXCEL工作表,以存放关键词信息,每一题录将产生与关键词数量对应的信息行.本程序除完成正常的信息提取之外,还对RefWork文件中部分信息缺失的题录作了容错处理,使程序具有相当的鲁棒性.

考虑到核心期刊具有对期刊质量较好的指示作用,而由北京大学出版社编订的“中文核心期刊要目总览”每4年修订1次,每次变化并不大,故将以最新的2008年第五版“中文核心期刊要目总览”作为认定核心期刊的依据,保存在“2008中文核心”工作表中；为进一步了解不同作者的研究领域分布,以刊物的CN刊号中的中图分类号字段作为学科／领域的一个区分指标,分类号与分类码的关系保存在“中图分类码”工作表中,据此可确定论文所属的研究领域.因篇幅所限,此部分代码略去.

２.３论文的计量分析及图示

本功能使用“论文统计”子菜单项,借助VBA编程软件及数据透视表分析工具,用于从“已处理数据”工作表中提取出论文的相关信息,并完成对文献的文献量、文献著者、文献所属学科、主要来源文献的计量统计及其图示.

Sheets(″处理后数据″).Select

Range(″A1″).Select‘计算″处理后数据″工作表中全部数据块大小,并为其定义一个名称“DataArea”

i等于ActiveSheet.［a65536］.End(xlUp).Row

j等于ActiveSheet.［z1］.End(xlToLeft).Column

SetDataArea等于Range(Cells(1,1),Cells(i,j))

ItemNumber等于Application.InputBox(Prompt:等于″请输入前n项：″,Title:等于″请输入一个数值″,Type:等于1,Default:等于20)‘等待用户给定统计结果的最大显示项数

以下按“作者姓名”对文献进行统计,获得按“是否核心”分页；以“作者姓名”为行；以“年”为列,以“作者姓名”的计数项作为数据的数据透视表及其图表显示,其显示结果如后图２～４所示.

ActiveWorkbook.PivotCaches.Add(SourceType:等于xlDatabase,SourceData:等于

DataArea).CreatePivotTableTableDestination:等于″″,TableName

:等于″数据透视表1″,DefaultVersion:等于xlPivotTableVersion10‘新增数据透视表,按“作者姓名”统计