Функция cp1251_to

cp1251_to_cp866

Преобразует кодировку из 1251 в 866.

cp1251_to_cp866(String$)

Параметры

String$

Строка для преобразования

Возвращаемое значение

Возвращает преобразованную строку.

См. также

cp866_to_cp1251

Пример

Import "user32.lib"
    OemToCharBuffA(*Buff, *Buff1, SizeBuff)
    CharToOemBuffA(*Buff, *Buff1, SizeBuff)
EndImport

Procedure.s cp866_to_cp1251(String$)
    Protected *Buff
    If Asc(String$)
        *Buff = Ascii(String$)
        OemToCharBuffA(*Buff, *Buff, MemorySize(*Buff))
        String$ = PeekS(*Buff, MemorySize(*Buff), #PB_Ascii)
        FreeMemory(*Buff)
    EndIf
    ProcedureReturn String$
EndProcedure

Procedure.s cp1251_to_cp866(String$)
    Protected *Buff
    If Asc(String$)
        *Buff = Ascii(String$)
        CharToOemBuffA(*Buff, *Buff, MemorySize(*Buff))
        String$ = PeekS(*Buff, MemorySize(*Buff), #PB_Ascii)
        FreeMemory(*Buff)
    EndIf
    ProcedureReturn String$
EndProcedure

s.s = "Привет"
Debug s
s = cp1251_to_cp866(s)
Debug s
s = cp866_to_cp1251(s)
Debug s