Перевод из ANSI в Unicode

[Arthur2626]

Здравствуйте.
Есть программа баз данных и на ней VSFlexGrid. Данные в базе хранятся в Ansi. Надо данные грида экспортировать в Excel, но чтобы в Excel'e данные были не Ansi, а в Unicode. Как сделать такое преобразование?
Спасибо заранее.

[Viper]

StrConv?

[Arthur2626]

Viper, StrConv я знаю, но сколько пробовал не получается.

[Денис]

Arthur2626
А покажи, как применял эту функцию?

[Proxy]

А анси читабельный или преобразованный для MIME? Т.е. тама как-то было один символ - 4 байта, но информативный только последний. Или не MIME, не помню уже, но с каким-то стандартом точно боролся долго, пока не дошло прочитать вручную чего там приходит. Увидел таки буквы, которые читать надо. Ещё встречал 7 битное преобразование где-то. Тоже тот же ANSI, но только малость с нарушеным принципом.

[Arthur2626]

Я так пробовал:

StrConv(ChrW(187), vbUnicode)

[Viper]

Я так пробовал:

StrConv(ChrW(187), vbUnicode)

И вот нафига тут ChrW? Проще надо быть, и люди к вам потянутся:

Код: Выделить всё

sUnicode = StrConv(sANSI, vbUnicode)

[Arthur2626]

А что такое sANSI?
Попробовал в Immediate window:
StrConv("Б", vbUnicode)
Но не получил unicode символ Б.


[Viper]

sANSI - твоя исходная строка в ANSI-кодировке.
В Immediate ты его и не увидишь этот символ, не поддерживается там Unicode.

[Proxy]

Гы. А я уж думал что серьёзное)

[Viper]

Proxy, что это было?

[Arthur2626]

Viper, я экспортирую в Excel, но там тоже тот же символ.

[Viper]

Так, стоп! С чего нездоровое желание экспортнуть в Excel строку в Unicode кодировке?

[Arthur2626]

У меня есть строка в ANSI кодировке. Надо экспортнуть в Excel преобразовав строку в Unicode.

[ANDLL]

А анси читабельный или преобразованный для MIME? Т.е. тама как-то было один символ - 4 байта, но информативный только последний. Или не MIME, не помню уже, но с каким-то стандартом точно боролся долго, пока не дошло прочитать вручную чего там приходит

Мда. Как там в стихе
Буря мглою небо кроет вихри черные кружа
То как зверь с Proxy завоешь, то заплачешь как дитя

[Viper]

У меня есть строка в ANSI кодировке. Надо экспортнуть в Excel преобразовав строку в Unicode.

А ANSI строку экспортровать в Excel религия не позволяет или что? Если надо просто преобразовать строку из ANSI в Unicode, то StrConv. Если надо что-то другое, то что надо то?

[Arthur2626]

Да, надо просто преобразовать строку из ANSI в Unicode, но с помощью StrConv как я уже написал не получается:
StrConv("Б", vbUnicode)

[Денис]

Arthur2626
До сих пор не видим твоего кода, до сих пор не видим причин, зачем нужно преобразование.

[Viper]

Да, надо просто преобразовать строку из ANSI в Unicode, но с помощью StrConv как я уже написал не получается:
StrConv("Б", vbUnicode)

Все получается! Не может не получатся! И Денис прав, где код?

[SLIM]

Да всес скорее всего получается, просто в Exel-е он просматривает в другой кодировке и все. А там соответственно квадратики и т.д. Другой вопрос ЗАЧЕМ все ето надо

[Arthur2626]

Вот программа.

[SLIM]

Я конечно не силен в кодировках, но квадраты пишутся только на русской раскладке клавы. На англицкой все ок. Такое ощущение что другого в таком случае не увидеть. Я пробовал пихать результат в Notepad, Word, Immedate,MsgBox,Exel, в TextBox, да хоть куда, все одно....Вопрос конечно в другом, да в общем как и у всех : Зачем все это надо. Нельзя в обычной кодировке?

[Arthur2626]

Начальство требует чтобы данные были в Excel'е в Unicode. Т.к. в Excel'е Data, Filter, Autofilter, и при открытии списка значений (при щелчке справа кнопку любого столбца) при ANSI (not Unicode) отображаются крякобразы, а при Unicode - нормально.

[SLIM]

Я ВПЕРВЫЕ ТАКОЕ СЛЫШУ. Что за краказяблы в ANSI кодировке? Всю свою жизнь не парился по поводу этого - потому что такого не было. Может тут дело в настройках Exel-я а совсем не кодировок...

[Arthur2626]

Вот файл xls. Там шрифт Arial LatRus. При нажатии на кнопку открывается список а значения невозможно прочитать.