从文本导入
Sub Initialize
On Error Goto UnknowError
Msgbox "开始导入"
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim docPerson As NotesDocument
Dim docTemp As NotesDocument
Dim vFile As Variant
Dim strMyname As String
Dim strDeptNO As String
Dim strDeptName As String
Dim strFile As String
Dim V1 As String
Dim NO,myname,sex,deptNo,deptName,duty,office,phone,mobile,fax,mail,IP,postalcode,address,remark As String
Set db=session.CurrentDatabase
Set doc=session.DocumentContext
vFile =Evaluate({@AttachmentNames},doc)
strFile =Cstr(vFile(0))
Msgbox strFile
Dim ebd As NotesEmbeddedObject
Set ebd=doc.GetAttachment(strFile)
Msgbox ebd Is Nothing
Call ebd.extractFile(strFile )
Open strFile For Input As 10
Dim i As Integer
i=1
If Not Eof(10) Then
Input #10,V1
End If
continue: Do While Not Eof(10)
Input #10,V1
If V1="" Then
Goto continue
Else
myname=Strtoken(V1," ",1)
sex=Strtoken(V1," ",2)
deptName=Strtoken(V1," ",3)
duty=Strtoken(V1," ",4)
office=Strtoken(V1," ",5)
phone=Strtoken(V1," ",6)
mobile=Strtoken(V1," ",7)
fax=Strtoken(V1," ",8)
mail=Strtoken(V1," ",9)
IP=Strtoken(V1," ",10)
postalcode=Strtoken(V1," ",11)
address=Strtoken(V1," ",12)
remark=Strtoken(V1," ",13)
End If
If myname="" Then
Print {<script>alert("第} & i & {条记录姓名为空,未导入");history.go(-1);</script>}
Goto continue
End If
If deptName="" Then
Print {<script>alert("第} & i & {条记录部门名称为空,未导入");history.go(-1);</script>}
Goto continue
End If
If phone="" Then
Print {<script>alert("第} & i & {条记录固定电话为空,未导入");history.go(-1);</script>}
Goto continue
End If
If mobile="" Then
Print {<script>alert("第} & i & {条记录手机号码为空,未导入");history.go(-1);</script>}
Goto continue
End If
Set docPerson=db.CreateDocument
docPerson.form="PersonInfo"
docPerson.myName=myname
docPerson.sex=sex
docPerson.dept=deptName
docPerson.duty=duty
docPerson.office=office
docPerson.phone=phone
docPerson.mobile=mobile
docPerson.fax=fax
docPerson.mail=mail
docPerson.IP=IP
docPerson.postalcode=postalcode
docPerson.address=address
Dim ritem As NotesRichTextItem
Set ritem=New NotesRichTextItem(docPerson,"remark")
ritem.text=remark
Call docPerson.Save(True,False)
Loop
Close #10
Kill strFile
Print {<script>alert("导入成功")</script>}
Exit Sub
UnknowError:
Msgbox "错误行:" & Erl & "错误信息:" & Error
Exit Sub
End Sub
分享到:
相关推荐
它支持所有流行数据库引擎之间的非常快速的数据转换(导入和导出)操作,包括:Microsoft Access,Microsoft Excel,dBase,FoxPro,InterBase,Firebird,Lotus 1-2-3,MariaDB,MySQL,NexusDB,Oracle,Paradox,...
包中包含的数据编辑器类似于任何电子表格应用程序,它允许您手动输入数据或从Cognos BI、Lotus、dBase、Excel、文本或以选项卡分隔的文件导入数据库。 这个应用程序配备了先进的统计分析工具和数据管理工具,可以...
包中包含的数据编辑器类似于任何电子表格应用程序,它允许您手动输入数据或从Cognos BI、Lotus、dBase、Excel、文本或以选项卡分隔的文件导入数据库。 这个应用程序配备了先进的统计分析工具和数据管理工具,可以...
包中包含的数据编辑器类似于任何电子表格应用程序,它允许您手动输入数据或从Cognos BI、Lotus、dBase、Excel、文本或以选项卡分隔的文件导入数据库。 这个应用程序配备了先进的统计分析工具和数据管理工具,可以...
PhraseExpress还可以导入片段,从SmileOnMyMac的软件TextExpander™提供一个跨平台的文本扩展器,适用于Windows 和 Mac的。PhraseExpress也可以被认为是Typinator,适用于Windows。 预防RSI综合征的 PhraseExpress...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
导入和导出项目信息。 内容提要 -------------------------------------------------------------------------------- Microsoft Project 2007是流行的基于网络的项目管理软件,在各类项目管理中发挥着巨大的作用...
BOX:Lotus Notes的邮箱文件 BPL:Borlard Delph 4打包库 BSP:Quake图形文件 BUN:CakeWalk 声音捆绑文件(一种MIDI程序) C C0l:台风波形文件 CAB:Microsoft压缩档案文件 CAD:Softdek的Drafix CAD文件 ...
1.1.2 Lotus 1-2-3 1.1.3 Quattro Pro 1.1.4 Microsoft Excel 1.2 Excel 对开发人员的重要性 1.3 Excel在Microsoft 战略中的角色 第2章 Excel概述 2.1 关于对象 2.2 工作簿 2.2.1 工作表 2.2.2 ...