vbscript - 希伯来语的 vbscript 输出
问题描述
我有这个 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
我希望它以希伯来语出现
解决方案
不要使用 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
推荐阅读
- swift3 - 如何在 iOS 应用中播放 Vimeo 私人和公共视频(swift 3)
- c# - 如何在程序集中找到接口?对于插件系统
- vue.js - 导入和使用 Echarts 导致 Internet Explorer 出现【对象错误】
- sql - SQL 仅选择与另一个表列的行匹配的列
- javascript - 如何使用反应和节点将字符串作为文件上传到谷歌驱动器
- api - 使用带有查询参数的 Trello Batch API 调用
- amazon-web-services - 已删除 AWS Secret Manager 密钥,但没有强制保留期
- java - 如何使用 Autocomplete Textview 修复 Google Places 建议
- javascript - 刷新或关闭电子表格时,菜单项消失
- javascript - 如何在不执行的情况下测试 jsPerf 上的函数?