謝建軍

摘要：在教學(xué)工作中，特別是高考報(bào)名、學(xué)籍管理以及我們使用自行設(shè)計(jì)的高中信息技術(shù)學(xué)業(yè)水平考試系統(tǒng)的過程中，經(jīng)常需要對(duì)學(xué)生的照片進(jìn)行重命名，重命名后，批量導(dǎo)入系統(tǒng)中，因此設(shè)計(jì)了本工具。

關(guān)鍵詞：圖片；重命名；VB

在實(shí)際工作中，經(jīng)常遇到要把所拍的照片進(jìn)行重命名，重命名簡(jiǎn)單四步就可以完成，但如果對(duì)大量的照片重命名，就不簡(jiǎn)單。在學(xué)籍管理、高考報(bào)名、我們?cè)O(shè)計(jì)的高中信息技術(shù)學(xué)考模擬系統(tǒng)應(yīng)用中需要對(duì)大量的照片進(jìn)行重命名。數(shù)碼相機(jī)所拍照片的文件名往往是以Img+XXXX的形式自動(dòng)命名，而管理工作中一般是以身份證或證件號(hào)來命名。為提高重命名的效率，需要設(shè)計(jì)一個(gè)圖片重命名工具。如何設(shè)計(jì)圖片重命名工具？具體如下。

一、調(diào)查需求

根據(jù)工作需求，圖片重命名工具的操作順序過程是這樣：定位圖片所在文件夾，顯示圖片文件名，選定文件名后，能預(yù)覽圖片，顯示姓名+身份證號(hào)，比對(duì)相片與姓名并選定，單擊“重命名”按鈕，完成一個(gè)圖片的重命名。

二、建立數(shù)據(jù)庫

數(shù)據(jù)庫采用Access，主要用來存放學(xué)生信息，字段有ID，姓名、性別、證件號(hào)、相片名，ID使用自動(dòng)編號(hào)，其余字段全部使用文本，姓名字段長(zhǎng)寬為10，性別字段長(zhǎng)度為2，證件號(hào)字段考慮到使用身份證作為證件號(hào)，所以長(zhǎng)度為18，當(dāng)然也可以使用1701001這樣的形式作為證件號(hào)，表示17級(jí)01班第一個(gè)同學(xué)。相片名字段是用來顯示姓名+證件號(hào)的內(nèi)容，所以長(zhǎng)度是姓名的長(zhǎng)度+證件號(hào)的長(zhǎng)度，長(zhǎng)度為28。

三、圖片重命名工具的設(shè)計(jì)

軟件采用VB 6.0設(shè)計(jì)，圖片重命名操作需要完成5步工作，分別是：

1.下載模板

首先，根據(jù)數(shù)據(jù)庫的字段設(shè)計(jì)情況，利用Excel建立模板文件，對(duì)應(yīng)的字段是姓名、性別、證件號(hào)、相片名，全部設(shè)置為文本，存放在系統(tǒng)文件夾下的downtemplate 文件夾里。用戶點(diǎn)擊“下載模板”按鈕就可以完成。按鈕的關(guān)鍵代碼如下：

MyFos.CopyFile sourcefile， targetfile， True

Sourcefile為源文件，targetfile為目標(biāo)文件，用戶在使用中下載好模板后，就填寫好模板，可以利用全國(guó)學(xué)籍系統(tǒng)導(dǎo)出的信息完成模板信息的建立。

2.導(dǎo)入考生信息

完成學(xué)生信息模板的建立后，接下來就是導(dǎo)入學(xué)生信息了，一般在導(dǎo)入前，需要把舊的學(xué)生信息先刪除，再導(dǎo)入新的。所以導(dǎo)入考生信息這一步需要兩個(gè)命令按鈕來完成，一個(gè)是刪除舊信息，一個(gè)是導(dǎo)入新的學(xué)生信息。

“刪除舊信息”命令按鈕的關(guān)鍵代碼是：

delsql = "delete from bmb"：cn.Execute delsql

“導(dǎo)入學(xué)生信息”命令按鈕的的關(guān)鍵代碼是：

sql = "insert into bmb（姓名，性別，班級(jí)，證件號(hào)） values （'" & rss.Fields（0） & "'，'" & rss.Fields（1） & "'，'" & rss.Fields（2） & "'，'" & rss.Fields（3） & "'）"

3.選擇要重命名的圖片（相片）

導(dǎo)入好學(xué)生信息后，就可以進(jìn)行重命名的工作了。重命名首先要選擇文件，選擇文件的設(shè)計(jì)需要用到的控件有：Drive、DirListBox、FileListBox三個(gè)控件，利用Drive控件選擇驅(qū)動(dòng)器，再利用DirListBox控件選擇文件夾，最后利用FileListBox控件選擇文件。Drive控件的Change事件代碼為Dir1.Path = Drive1.Drive，DirListBox控件的Change事件代碼為File1.FileName = Dir1.Path & "＼*.jpg"，F(xiàn)ileListBox控件的單擊事件代碼為：

Image1.Stretch = True

Image1.Picture = LoadPicture（Dir1.Path & "＼" & File1.FileName）

從FileListBox控件的單擊事件代碼知道使用image控件來預(yù)覽圖片，image控件的Stretch屬性設(shè)置為 True，讓圖片適應(yīng)image控件的大小來顯示。

4.篩選名單

為了更好地找到對(duì)應(yīng)的證件號(hào)，從而能快速重命名圖片，篩選工作就突顯其重要性。篩選的設(shè)計(jì)使用了一個(gè)文件框和一個(gè)命令按鈕，文件框用來輸入班級(jí)，命令按鈕實(shí)現(xiàn)篩選功能，“篩選”命令按鈕的的關(guān)鍵代碼如下：

rs.open "select * from bmb where 班級(jí) ='" & Trim（Text1.Text） & "'"， cn， adOpenDynamic， adLockOptimistic

rs記錄集對(duì)象，通過SQL 結(jié)構(gòu)化語言實(shí)現(xiàn)篩選，通過List1.AddItem把數(shù)據(jù)表的相片名字段信息添加到list1控件中。

5.重命名

篩選完成后，選擇源文件，預(yù)覽圖片，通過觀覽圖片比對(duì)目標(biāo)文件名，選擇對(duì)應(yīng)的目標(biāo)文件名，單擊“重命名”按鈕，就可以完成一個(gè)圖片的重命名，重復(fù)3和5，完成不同圖片的重命名?！爸孛卑粹o的關(guān)鍵代碼如下：

Name Trim（Text3.Text） As App.Path & "＼process＼" & Trim（Text2.Text） & ".jpg"

每完成一個(gè)圖片的重命名，就在List1控件清除，使用list的removeitem方法即可實(shí)現(xiàn)，使用file控件的Refresh方法刷新File1控件的文件列表。這樣方便選擇源文件和確認(rèn)下一個(gè)圖片的新文件名。通過這5步就完成圖片重命名工具的設(shè)計(jì)。

在使用過程中，第一、二、四步是準(zhǔn)備工作，完成這兩步工作后，只需要重復(fù)執(zhí)行第三、五步就可以快速完成圖片重命名了。通過此工具的使用，可以解放系統(tǒng)管理員的工作，圖片重命名工作可以留給班主任或同班同學(xué)來完成，提高了工作效率，是一個(gè)功能專一效率驚人的好工具。

（作者單位：廣西橫縣橫州中學(xué) 530300）