Как читать файл символ за символом в скрипте VB

Question

Как мы можем прочитать символьный текстовый файл, используя скрипт VB

Answer 1

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

Answer 2

Чтобы задать путь к файлу и открыть текстовый файл ..

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