删除多余文档

删除多余文档 我们可以需要将数据库中，同一内容的文档保留一个，而删除多余的文档。本程序即提供此功能。 准备: , 视图:ViewName,处理在此视图中的文档 , 单域:FieldName,判断文档此域是否存在相同内容，如果相同则视为同一文档，视图第一列需 要以此域排序。 操作按钮: Sub Initialize Dim ss As New notessession Dim db As notesdatabase Set db = ss.currentdatabase Dim vi As notesview Set vi = db.getview("viewname") '获得视图 Dim doc As notesdocument Set doc = vi.getfirstdocument '获得视图中的第一个文档 Dim deldoc As notesdocument '需要删除的文档 email = "" '临时过渡变量 count = 0 '表示在处理的文档序号 del = 0 '计算删除了的文档 Do While Not (doc Is Nothing) count = count + 1 If doc.fieldname(0) = email Then del = del +1 Set deldoc = doc Set doc = vi.getnextdocument(doc) Call deldoc.remove(True) Else email = doc.fieldname(0) Set doc = vi.getnextdocument(doc) End If Print "正在处理第"+Cstr(count) Loop Messagebox "搜索了 "+Cstr(count)+" 个文档，删除了 "+Cstr(del)+" 个文档。",64,"检查结束" End Sub