dcsimg
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

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


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

WEBINAR:

On-Demand

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

 

 

 

 

 


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

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date