希伯来语中的vbscript输出

Question

我有这个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

我希望它出现在希伯来语中

<< img src =“ https://image.soinside.com/eyJ1cmwiOiAiaHR0cHM6Ly9pLnN0YWNrLmltZ3VyLmNvbS9qT1Y2ai5wbmcifQ==” alt =“显示垃圾的结果文件screnshot”>

Answer 1

请勿使用外壳重定向来写入输出文件。您可以使其运行，但它取决于程序无法控制以使其可靠运行的太多因素，因此它将引起各种麻烦。

使用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