• 
    

    
    

      99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

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

      2018-02-27 17:17:00謝建軍
      關(guān)鍵詞:重命名

      謝建軍

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

      關(guān)鍵詞:圖片;重命名;VB

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

      一、調(diào)查需求

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

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

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

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

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

      1.下載模板

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

      MyFos.CopyFile sourcefile, targetfile, True

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

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

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

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

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

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

      sql = "insert into bmb(姓名,性別,班級,證件號) values ('" & rss.Fields(0) & "','" & rss.Fields(1) & "','" & rss.Fields(2) & "','" & rss.Fields(3) & "')"

      3.選擇要重命名的圖片(相片)

      導(dǎo)入好學(xué)生信息后,就可以進(jìn)行重命名的工作了。重命名首先要選擇文件,選擇文件的設(shè)計(jì)需要用到的控件有:Drive、DirListBox、FileListBox三個控件,利用Drive控件選擇驅(qū)動器,再利用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.篩選名單

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

      rs.open "select * from bmb where 班級 ='" & Trim(Text1.Text) & "'", cn, adOpenDynamic, adLockOptimistic

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

      5.重命名

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

      Name Trim(Text3.Text) As App.Path & "\process\" & Trim(Text2.Text) & ".jpg"

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

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

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

      猜你喜歡
      重命名
      用好Excel,文件批量重命名其實(shí)很簡單
      批量更改網(wǎng)頁文件名稱
      Windows 10下快速修改文件名
      電腦愛好者(2020年1期)2020-04-28 12:25:29
      同目錄下多文件的快速重命名法
      玩轉(zhuǎn)批量重命名
      電腦迷(2012年16期)2012-04-29 00:44:03
      刪除無阻礙
      汉源县| 湟中县| 天祝| 平罗县| 定远县| 韶关市| 乾安县| 北辰区| 克东县| 罗江县| 嘉荫县| 建阳市| 石渠县| 望谟县| 财经| 出国| 碌曲县| 澄城县| 南宫市| 伊宁市| 乳山市| 长春市| 宁德市| 奉贤区| 廊坊市| 腾冲县| 黔江区| 仙游县| 高密市| 娄烦县| 福海县| 竹山县| 女性| 彭泽县| 同心县| 泰来县| 上高县| 罗城| 霞浦县| 定陶县| 类乌齐县|