在J2EE開發(fā)中，Hibernate生成的的DAO類通常要手動提取接口定義，并寫到新文件中。本文將使用VBS開實現(xiàn)接口自動批量生成。
現(xiàn)實原理：使用VBS中的正則表達(dá)式，對DAO類中的內(nèi)容整理，生成接口、實現(xiàn)接口。
模擬情景：Hibernate生成的的DAO類位于db包。
一、移動DAO類
選中所有DAO類，拖放到新新建的db.dao.impl包中，勾上“Update references to the moved element(s)”。
二、生成接口
打開記事本，新建文本如下，保存為“formInterface.vbs”。將所有DAO類，拖放到這個文件上，得到接口實現(xiàn)文件，放置到db.dao包中。
Set objArgs = WScript.Arguments '獲取打開腳本文件時的參數(shù)
If objArgs.Count>0 Then
dim str
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I) '獲取拖放的文件路徑
str = readfile(FileUrl) '讀取文件內(nèi)容
Set regEx = New RegExp '建立正則表達(dá)式。
regEx.Pattern = "public class " '設(shè)置正則表達(dá)式。
regEx.IgnoreCase = True '設(shè)置是否區(qū)分大小寫。
Str = regEx.Replace(Str, "public interface I") '替換；將類定義改為接口定義
regEx.Pattern = " extends HibernateDaoSupport "
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉繼承
regEx.Pattern = "db\.dao\.impl"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "db.dao") '改變包的位置
regEx.Pattern = "/*[^/]*\*/"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉注釋
regEx.Pattern = "http://[^\n]*\n"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉注釋
regEx.Pattern = "import java\.util\.Set;"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉Set類的引入
regEx.Pattern = "{[^{]*{"
regEx.IgnoreCase = True
res = regEx.test(Str) '檢查是否有兩層花括號
while res
regEx.Pattern = " *{[^{}]*}"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, ";") '去掉最內(nèi)層花括號中，并換為一個“;”
regEx.Pattern = "{[^{]*{"
regEx.IgnoreCase = True
res = regEx.test(Str) '再次檢查是否有兩層花括號
wend
res = true
while res
regEx.Pattern = "(\([^\(\)]*)(\n)([^\(\)]*\))"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "$1$3") '去掉去掉括號中的回車符，防止函數(shù)的參數(shù)列表中的有換行，影響下面的整理
regEx.Pattern = "(\([^\(\)]*)(\n)([^\(\)]*\))"
regEx.IgnoreCase = True
res = regEx.test(Str) '再次檢查
wend
res = true
while res
regEx.Pattern = "p\w* static[^\n]*;\n"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉靜態(tài)的方法或成員
regEx.Pattern = "p\w* static[^\n]*;\n"
regEx.IgnoreCase = True
res = regEx.test(Str) '再次檢查
wend
res = true
while res
regEx.Pattern = "import org[^\n]*;\n"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉org包的引入
regEx.Pattern = "import org[^\n]*;\n"
regEx.IgnoreCase = True
res = regEx.test(Str) '再次檢查
wend
res = true
while res
regEx.Pattern = "\n\s*(\n)"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "$1") '去掉空行
regEx.Pattern = "\n\s*(\n)"
regEx.IgnoreCase = True
res = regEx.test(Str) '再次檢查
wend
regEx.Pattern = "protect[^\n]*\n"
regEx.IgnoreCase = True
Str = regEx.Replace(Str, "") '去掉protect開頭的行
regEx.Pattern = "\\(\w*DAO.java)"
regEx.IgnoreCase = True
FileUrl = regEx.replace(FileUrl, "\I$1") '取出文件名，前加“I”作為新文件名
Call WriteToFile(FileUrl, Str) '寫到新文件
'Str = Str&vbCrLf&FileUrl
Next
'test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
'Call WriteToFile(test+"\filesPath.txt", Str)
Else
MsgBox "drag files", vbInformation, "溫馨提示："
End If
Function ReadFile(FileUrl)
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = "gb2312"
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFile = Str
End Function
Function WriteToFile (FileUrl, Str)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = "gb2312"
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function
三、實現(xiàn)接口
打開記事本，新建文本如下，保存為“implements.vbs”。將所有DAO類，拖放到這個文件上。
Set objArgs = WScript.Arguments
If objArgs.Count>0 Then
dim str
For I = 0 To objArgs.Count - 1
FileUrl = objArgs(I)
str = readfile(FileUrl)
set regex = new regexp
regEx.Pattern = ";\n[^;]*public class (\w*DAO) extends HibernateDaoSupport "
regEx.IgnoreCase = True
Str = regEx.Replace(Str, ";"&vbCrLf&"import db.dao.I$1;"&vbCrLf&"public class $1 extends HibernateDaoSupport implements I$1") '在類定義前加一個接口的引入，后加一個實現(xiàn)接口
Call WriteToFile(FileUrl, Str)
'Str = Str&vbCrLf&FileUrl
Next
'test = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
'Call WriteToFile(test+"\filesPath.txt", Str)
Else
MsgBox "drag files", vbInformation, "溫馨提示："
End If
Function ReadFile(FileUrl)
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = "gb2312"
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
ReadFile = Str
End Function
Function WriteToFile (FileUrl, Str)
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = "gb2312"
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function
最后回到MyEclipse刷新即可。
