Read & Write UTF-8 Files
This brief guide demonstrates how to read and write UTF-8 encoded text files using VBScript.
If you have a text file saved as UTF-8, sometimes - when you read the file - it reads in weird characters and not the correct characters. This happens often when the files contain Chinese characters. How can you make it read the correct characters?
The File System Object, generally used by VBScript developers to read and write text files, can read only ASCII or Unicode text files. You cannot use it to read or write UTF-8 encoded text files.
But, if you can use Microsoft ActiveX Data Objects (ADO), you can read UTF-8 encoded text files like this:
Dim objStream, strData Set objStream = CreateObject("ADODB.Stream") objStream.CharSet = "utf-8" objStream.Open objStream.LoadFromFile("C:\Users\admin\Desktop\test.txt") strData = objStream.ReadText()
If you want to write a UTF-8 encode text file, you can do so like this:
Dim objStream Set objStream = CreateObject("ADODB.Stream") objStream.CharSet = "utf-8" objStream.Open objStream.WriteText "The data I want in utf-8" objStream.SaveToFile "C:\Users\admin\Desktop\test.txt", 2