IBM Personal Communications中的VBScript，註冊當前日期和時間

這有點複雜，但我肯定會盡我所能！IBM Personal Communications中的VBScript，註冊當前日期和時間

我想在我的程序IBM個人通信（會話A）中註冊當前時間和日期「年，周，日+時間」。我必須使用.MAC擴展名才能使程序讀取最終文件。

這是我此刻的代碼：

[PCOMM SCRIPT HEADER] 
LANGUAGE=VBSCRIPT 
DESCRIPTION= 
[PCOMM SCRIPT SOURCE] 
OPTION EXPLICIT 
autECLSession.SetConnectionByName(ThisSessionName) 

REM This line calls the macro subroutine 
subSub1_ 

sub subSub1_() 
    autECLSession.autECLOIA.WaitForAppAvailable 
    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "151441652 " **<--This is where the date has to appear** 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[enter]" 

    autECLSession.autECLPS.WaitForAttrib 12,1,"00","3c",3,10000 

    autECLSession.autECLPS.Wait 3401 

    autECLSession.autECLOIA.WaitForAppAvailable 

    autECLSession.autECLOIA.WaitForInputReady 
    autECLSession.autECLPS.SendKeys "[pf12]" 
end sub

autECLSession.autECLPS.SendKeys「151441652」 < ---最後的值必須出現在這裏以相同的順序。這些數字是由我手動輸入的。所以我最終需要做的是識別日期並手動輸入。

這是數字代表什麼：

15 = 2015年

14 =當前星期，日期，現在是2015年2月4日是第14周

4 =一週中的第4天。星期四

1652 =當前時間，我需要時間成爲一個24小時的時鐘。

來源

2015-04-02 EliasWick

查看文檔：[DatePart Function]（https://msdn.microsoft.com/en-us/library/4kt42529（v = vs.84）.aspx）確實*所有內容* 。 – Tomalak 2015-04-02 15:52:23

非常感謝你！ – EliasWick 2015-04-02 16:39:35

DatePart()可以做到這一切。

autECLSession.autECLPS.SendKeys _ 
    Right(DatePart("yyyy", Now()), 2) & _ 
    Right("0" & DatePart("ww", Now()), 2) & _ 
    DatePart("w", Now()) & _ 
    Right("0" & DatePart("h", Now()), 2) & _ 
    Right("0" & DatePart("n", Now()), 2)

拿筆記可選FirstDayOfWeek和FirstWeekOfYear參數，測試你的邊緣情況，並相應地設置這些參數的相關電話。

來源

2015-04-02 16:07:05 Tomalak

非常感謝！我愛你！ – EliasWick 2015-04-02 16:39:46

哦，是的，順便說一下，它沒有奏效......但它仍然有效。現在的問題是，我收到了以下錯誤消息：PCSW041 - 系統資源不足，或腳本引擎安裝不正確。 – EliasWick 2015-04-02 16:44:29

我對IBM個人通信的知識絕對爲零，因此恐怕我無法幫助您解決這個錯誤。 – Tomalak 2015-04-02 16:50:07

IBM Personal Communications中的VBScript，註冊當前日期和時間

回答

相關問題