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

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

2011-05-30T17:55:35Z

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

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

2011-05-30T05:40:35Z

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


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?

2011-05-30T05:02:18Z

JSman пишет:

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

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

UTF-8
EF BB BF

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

2011-05-29T20:36:53Z

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

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

2011-05-29T20:09:10Z

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

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