Vbscript 如何在VB脚本中逐字读取文件

如何使用VB脚本逐个字符读取文本文件设置文件路径并打开文本文件

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\File.txt", 1)
Do Until objFile.AtEndOfStream
    strCharacters = objFile.Read(1)
    Wscript.Echo strCharacters
Loop

fileName = "D:\Project\ABC\vbfile.txt"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(fileName)

现在要逐行阅读，请使用下面的代码

Do Until f.AtEndOfStream
  WScript.Echo f.ReadLine
Loop

要逐字读取，请使用此代码

Do Until objFile.AtEndOfStream
    strCharacters = f.Read(1)
    Wscript.Echo strCharacters
Loop

---

被否决；请努力使问题标题反映问题内容。