15 февраля 2011 г.

конвертация ANSI в UTF-8 на VBS

option Explicit
Dim fso,files,file
Const adTypeBinary = 1
Const adTypeText = 2
Const bOverwrite = True
Const bAsASCII = False
Dim oFr : Set oFr = CreateObject("ADODB.Stream")
Dim sFr : sFr = "Windows-1251"
Dim oTo : Set oTo = CreateObject("ADODB.Stream")
Dim sTo : sTo = "utf-8"
set fso = CreateObject("Scripting.FileSystemObject")
set files = fso.GetFolder("C:\ConvertFolder\IN").Files


For Each file In files
oFr.Type = adTypeText
oFr.Charset = sFr
oFr.Open
oFr.LoadFromFile file

oTo.Type = adTypeText
oTo.Charset = sTo
oTo.Open
oTo.WriteText oFr.ReadText
oTo.SaveToFile ("C:\ConvertFolder\OUT" & file.Name)
oFr.Close
oTo.Close
Next

Сохраните с раширением .vbs и создайте\переименуйте каталоги.

5 февраля 2011 г.

Пост с телефона

Тестовый пост с телефона через офф.клиент Blogger от Google