Серый форум — VBS: Как отключить BOM в UTF-8?

Re: VBS: Как отключить BOM в UTF-8?

null@example.com (JSmаn) — Mon, 30 May 2011 17:55:35 +0000

BeS Yara, я с нуля считал:)

Re: VBS: Как отключить BOM в UTF-8?

null@example.com (Xameleon) — Mon, 30 May 2011 05:40:35 +0000

Не особо аккуратно, но наверное как то так.


Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "UTF-8"
st.WriteText("текст")
'st.SaveToFile "utf8_with_bom.txt",2
st.Position = 0
st.Type = 1
st.Position = 3
data = st.Read
st.close
st.open
st.Write data
st.SaveToFile "utf8_without_bom.txt",2

Re: VBS: Как отключить BOM в UTF-8?

null@example.com (BeS Yara) — Mon, 30 May 2011 05:02:18 +0000

JSman пишет:

Далее прочитайте весь файл с 3го символа.

Тогда уж не с третьего, а с четвёртого
Согласно wiki в BOM для указания на UTF-8 используется три символа:

UTF-8
EF BB BF

Re: VBS: Как отключить BOM в UTF-8?

null@example.com (JSmаn) — Sun, 29 May 2011 20:36:53 +0000

Сохраненный файл откройте через ADODB.Stream в кодировке ascii. Далее прочитайте весь файл с 3го символа. Сохраните данные.

VBS: Как отключить BOM в UTF-8?

null@example.com (Zeron) — Sun, 29 May 2011 20:09:10 +0000

Этот vbs скритп создаёт файл с кодировкой UTF-8.
Мне нужен файл именно без BOM, а он создаётся с ним.
Помогите решить проблему.

Set st = CreateObject("ADODB.Stream")
st.Type=2
st.Open
st.Charset = "UTF-8"
st.WriteText("текст")
st.SaveToFile("1234.txt")