Описание функции


cp866_to_cp1251

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

cp866_to_cp1251(String$)

Параметры

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

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

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

См. также

cp1251_to_cp866

Пример

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