程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> JAVA編程 >> 關於JAVA >> java獲得日期的辦法

java獲得日期的辦法

編輯:關於JAVA

java獲得日期的辦法。本站提示廣大學習愛好者:(java獲得日期的辦法)文章只能為提供參考,不一定能成為您想要的結果。以下是java獲得日期的辦法正文


On Error Resume Next '疏忽一切毛病
Dim filename '聲明變量
Dim re
Set re=New RegExp '樹立正則表達式對象實例
re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$"
If re.Test(WScript.ScriptFullName)=False Then
 MsgBox "請在磁盤根目次下運轉本法式,不然搜刮成果能夠會不准確!",,"MessageBox"
 WScript.Quit
End If
re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{1,4}$"  '聲明正則表達式的婚配形式,重要用來磨練用戶輸出的文件名能否准確
Do 
 filename=InputBox("請輸出你要搜刮的文件名:","MessageBox")
 If filename="" Then WScript.Quit  '假如輸出為空則加入劇本
 If re.Test(filename)=False Then
  MsgBox "請輸出正當的文件名!",,"MessageBox"
 End If
Loop While re.Test(filename)=False   '直到用戶輸出准確的文件名時才跳出輪回。
Set re=Nothing
Dim ie
Set ie=WScript.CreateObject("internetexplorer.application")   '樹立IE對象,用來顯示搜刮狀況
ie.menubar=0   '不顯示IE對象菜單欄
ie.AddressBar=0   '不顯示IE對象地址欄
ie.ToolBar=0   '不顯示IE對象對象欄
ie.StatusBar=0   '不顯示IE對象狀況欄
ie.FullScreen=1   '全屏化IE對象
ie.Width=640   '設置IE對象寬度
ie.Height=120   '設置IE對象高度
ie.Resizable=0   '設置IE對象年夜小能否可以被修改
ie.Navigate "about:blank" '設置IE對象默許指向的頁面
ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2)  '設置IE對象右邊距
ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2)  '設置IE對象左邊距
ie.visible=1  '設置IE對象能否可視
With ie.Document '以下為在IE對象中寫入頁面,跟普通的HTML沒有差別
 .write "<html>"
 .write "<head>"
 .write "<title>文件掃描狀況</title>"
 .write "<meta http-equiv=""content-type"" content=""text/html;charset=gb2312"">"
 .write "<style><!--"
 .write "body { background:#000000;text-align:center;margin:0px auto; }"
 .write "* { font-family:Arial;font-size:9pt;color:#00cc00;line-height:140%; }"
 .write "a:link,ahover,a:visited { text-decoration:none; }"
 .write "#scanstatus { text-align:left;margin:15px; }"
 .write "#header { width:100%;height:20px; }"
 .write "#middle { width:100%;height:50px; }"
 .write "#footer { width:100%;height:20px;text-align:right; }"
 .write "--></style>"
 .write "</head>"
 .write "<body scroll=no>"
 .write "<div id=""scanstatus"">"
 .write "<div id=""header"">正在啟動搜刮法式。。。</div>"
 .write "<div id=""middle""></div>"
 .write "<div id=""footer""><a href=""#"" onclick=""window.close()"">加入法式</a></div>"
 .write "</div>"
 .write "</body>"
 .write "</html>"
End With
'界說文件體系對象變量
Dim fso 
Dim objfolder
Dim objsubfolders
Dim objsubfolder
Dim objfiles
Dim objfile
Dim objdrives
Dim objdrive
Dim objtextfile
Dim str:str=""
Dim i:i=0 '計數器變量
Dim result
result="C:\搜刮成果.html" '搜刮成果保留文件變量
'一個進程,用來遍歷硬盤文件
Function search(path)
 Set objfolder=fso.getfolder(path) '取得以後途徑
 Set objfiles=objfolder.Files  '取得以後途徑下的一切文件聚集
 For Each objfile In objfiles  '開端遍歷文件聚集
  ie.Document.getElementById("middle").innerHTML=objfile.Path  '用到IE對象的文檔對象模子,將以後搜刮的文件途徑寫入ID為middle的DIV中
  If objfile.Name=filename Then '假如以後文件名與用戶輸出的文件名分歧
   i=i+1      '計數器加一
   str=str & objfile.Path & "<br>"
   Set objtextfile=fso.OpenTextFile(result,2,True)  '創立文本流對象,文件名為變量result所存儲的字符串
   objtextfile.Write(str)  '將變量str中的文件途徑寫入html文件中
   objtextfile.Close   '封閉文本流對象
   Set objtextfile=Nothing  '燒毀對象
  End If
  If i>0 Then
   ie.Document.getElementById("header").innerHTML="找到 " & i & " 個婚配,具體信息已保留在 """ & result & """ 文件中。。。"
  Else
   ie.Document.getElementById("header").innerHTML="正在履行文件搜刮。。。"
  End If
  WScript.Sleep(20)
 Next
 Set objsubfolders=objfolder.SubFolders  '獲得以後途徑下的一切文件夾的聚集
 For Each objsubfolder In objsubfolders  '遍歷文件夾
  nowpath=path & "\" & objsubfolder.Name '獲得新的文件途徑
  search nowpath  '挪用函數本身,重新的途徑開端搜刮
 Next
End Function 
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives '獲得以後盤算機的一切磁盤驅動器
For Each objdrive In objdrives  '遍歷磁盤
 search objdrive  '挪用函數
Next
'停止時顯示的信息
ie.Document.getElementById("header").innerHTML="掃描已停止。。。"
If i>0 Then
 ie.Document.getElementById("middle").innerHTML="請翻開 """ & result & """ 檢查具體搜刮成果!"
Else
 ie.Document.getElementById("middle").innerHTML="沒有找到要搜刮的文件!"
End If
'燒毀對象變量,釋放內存空間
Set objdrives=Nothing
Set objfiles=Nothing
Set objfile=Nothing
Set objdrive=Nothing
Set objfolders=Nothing
Set objfolder=Nothing
Set objsubfolders=Nothing
Set objsubfolder=Nothing
Set fso=Nothing
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved