删除多余文档

删除多余文档

??我们可以需要将数据库中，同一内容的文档保留一个，而删除多余的文档。本程序即提供此功能。

准备：

视图：ViewName,处理在此视图中的文档

表单域：FieldName,判断文档此域是否存在相同内容，如果相同则视为同一文档，视图第一列需要以此域排序。

操作按钮：

SubInitialize???DimssAsNewnotessession???DimdbAsnotesdatabase???Setdb=ss.currentdatabase???DimviAsnotesview???Setvi=db.getview("viewname")??''获得视图???DimdocAsnotesdocument???Setdoc=vi.getfirstdocument????''获得视图中的第一个文档???DimdeldocAsnotesdocument??????''需要删除的文档

???email=""????????''临时过渡变量???count=0?????????''表示在处理的文档序号???del=0???????????''计算删除了的文档

???DoWhileNot(docIsNothing)????????count=count+1???????Ifdoc.fieldname(0)=emailThen???????????del=del+1???????????Setdeldoc=doc???????????Setdoc=vi.getnextdocument(doc)????????????Calldeldoc.remove(True)????????Else???????????email=doc.fieldname(0)????????????Setdoc=vi.getnextdocument(doc)????????EndIf???????Print"正在处理第"+Cstr(count)???Loop???Messagebox"搜索了"+Cstr(count)+"个文档，删除了"+Cstr(del)+"个文档。",64,"检查结束"EndSub