character-encoding - 为什么使用 ExecuteGlobal 导入 .vbs 函数库文件时，VBScript 会显示 "Invalid Character"？

Question

我在我的 VBscript 中遇到“无效字符”错误!特别是在这段代码中:

'*******************************************************************
'Import Code
'by Cheyne Wallace
'November 2008

'When using only VBscript (not QTP), this code will import any function library passed into it.
'Copy this function into a file, then use it to bring in various other function libraries.
'Usage:
'   Import "Library.vbs"

Sub Import(strFile)
    Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim wss : Set wss = CreateObject("WScript.Shell")
    strFile = wss.ExpandEnvironmentStrings(strFile)
    strFile = objFSO.GetAbsolutePathName(strFile)
    Set objFile = objFSO.OpenTextFile(strFile, 1)
    ExecuteGlobal objFile.ReadAll
    objFile.Close : Set objFSO = nothing
    Set wss = Nothing
End Sub

错误状态为“Microsoft VBScript 编译错误。无效字符。代码:800A0408”在 Char: 2, Line 206 上，这是 ExecuteGlobal objFile.ReadAll 上的第一个字母> (字符 1 是一个制表符)。

我已经键入并重新键入了该行以及周围的换行符。不过，它一直说“无效字符”。怎么回事？？

Answer 1

事实证明，问题不在于 ExecuteGlobal，而在于我尝试导入的 .vbs 文件。我正在导入的文件不是 ANSI 编码。如果 VBScript 对您正在导入的文件有问题，它会在 ExecuteGlobal 开头的字符和行处报告错误(这无疑会导致混淆)。

打开您尝试导入的文件，将其转换为 ANSI，一切正常。