VPF::Dbf файл и кодировка - Форум программистов

BingoBongo

Дата 5.9.2007, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.8.2006

Репутация: нет
Всего: нет

Читаю dbf-файл, строки в нем в dos-кодировке. Пытаюсь их преобразовывать с помощью функции CharToOem. В результате в полученной строке 1,2 символа не преобразовываются в нужную кодировку. Подскажите, что делаю не так? Пример кода:

Код


Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Private Sub Command1_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim strConnect As String
Set GlobalCnxn = New ADODB.Connection
strConnect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=c:\1C_conf\dbf\"
GlobalCnxn.Open strConnect
rst.Open "select * from sc174", GlobalCnxn
rst.MoveFirst
Dim sAnsi As String
sAnsi = rst.Fields("Descr").Value
Dim sOem As String
sOem = String(Len(sAnsi), chr(0))
CharToOem sAnsi, sOem
End Sub

Dbf-файл в аттаче.

Присоединённый файл ( Кол-во скачиваний: 6 )

sc174.rar 1,68 Kb

Akina

Дата 5.9.2007, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(BingoBongo @ 5.9.2007, 20:14

)

строки в нем в dos-кодировке

Да?? с чего это Вы так решили? посмотрите их в шестнадцатеричных кодах и сравните с СР866...

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »