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


Share the Post: