创建行并将其写入文件答案

【问题标题】：Creating and writing lines to a file创建行并将其写入文件
【发布时间】：2010-02-04 10:13:19
【问题描述】：

是否可以在 vbscript 中创建文件并写入行？

类似于 echo in bat 文件 (echo something something >>sometextfile.txt)。

根据脚本路径执行 vbscript 时会创建一个 autorun.inf 文件来执行特定程序 (\smartdriverbackup\sdb.exe)。

另外，我怎样才能从完整的文件路径中剥离/删除驱动器号？

【问题讨论】：

这能回答你的问题吗？ Read and write into a file using VBScript

标签： vbscript

【解决方案1】：

Set objFSO=CreateObject("Scripting.FileSystemObject")

' How to write file
outFile="c:\test\autorun.inf"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test string" & vbCrLf
objFile.Close

'How to read a file
strFile = "c:\test\file"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine= objFile.ReadLine
    Wscript.Echo strLine
Loop
objFile.Close

'to get file path without drive letter, assuming drive letters are c:, d:, etc
strFile="c:\test\file"
s = Split(strFile,":")
WScript.Echo s(1)

【讨论】：

感谢ghostdog74的回答我已经试过这个脚本了。它有效。我需要把它放到实际应用中。
我在用反引号写一个文本行时遇到问题，例如：这是一个“测试”“字符串”。除了我想用反逗号写一个变量值之外，我不能。跨度>
你必须转义引号。试试""""
究竟如何转义引号？
做一个Wscript.Echo """"Test"""" 看看。

【解决方案2】：

您需要处理File System Object。请参阅此OpenTextFile 方法示例。

【讨论】：

@hdgarrood，如果你上车后发现方向盘不见了或看不见，如果你寻求帮助，你会成为“帮助吸血鬼”吗？每个人都必须重新发明轮子，因为以前的人懒得正确实施 F1（或者他们这样做是为了创造对“咨询”的需求——你知道它是如何工作的）
我赞成这个答案，因为它为提问者指明了正确的方向，同时仍然要求他/她做一些研究和思考，而不是为他/她做所有的工作。（虽然我很后悔使用“帮助吸血鬼”这个词）
我不是来学习 VBScript 的。我来这里是为了编写一个脚本，它只是将一个字符串写入文件，并且（如果一切按计划进行）我将永远不会再接触该语言。如果这使我成为“帮助吸血鬼”，那就这样吧。

【解决方案3】：

' Create The Object
Set FSO = CreateObject("Scripting.FileSystemObject")

' How To Write To A File
Set File = FSO.CreateTextFile("C:\foo\bar.txt",True)
File.Write "Example String"
File.Close

' How To Read From A File
Set File = FSO.OpenTextFile("C:\foo\bar.txt")
Do Until File.AtEndOfStream
    Line = File.ReadLine
    WScript.Echo(Line)
Loop
File.Close

' Another Method For Reading From A File
Set File = FSO.OpenTextFile("C:\foo\bar.txt")
Set Text = File.ReadAll
WScript.Echo(Text)
File.Close

【讨论】：

它在 Excel for Mac 中不起作用。我收到“activex 组件无法创建对象”错误。 Mac 上也有类似的东西吗？