vbscript-read-from-text-file

VBScript - Read From Text File

This script allows you to read the contents of a plain text file.

VBScript

  • 1215
  • 481
  • 0
  • 0
Add to collection
© 2022VBAmacros.net

1 Open your favorite text editor. In our case we are going to use Notepad++

2 Copy the VBScript code from below.

3 Paste the code in the newly created file.


4 Save the file with a ".vbs" extension.


5 Run the script file by double-clicking on it or via the CMD console.


6 That's it!

"Lorem Ipsum" text snippet kindly provided by Lipsum.

Advertisement

Code
' This script reads from a text file.
Sub readFromTextFile()
    ' Set variables
    Dim fso
    Dim reader
    Dim filePath
    Dim currentLine
    Dim lineCount
    ' Set file path
    filePath = "F:\VBAmacros\VBScript\LoremIpsum.txt"
    ' Create a reader
    Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
    ' Open text file 
    Set reader = fso.OpenTextFile(filePath, 1, True, 0)
    ' Set initial line count
    lineCount = 0
    ' Loop over lines
    Do While reader.AtEndOfStream = False
        ' Read a single line 
        currentLine = reader.ReadLine
        ' Increment the line count by one
        lineCount = lineCount + 1
    Loop
    ' Output text line in a message box
    MsgBox lineCount
    ' Release the reader object
    Set fso = Nothing
End Sub
' Run the procedure
Call readFromTextFile()
Advertisement


Comments
Sort by:
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.
VBAmacros.net VBAmacros.net
Code was successfully copied!
VBAmacros.net VBAmacros.net
Please sign in!
VBAmacros.net VBAmacros.net
You've already voted!