VBScript Scripting Techniques > Files > Encode / Decode > ASCII to UTF-8
Convert plain text files to UTF-8 with ADODB.Stream | |
---|---|
VBScript Code: | |
Option Explicit Dim objFSO, strFileIn, strFileOut strFileIn = WScript.ScriptName Set objFSO = CreateObject( "Scripting.FileSystemObject" ) strFileOut = objFSO.GetBaseName( strFileIn ) & "_utf8.txt" Set objFSO = Nothing UTF8 strFileIn, strFileOut Function UTF8( myFileIn, myFileOut ) ' UTF8() Version 1.00 ' Open a "plain" text file and save it again in UTF-8 encoding ' (overwriting an existing file without asking for confirmation). ' ' Based on a sample script from JTMar: ' http://bytes.com/groups/asp/52959-save-file-utf-8-format-asp-vbscript ' ' Written by Rob van der Woude ' http://www.robvanderwoude.com Dim objStream ' Valid Charset values for ADODB.Stream Const CdoBIG5 = "big5" Const CdoEUC_JP = "euc-jp" Const CdoEUC_KR = "euc-kr" Const CdoGB2312 = "gb2312" Const CdoISO_2022_JP = "iso-2022-jp" Const CdoISO_2022_KR = "iso-2022-kr" Const CdoISO_8859_1 = "iso-8859-1" Const CdoISO_8859_2 = "iso-8859-2" Const CdoISO_8859_3 = "iso-8859-3" Const CdoISO_8859_4 = "iso-8859-4" Const CdoISO_8859_5 = "iso-8859-5" Const CdoISO_8859_6 = "iso-8859-6" Const CdoISO_8859_7 = "iso-8859-7" Const CdoISO_8859_8 = "iso-8859-8" Const CdoISO_8859_9 = "iso-8859-9" Const cdoKOI8_R = "koi8-r" Const cdoShift_JIS = "shift-jis" Const CdoUS_ASCII = "us-ascii" Const CdoUTF_7 = "utf-7" Const CdoUTF_8 = "utf-8" ' ADODB.Stream file I/O constants Const adTypeBinary = 1 Const adTypeText = 2 Const adSaveCreateNotExist = 1 Const adSaveCreateOverWrite = 2 On Error Resume Next Set objStream = CreateObject( "ADODB.Stream" ) objStream.Open objStream.Type = adTypeText objStream.Position = 0 objStream.Charset = CdoUTF_8 objStream.LoadFromFile myFileIn objStream.SaveToFile myFileOut, adSaveCreateOverWrite objStream.Close Set objStream = Nothing If Err Then UTF8 = False Else UTF8 = True End If On Error Goto 0 End Function |
|
Requirements: | |
Windows version: | Windows XP SP2 and later, or Windows 2000 with MDAC 2.8 SP1 installed |
Network: | any |
Client software: | MDAC 2.8 component |
Script Engine: | any |
Summarized: | Works in any Windows 2000 with MDAC 2.8 SP1 installed, or Windows XP SP2 and later. |
[Back to the top of this page] |
page last modified: 2016-09-19; loaded in 0.0016 seconds