Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Перекодир...

Тема: Перекодировка символов

15.06.2007 21:08:40

All

4316 сообщения

Тема: Перекодировка символов

Возникла проблема с кодировкой из DOS в Win, а
именно: Переводит из Dos русскую букву ?а?, заменяет на пробел, а пробел на букву ?а?
Есть ли готовая функции перевода кодировки с помощью аски-код? Или как можно ещё решить эту проблему

P.S. Использование клавиатуры
Автор: Артем от 0:00:00 Источник ...

15.06.2007 21:08:40

makc

48 сообщения

RE: Перекодировка символов

Option Compare Database
Option Explicit Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Function ToAnsi(s As String) As String 'DOS in Win
    Dim Buffer As String
    Buffer = Space(Len(s) + 1)
    OemToCharBuff s, Buffer, Len(s)
    ToAnsi = Left(Buffer, Len(s))
End Function
Public Function ToOEM(s As String) As String ' Win in DOS
    Dim Buffer As String
    Buffer = Space(Len(s) + 1)
    CharToOemBuff s, Buffer, Len(s)
    ToOEM = Left(Buffer, Len(s))
End Function

Сам не пробовал, напиши что получилось !

P.S. Использование клавиатуры
Автор: makc от 07.09.2004 6:15:31 Источник ...

15.06.2007 21:08:40

All

4316 сообщения

RE: Перекодировка символов

Спасибо,!
Да это работает сам нашёл на http://www.switchpage.chat.ru/advices/dostowin.html
Так, что пользуйтесь смело!

P.S. Использование клавиатуры
Автор: Артём от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Перекодир...

Поиск

Список форумов

Начало | Forums