刪除E X C E L重復(fù)內(nèi)容系統(tǒng)研究

郭紹永 徐慧玲

（1.新鄉(xiāng)醫(yī)學(xué)院，河南 新鄉(xiāng) 453003；2.開封大學(xué)，河南 開封 475004）

由于我校郵件系統(tǒng)經(jīng)常出現(xiàn)問題，而且無法升級，所以學(xué)校決定更換郵件系統(tǒng)，使用新的更先進的郵件系統(tǒng)，在前期的數(shù)據(jù)集成作完以后，目前需要進行老郵箱郵件向新郵箱中遷移，老郵箱的用戶名是自己申請時隨意申請的，只要不重復(fù)[1]即可，新的郵件系統(tǒng)使用的是以工號作為郵件名，這樣郵件遷移就存在很大的問題，需要把老用戶的用戶名跟現(xiàn)在的工號進行對應(yīng)，但是當(dāng)時郵件中并沒有工號記錄，所以就很難進行對應(yīng)，只能讓各部門上報老郵件名和自己的工號對應(yīng)關(guān)系。

1 系統(tǒng)需求分析

所有部門報上來統(tǒng)計后發(fā)現(xiàn)統(tǒng)計的數(shù)據(jù)跟原有郵箱數(shù)相差很遠，統(tǒng)計了620個郵箱對應(yīng)關(guān)系，但是總郵箱是1400個。然后就從老郵件中導(dǎo)出郵箱列表，從中去除已經(jīng)統(tǒng)計的用戶郵箱，剩下沒有統(tǒng)計的，以便后期進行有針對性的查找,Excel有一個小小的缺陷.就是無法自動識別重復(fù)的記錄[2]。找了很多軟件都無法實現(xiàn)該功能，所以決定自己開發(fā)一個程序來解決這個問題，需要達到的目標是：

1）首先可以將兩個Excel表轉(zhuǎn)化為兩個數(shù)據(jù)庫表。

2）能夠比較兩個表的共同項，將相同的刪除，剩下不同的保留。

3）顯示已經(jīng)刪除的記錄。

4）顯示未刪除的記錄。

2 功能設(shè)計

系統(tǒng)功能主要包含以下幾個模塊，如圖1所示。

圖1 系統(tǒng)功能圖

3 系統(tǒng)實現(xiàn)

首先，將老郵箱所有郵件用戶從郵件中導(dǎo)出成EXCEL，字段有用戶姓名、郵箱名稱、工作部門、聯(lián)系電話，把這個EXCEL文件轉(zhuǎn)化為Access數(shù)據(jù)庫表，有兩種方法：

方法一：打開Access數(shù)據(jù)庫，點導(dǎo)入Excel，選中要導(dǎo)入的Excel表導(dǎo)入即可自動生動Access數(shù)據(jù)表，起名為Email1。把已經(jīng)統(tǒng)計過的郵件用同樣的方式導(dǎo)入數(shù)據(jù)表eamil2，這樣完成基本操作，接下用程序來實現(xiàn)從Email1表中刪除Email2表中存在的郵件名相同的記錄。

方法二：直接在系統(tǒng)界面上顯示兩個導(dǎo)入框，選中兩個EXCEL表，點擊導(dǎo)入即把數(shù)據(jù)從EXCEL中讀入數(shù)據(jù)表Email1和Email2中。此方法更便捷，所以系統(tǒng)采用方法二轉(zhuǎn)換數(shù)據(jù)。

程序使用ASP實現(xiàn)，下面是主要代碼：

連接數(shù)據(jù)庫yjdb，并從數(shù)據(jù)表Email1中刪除在數(shù)據(jù)表Email2中存在的郵件，剩下的即為需要的內(nèi)容。

＜%set conn=server.CreateObject("adodb.connection")

dbpath=server.MapPath("database/yjdb.mdb")

conn.open"Driver={Microsoft Access Driver(*.mdb)};dbq="&dbpath

sql="delete from Email1 where yxmc in (select yxmc from Email2)"

Set rs=Server.CreateObject("ADODB.Recordset")

conn.execute sql

sql="select*from Email1"

rs.open sql,conn,1,1

%＞

刪除重復(fù)記錄后,下面是顯示剩余記錄的結(jié)果。

＜tr bord=1 align=’center’＞＜td width=’20%’＞郵箱名稱＜/td＞＜td width=’20%’＞用戶姓名 ＜/td＞＜td width=’20%’＞工作部門＜/td＞＜td width=’20%’＞聯(lián)系電話＜/td＞＜/tr＞

＜%do while Not rs.eof%＞

＜tr align=’center’＞＜td＞＜%=rs("yxmc")%＞ ＜/td＞＜td＞＜%=rs("yhxm")%＞ ＜/td＞＜td＞＜%=rs("gzbm")%＞ ＜/td＞＜td＞＜%=rs("lxdh")%＞ ＜/td＞＜/tr＞

＜%rs.movenext loop%＞

在所有操作時，數(shù)據(jù)庫的權(quán)限一定記得把Eeveyone的權(quán)限設(shè)為可修改權(quán)限，不然對數(shù)據(jù)庫的操作會出現(xiàn)錯誤。

4 結(jié)束語

對重復(fù)記錄刪除[3]的研究看似比較容易，但是真正實現(xiàn)起來也并不那么簡單，能夠把系統(tǒng)作的更人性化，更易推廣性是較難的一個課題，后期還需要長期研究，不斷探索尋求更優(yōu)方案。

［1］鄧亮,胡曉勤,梁剛.基于重復(fù)數(shù)據(jù)刪除技術(shù)的SQL Server數(shù)據(jù)庫備份系統(tǒng)[J].計算機安全,2011(7)：9-12.

［2］劉燕玲.利用高級篩選功能巧妙刪除Excel的重復(fù)記錄[J].農(nóng)村電工,2012,20(9)：38.

［3］王志軍.解決工作表數(shù)據(jù)的重復(fù)問題[J].電腦知識與技術(shù)：經(jīng)驗技巧,2013(7)：39.