broly

以下是没有粘贴部分的代码。

粘贴是粘贴到批处理窗口吗？如果是这样，直接在窗口显示不是更方便？

Dim objArgs,var,NewDate
Set objArgs=WScript.Arguments
var=objArgs.Item(0)
Select Case LCase(var)
  Case "zt"
    NewDate=DateAdd("d",-1,Date)
  Case "mt"
    NewDate=DateAdd("d",1,Date)
End Select
SetClipboardText(NewDate)
WScript.Quit
Sub SetClipboardText(Text)   '写入信息到剪切板
    Dim wsh
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)& _
             "text"&chr(34)&"," &Chr(34)& Text &Chr(34)& _
             ")(close)",0,True
    Set wsh=Nothing 
End Sub
复制代码

broly

 Dim objArgs,wsh,ary,NewDate
Set objArgs=WScript.Arguments
If objArgs.Count=0 Then WScript.Quit
ary=Split(objArgs.Item(0),"-",-1)
ReDim Preserve ary(1)
Call SetDateAdd(NewDate,ary(0),ary(1))
SetClipboardText(NewDate)
Set wsh=CreateObject("WScript.Shell")
WScript.Sleep 100
wsh.SendKeys "^v"
Set wsh=Nothing 
Sub SetClipboardText(Text)   '写入信息到剪切板
    CreateObject("WScript.Shell").Run _
         "mshta vbscript:ClipboardData.SetData(""text""," & _
         Chr(34)& Text &Chr(34)& ")(close)",0,True
End Sub
Sub SetDateAdd(NewDate,strDay,strNum)
  If IsEmpty(strNum) Then strNum=1
  Select Case LCase(strDay)
  Case "zt"
    NewDate=DateAdd("d",-strNum,Date)
  Case "mt"
    NewDate=DateAdd("d",strNum,Date)
  Case Else 
    WScript.Quit
  End Select
End Sub 
复制代码

[ 本帖最后由 broly 于 2011-1-25 15:52 编辑 ]