Как работать с кодировками?

[AndreyG]

Следующая проблема: подключился к dbf файлу от 1С, из рекордсета возвращается строка в следующем виде "╤рыЇхЄъш ъюёьхЄшўхёъшх 40 °Є". Как изменить кодировку или что можна сделать чтоб эта строка была читаемой?

[kif]

на vb
в модуле :

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

Public Function DosToWin(DosText As String) As String
   Dim i As Long
   Dim WinString As String
   Dim DosString As String
   
   WinString = Space(Len(DosText))
   DosString = DosText
   i = CharToOem(DosString, WinString)
   
   DosToWin = WinString
End Function

использование :

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

MsgBox DosToWin("Tðû¯õªúø úþ¸üõªø¢õ¸úøõ 40 °ª")

результат: Tалфетки косметические 40 шт

можно непосредственно из фокса - функция cpconv(string,codepage)
codepage - 1251

[AndreyG]

А как быть с функцией CharToOem? VB не знает такой функции.

[Antonariy]

А как быть с функцией CharToOem? VB не знает такой функции.

См. API Text Viewer

[kif]

Public Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszScr As String, ByVal lpszDst As String)

[AndreyG]

Большое спасибо, работает.

[AndreyG]

Ещо небольшой ньюансик. Оно немного не точно перекодирует. Как это дело можно исправить?

[alibek]

Написать свой перекодировщик.

[Andrey Fedorov]

А как быть с функцией CharToOem? VB не знает такой функции.

А нафиг этот мазохизм нужен?

Идем, к примеру, сюда http://inform.p-stone.ru/libr/db/teoretic/data/public1/ и смотрим что означает 29-ый байт заголовка DBF-файла. Сравниваем с тем что у нас имеется. При необходимости исправляем. Все.

[alibek]

Иногда это невозможно. Например, если база лежит на CD или на сетевом ресурсе с доступом только на чтение.

[Andrey Fedorov]

Иногда это невозможно. Например, если база лежит на CD или на сетевом ресурсе с доступом только на чтение.

Иногда. Но в большинстве случаев все-же возможно. И, с того-же CD базу всегда можно скопировать на локаль (сам же так советовал!) - оно в итоге и быстрее будет...

[alibek]

У меня было такое однажды, надо было справочник (КЛАДР) импортировать.
Копировать локально -- он весит дофига.
Я до того дошел, что начал класс писать, который бы умел примитивно работать в DBF.