Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    Next
Michel Posseth
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap