寫了這么多VBS,從來都沒有使用過SetLocale函數,似乎也沒有見過誰的代碼使用過,這個SetLocale函數到底有什么用呢
VBS文檔中對SetLocale函數的描述:
設置全球區域設置,并返回以前的區域設置。
一個 locale 是用戶參考信息集合,與用戶的語言、國家/地區和文化傳統有關。該 locale 決定鍵盤布局、字母排序順序和日期、時間、數字與貨幣格式。
簡單的說,就是VBS中的一些函數的返回值與當前的locale相關,比如說MonthName函數:
代碼如下:
Dim a(12), b(12)
'By Demon
SetLocale "zh-cn"
For i = 1 To 12
a(i) = MonthName(i)
Next
SetLocale "en-us"
For i = 1 To 12
b(i) = MonthName(i)
Next
For i = 1 To 12
WScript.Echo a(i), b(i)
Next
再比如日期和時間的格式:
代碼如下:
'By Demon
SetLocale "zh-cn"
WScript.Echo CStr(Now)
SetLocale "en-us"
WScript.Echo CStr(Now)
SetLocale "de-de"
WScript.Echo CStr(Now)