Hi vital345!
> А если есть файл is.dbf, вся текстовая информация в котором в кодировке
> KOI8-RU, то что делать?
Откуда такая экзотика то? и это точно KOI8-RU (не слышал про такую) или всё-же KOI8-R ?
Фокс эту кодовую страницу не поддерживает.
> Мне нужно получить dbf файл, но вся текстовая инфа в нем должна быть win1251
Отменить неявную перекодировку символьных полей в этой таблице (SET NOCPTRANS TO ...), использовать например вот такую функцию для перекодировки (штатный CPCONVERT не могёт с KOI8-R работать):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LPARAMETERS lnCPFrom, lnCPTo, lcInStr
DECLARE INTEGER MultiByteToWideChar IN WIN32API ;
INTEGER, INTEGER, STRING, INTEGER, STRING @, INTEGER
DECLARE INTEGER WideCharToMultiByte IN WIN32API ;
INTEGER, INTEGER, STRING, INTEGER, STRING @, INTEGER, STRING, INTEGER @
lnInStrLen = LEN(m.lcInStr)
ln1 = 0
lnBufLen = MultiByteToWideChar(m.lnCPFrom, 0 , m.lcInStr, m.lnInStrLen, 0 , 0 )
lcBuf = SPACE(m.lnBufLen * 2 )
MultiByteToWideChar(m.lnCPFrom, 0 , m.lcInStr, m.lnInStrLen, @m.lcBuf, m.lnBufLen * 2 )
lcOutLen = WideCharToMultiByte(m.lnCPTo, 0 , m.lcBuf, m.lnBufLen* 2 , 0 , 0 , "*", @m.ln1)
lcOut = SPACE(m.lcOutLen/ 2 )
WideCharToMultiByte(m.lnCPTo, 0 , m.lcBuf, m.lnBufLen * 2 , @m.lcOut, m.lcOutLen / 2 , "*", @m.ln1)
RETURN m.lcOut
KOI8-R это CP номер 20866. Win1251 соответственно номер 1251 :) В системе необходимо наличие поддержки данной CP (обычно она имеется если установена русская локаль, но не лишним будет проверить в апплете Regional And Language Options).
Posted via ActualForum NNTP Server 1.1
