Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB6
Expertise: Intermediate
Oct 27, 2004



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 FileSystemObject
Dim TsStream As TextStream

Dim strAlltxt As String, strLine As String
Dim varAsplit As Variant, varBsplit As Variant

 Set TsStream = objFso.OpenTextFile("c:\test.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
Michel Posseth
Thanks for your registration, follow us on our social networks to keep up-to-date