Как экспортировать файл как юникод

[chugo]

Привет всем!
Я пытаюсь сохранить некоторые данные в файле но обьязательно он должен быть в кодировке unicod

Dim FileHeder As String
Dim filePath As String

filePath = "D:\text.txt"
FileHeder = "nekotorie dannie"

вот так все получается (т.е. в фаиле записываются данные и сохраняется как unicod)
но перед текстом какиета два символа прибовляются

Open filePath For Binary As #1
Put #1, , StrConv(FileHeder, vbUnicode)

Close #1

Если в место "StrConv(FileHeder, vbUnicode)" написать просто "FileHeder" токда ничего лишнего не приписывается но сохраняется в кодировке ANSI

Так как Я начинающий в этом деле чегото упускаю
Что посоветуите?

[Swatch]

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

[Serge_Bliznykov]

А!! Не морочьте никому голову!!
Эти два символа - это есть заголовок текстового файла в формате Unicode!
Сохраните текст в формате уникод в том же блокноте и посмотрите потом файл любым hex вьювером!
и почитайте тут: Юникод ( Материал из Википедии)

цитирую оттуда (раздел "Порядок байтов":

Для определения формата представления Юникода в текстовом файле используется приём, по которому в начале текста записывается символ U+FEFF (неразрывный пробел с нулевой шириной), также именуемый меткой порядка байтов (англ. byte order mark, BOM).

[chugo]

Сообщение от Swatch

А может попробовать этот файл сохранить заново.

Конечно можно! но хотелось бы узнать можно ли сделать без этого.

Сообщение от Serge_Bliznykov

Не морочьте никому голову!!

Я даже не думал кому то морочить голову. Просто есть проблема и как то надо его решить.

Если что получится напишу...

[Serge_Bliznykov]

Я даже не думал кому то морочить голову.

простите за излишнюю эмоциональность, не сдержался.
я не имел в виду буквально...
подразумевалось, Вы просто заблуждаетесь, когда считаете, что это ошибка....

впрочем, сохраните какой-нибудь Ваш файлик. запакуйте его в архив и выложите этот архив на форум. посмотрим, какой такой это уникод у Вас.

ну и workaround - никто же Вам не мешает после сохранения открыть данный файл как бинарный и удалить первые два байта (например, банально скопировать в новый файл все остальные байты, пропустив первые два).

[chugo]

Начиная этот код мне нужно было из таблиц выводит данные.

ну и когда так попробовал лишние биты к радостью для меня не добавились

вот код может кому то понадобится:

Private Sub cmdExport_Click()

Dim rst         As DAO.Recordset
Dim buffer     As String
Dim filePath   As String
Dim j

filePath = "D:\bla.txt"

'styles это таблица

Set rst = CurrentDb.OpenRecordset("SELECT * FROM styles") 'bazidan cxrilis ageba

Do Until rst.EOF
    Open filePath For Binary As #1
    j = LOF(1)

    buffer = StrConv(rst!heder & vbCrLf, vbUnicode)
    'тут из таблицы styles беру строки от heder в цикле,
    ' добавляю перенос строки и кодирую в уникод

    Put #1, j + 1, buffer
    Close #1
    
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing



End Sub

выходит что к переменной взятой из кода перекодировав прибавляется эти два бита в файл а из таблицы с помощью DAO нет