希伯来语的 vbscript 输出

【问题标题】：vbscript output in Hebrew希伯来语的 vbscript 输出
【发布时间】：2020-05-04 21:25:46
【问题描述】：

我有这个 VBS 文件：

Dim retval 
retval = InputBox("חיפוש - הכנס את מילת החיפוש","Setting Membership Club") 

If IsEmpty(retval) Then 
    'cancelled 
    WScript.Echo ("EXITSP1") 
Else 
    'something has entered even zero-length 
    WScript.Echo retVal 
End If

我是这样称呼它的：

cscript //nologo D:\inputbox.vbs > D:\outputbox.txt

但 outputbox.txt 文件会将我带到 Gibrish

我希望它以希伯来语出现

【问题讨论】：

标签： vbscript hebrew inputbox

【解决方案1】：

不要使用 shell 重定向来写入输出文件。你可以让它工作，但它取决于太多你的程序无法控制的因素才能可靠地工作，因此会引起各种令人头疼的问题。

使用 FileSystemObject 并告诉它编写一个 Unicode 文件。

Dim FSO, retval, outFile
Set FSO = CreateObject("Scripting.FileSystemObject")

'                 CreateTextFile(filename, [overwrite, [unicode]])
Set outFile = FSO.CreateTextFile("outputbox.txt", True, True)

retval = InputBox("חיפוש - הכנס את מילת החיפוש", "Setting Membership Club") 
If IsEmpty(retval) Then
    outFile.Write "EXITSP1"
Else
    outFile.Write retval
End If

outfile.Close

FileSystemObject（和 CreateFile 方法）的文档：https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/createtextfile-method

【讨论】：