希伯来语的 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

我希望它以希伯来语出现

Answer 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

希伯来语的 vbscript 输出

vbscript output in Hebrew

vbscript

hebrew

inputbox