Unicode Text Files with the Scripting.FileSystemObject

Unicode Text Files with the Scripting.FileSystemObject

This tip opens a Unicode-encoded text file, reads the entire file, and then splits it into individual lines for processing.

It loops line by line through a unicode text file using FSO with an ACCII file.

Dim objFso As New FileSystemObjectDim TsStream As TextStreamDim strAlltxt As String, strLine As StringDim varAsplit As Variant, varBsplit As Variant Set TsStream = objFso.OpenTextFile("c:	est.txt", ForReading, , TristateTrue) _'read the file content in memory with the unicode flag "TristateTrue"    strAlltxt = TsStream.ReadAll ' atach the stream to a string var    TsStream.Close ' cleanup and dispose unnecesary objects    Set TsStream = Nothing    Set objFso = Nothing         strAlltxt = StrConv(Trim$(strAlltxt), vbUnicode)        varAsplit = Split(strAlltxt, vbLf)    For Each varBsplit In varAsplit    'now we can parse the files content line by line    strLine = Trim$(CStr(varBsplit))    Debug.Print strLine    Next
See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist