Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Как создать файл в кодировке UTF-8 с помощью VBScript?

Ответить
Настройки темы
VBS/WSH/JS - [решено] Как создать файл в кодировке UTF-8 с помощью VBScript?

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Здравствуйте, вот так вот создаётся текстовый файлик на языке VBS:

Код: Выделить весь код
Dim gg, gm
Set gg = CreateObject("Scripting.FileSystemObject")
Set gm = gg.CreateTextFile("text.txt", True)
gm.WriteLine("текст текст текст")
gm.WriteLine("текст текст текст")
gm.WriteLine("текст текст текст")
gm.Close
Подскажите, что нужно сделать чтобы этот файлик создавался в кодировке UTF-8?




Я нашёл скрипт который изменяет кодировку UTF-8 на 1251, но мне то нужно наоборот. А мозгов изменить скрипт не хватает((
Вот и он:
Код: Выделить весь код
FileIn  = "in.txt"
FileOut = "out.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(FileOut, 2, vbTrue)
strText = FileDecode(FileIn, "utf-8")
objFile.WriteLine(strText)

Function FileDecode (strFile, strCP)
   Set Stream = CreateObject("ADODB.Stream")
   With Stream
     .Type = 2
     .Mode = 3
     .CharSet = strCP
     .Open
     .LoadFromFile(strFile)
   End With

   FileDecode = Stream.Readtext()
   Stream.Close
End Function

Прошу помочь мне. Очень нужно.

Отправлено: 20:43, 29-05-2011

 

Новый участник


Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Нашел решение:

Код: Выделить весь код
Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "UTF-8"
st.WriteText("текст")
st.SaveToFile("1234.txt")

Но как оказалось мне нужен файл именно без BOM, а он создаётся с ним.
Помогите решить проблему.

Отправлено: 22:30, 29-05-2011 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Googler


Сообщения: 3665
Благодарности: 1563

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
Set utf = CreateObject("ADODB.Stream")
utf.Type=2
utf.Charset = "UTF-8"
utf.Open
utf.WriteText "Это текст"
utf.Position=3

Set bin = CreateObject("ADODB.Stream")
bin.Type=1
bin.Open

utf.CopyTo bin
bin.SaveToFile("1234.txt")
Это сообщение посчитали полезным следующие участники:

Отправлено: 03:50, 30-05-2011 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Как создать файл в кодировке UTF-8 с помощью VBScript?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Не отображаются нормально в mc-light тексты в utf кодировке Dezz Программное обеспечение Linux и FreeBSD 9 10-05-2020 22:22
Как создать локальную сеть с помощью Dlink dsl-2640u? ViperDark Хочу все знать 1 14-11-2011 19:00
Разное - Как с помощью AutoIt создать подраздел в реестре ShadowMas Программирование и базы данных 2 21-07-2008 18:32
[решено] Как создать учетные записи с помощью скрипта? fm72 Microsoft Windows NT/2000/2003 4 29-09-2005 14:01
Как создать файл с помощью CGI скрипта. lehha Программирование и базы данных 1 20-11-2003 09:48


« Предыдущая тема | Следующая тема »


 
Переход