vbscript - 如何从 Wscript.Echo strLine 创建文件

Question

刚从 VBScript 开始：

此脚本从文本文件中检索文件路径并在屏幕上显示输出：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:\temp\log.txt", ForReading)
Const ForReading = 1
Dim arrFileLines()
i = 0
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For Each strLine in arrFileLines
WScript.Echo strLine
Next

WScript.Echo strLine 在屏幕上显示文件名

有没有办法创建一个与 strLine 中包含的值同名的文件？

我试过运行：

cscript vbscript > strLine

但它只创建一个名为“strLine”的文件，而不是存储在 strLine 中的文件

任何帮助表示赞赏

谢谢

Answer 1

使用- 在文档Set tsX = objFS.CreateTextFile(strLine, True)中阅读此方法后。

更新：

在代码中：

Option Explicit
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim tsNames : Set tsNames = goFS.OpenTextFile("fnames.txt")
Do Until tsNames.AtEndOfStream
   Dim tsX : Set tsX = goFS.CreateTextFile(tsNames.ReadLine())
   tsX.WriteLine "Abracadabra"
   tsX.Close
Loop
tsNames.Close

Answer 2

如果你想使用回显值，你可以这样做cmd：

for /f "tokens=*" %f in ('cscript //NoLogo vbscript') do @(
  if not exist "%~dpf" md "%~dpf"
  if not exist "%~ff" type nul>"%~ff"
)

Answer 3

只需要一行：

Set file = objFSO.CreateTextFile("C:\Temp\" & strLine)    ' & extension - if needed eg .txt

根据需要更改路径

通过以下方式将文本添加到文件中：

file.WriteLine    Line           'line by line

或者，如果您有完整的文本：

file.Write        CompleteText

完成后不要忘记关闭文件

file.close