||
1:
|
For i = 1 To iRowCount
|
2:
|
sTemp = Trim(Worksheets(sSrce).Cells(i, 1))
|
|
'如果整除就换行,不整除就放在当前行相应的列里
|
3:
|
If i Mod iFieldCount = 0 Then
|
4:
|
Worksheets(sDest).Cells(k, iFieldCount) = sTemp
|
5:
|
k = k + 1
|
6:
|
Else
|
7:
|
Worksheets(sDest).Cells(k, i Mod iFieldCount) = sTemp
|
8:
|
End If
|
9:
|
Next
|
1:
|
For i = 1 To iRowCount step iFieldCount
|
2:
|
k = k + 1
|
3:
|
For j=1 to iFieldCount
|
4:
|
sTemp = Trim(Worksheets(sSrce).Cells(i-j, 1))
|
5:
|
Worksheets(sDest).Cells(k, j) = sTemp
|
6:
|
Next
|
7:
|
Next
|
1:
|
For i = 1 To iRecCount
|
2:
|
sTemp = Trim(Worksheets(sSrce).Cells(i, 1))
|
3:
|
Worksheets(sDest).Cells(i / iFieldCount + 1, (i - 1) Mod iFieldCount + 1) = sTemp
|
4:
|
Next
|
1:
|
For i = 1 To iRecCount
|
2:
|
sTemp = Worksheets(sSrce).Cells(i, iCol)
|
3:
|
For j = 1 To 20
|
4:
|
iFind= InStr(1, sTemp, sFlag)
|
5:
|
‘如果含标记符就析取
|
6:
|
If iFind> 0 Then
|
7:
|
Worksheets(sDest).Cells(i, j) = Mid(sTemp, 1, iFind - 1)
|
8:
|
sTemp = Mid(sTemp, iFind+ iFlagLen)
|
9:
|
Else
|
10:
|
Worksheets(sDest).Cells(i, j) = sTemp
|
11:
|
Exit For
|
12:
|
End If
|
13:
|
Next
|
14:
|
Next
|
1:
|
For i = 1 To iRecCount
|
2:
|
sTemp = Worksheets(sSrce).Cells(i, iCol)
|
3:
|
For j = 1 To len(sTemp)
|
4:
|
If mid(sTemp, j, 1) =sFlag Then
|
5:
|
Worksheets(sDest).Cells(i, j) =sSplit
|
6:
|
sSplit=””
|
7:
|
Else
|
8:
|
sSplit=sSplit & mid(sTemp, j, 1)
|
9:
|
End If
|
10:
|
Next
|
11:
|
Next
|
类别
|
特征描述
|
举例
|
问题责任者
|
项目齐全、内容完整、格式规范
|
单位与城市名间加逗号,城市与邮编中间加空格的形式
|
武汉大学信息资源研究中心,武汉430072
|
正常
|
项目齐全、内容完整、格式不规范
|
单位与城市名中间缺少逗号,或者地名与邮编中间缺少空格
|
南京理工大学经济管理学院南京210094
|
编辑部或数据加工商
|
项目齐全、内容完整、格式规范、地名表述不规范
|
城市名后带有“市”标记城市名前加省名,直接用省名代替城市名
|
河北工业大学图书馆,天津市300130
江汉石油学院,湖北荆州434102
聊城大学图书馆,山东252059
|
编辑部或数据加工商
|
一人多单位情况
|
单位之间用双斜杠加以区分
|
河北大学管理学院,保定071002//中科院研究生院,北京100039,
|
正常
|
项目不齐全、内容完整
|
缺少邮编
缺少城市和邮编
|
美国密苏里大学,美国
江苏理工大学图书馆
|
编辑部
|
项目不齐全、内容不完整
|
单位名称不完整,或城市名不完整,或邮编不是6位
|
数据加工商
|
|
‘邮编处理
|
1:
|
If Asc(Right(sTemp, 1)) > 47 And Asc(Right(sTemp, 1)) < 58 Then
|
2:
|
sPostcode = Right(sTemp, 6)
|
3:
|
sTemp = Mid(sTemp, 1, Len(sTemp) - 6)
|
4:
|
End If
|
|
‘串中含标记符,如分号、逗号等
|
5:
|
If InStr(1, sTemp, sFlag) > 1 Then
|
6:
|
sAffiliation = Left(sTemp, InStr(1, sTemp, sFlag) - 1)
|
7:
|
sCity = Mid(sTemp, Len(sAffiliation) + 2)
|
8:
|
Else
|
|
‘单位与地名之间无标记符,可以利用定义好的数组进行处理,如系、学院、所等
|
9:
|
For m = 1 To Ubound(sIdentify)
|
10:
|
If InStr(1, sTemp, sIdentify(m)) > 0 Then
|
11:
|
sAffiliation = Left(sTemp, InStr(1, sTemp, sIdentify(m)) + Len(sIdentify(m)) - 1)
|
12:
|
sCity = Mid(sTemp, Len(sAffiliation) + 1)
|
13:
|
Exit For
|
14:
|
End If
|
15:
|
Next
|
16:
|
End If
|
1:
|
For i = 1 To iRecCount
|
2:
|
sTemp = Worksheets(sSrce).Cells(i, iCol)
|
3:
|
Worksheets(sDest).Cells(i, 1) = Mid(sTemp, 1, InStr(1, sTemp, "-") - 1)
|
4:
|
Worksheets(sDest).Cells(i, 2) = Mid(sTemp, InStr(1, sTemp, "-") + 1, 4)
|
5:
|
Next
|
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-26 09:22
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社