vbscript - 在 vbscript 中获取无效的过程调用或参数

Question

我有下面的代码..我在这个语句 txsOutput.Writeline txsInput1.ReadAll 得到一个无效的调用或过程..组合文件是一个文本文件，其中有一些这种格式的条目

名称 test.css。

有人可以告诉我脚本有什么问题吗？

Dim strInputPath1
Dim txsInput1,txsOutput
Dim FSO

Dim Filename


Set FSO = CreateObject("Scripting.FileSystemObject")
strOutputPath = "C:\txt3.txt"
Set txsOutput = FSO.CreateTextFile(strOutputPath)

Set re = New RegExp
re.Pattern = "\s+"
re.Global  = True

Set f = FSO.OpenTextFile("C:\combination.txt")
Do Until f.AtEndOfStream
  tokens = Split(Trim(re.Replace(f.ReadLine, " ")))
  extension = Split(tokens(0),".")
  strInputPath1 =  "C:\inetpub\wwwroot\data\p\" & tokens(1) & "\" & extension(1) & "\" & tokens(0) 

Loop
f.Close

WScript.Echo strInputPath1

Set txsInput1 = FSO.OpenTextFile(strInputPath1, 1)
txsOutput.Writeline txsInput1.ReadAll

txsInput1.Close
txsOutput.Close

Answer 1

调用 TextStream.WriteLine 时的错误 5 通常是由于尝试写入 TextStream 无法编码的数据引起的:

尝试将“U+1F00 ἀ e1 bc 80 GREEK SMALL LETTER ALPHA WITH PSILI”写入使用/用于“ASCII”编码的流:

>> Set f = goFS.CreateTextFile(".\tmp.txt")
>> f.WriteLine "AÄ"
>>  --- no news here means: written ---
>> f.WriteLine ChrW(&H1F00)
>>
Error Number:       5
Error Description:  Invalid procedure call or argument

为了证明这一点:

>> f.close
>> Set f = goFS.CreateTextFile(".\tmp.txt", True, True) ' overwrite, unicode
>> f.WriteLine ChrW(&H1F00)
>>
>> --- no news are good news --

由于数据源 (.ReadAll()) 似乎来自 WWW，因此它可能包含非 ASCII/ANSI 文本。但是请注意，如果输入是 UTF-8，则仅打开 Unicode (=UTF-16) 的输出文件将无济于事。