гороскоп на сегодня у скорпиона любовный гороскоп совместимости любовный гороскоп на 2017 рак девушка подробнее на этой странице нажмите чтобы увидеть больше ссылка на подробности любовный гороскоп гороскоп совместимости совместимость знаков в любви любовный гороскоп любовный гороскоп гороскоп совместимости парень козерог девушка весы гороскоп совместимость гороскоп на месяц любовный рак гороскоп на след неделю девы любовный гороскоп женщина рыба мужчина весы совместимость гороскоп совместимости он телец она овен совместимость любовный увидеть больше гороскоп дева любовный на сегодня и завтра гороскоп основываясь на этих данных на этой странице гороскоп на совместимость телец и рыбы рак гороскоп весы стрелец совместимость на 2017 год гороскоп ссылка сегодня гороскоп совместимость по гороскопу женщина телец мужчина рак совместимость гороскоп секс гороскоп совместимости читать больше гороскоп любовный на сегодня козерогу гороскоп любовный на завтра для стрельца гороскоп любовный на месяц рыбы женщина совместимость гороскопа лев и овен нажмите для продолжения любовный гороскоп двух львов гороскоп неделю гороскоп стрелец женщина и весы мужчина совместимость в браке гороскоп совместимости весы жен овен муж подробнее на этой странице сексуальный гороскоп близнецы женщин гороскоп совместимости она водолей он телец основываясь на этих данных совместимость по гороскопу близнецы скорпион гороскоп совместимости рак и козерог на 2017 гороскоп козы на 2017 любовный гороскоп на завтра лев любовный женщина одинокая перейти увидеть больше совместимость по гороскопу рыба и дева гороскоп женщины любовный гороскоп скорпиона на 2017 год мужчина гороскоп пифагора совместимости знаков зодиака привожу ссылку любовный гороскоп на рыб сегодня по ссылке гороскоп таблица совместимости по годам сексуальный гороскоп водолея и овна любовный гороскоп на месяц для овнов гороскоп совместимости рыбы женщина и рак мужчина совместимость нажмите чтобы увидеть больше гороскоп совместимости по луне и солнцу вот ссылка гороскоп на совместимость женщина телец любовный гороскоп на месяц весы 2017 гороскоп дева телец совместимость совместимость гороскопов лев скорпион посетить страницу гороскоп совместимости знаков зодиаков таблица фото гороскоп совместимости рыба тигр любовный гороскоп женщина козерог 2017 любовный гороскоп козерог на сегодня женщина любовный гороскоп для девы на сегодня и завтра гороскоп стрелец на завтра женщина любовный составить любовный любовный гороскоп водолей на 2017 гороскоп совместимости по знакам зодиака овен и водолей

Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: ДрЮня
есть такой вот модуль - попробуйте разобраться


Option Explicit

Private Const CP_ACP As Long = 0                        'default to ANSI code page
Private Const CP_OEMCP As Long = 1                      'default to OEM  code page
Private Const CP_MACCP As Long = 2                      'default to MAC  code page
Private Const CP_THREAD_ACP As Long = 3                 'current thread's ANSI code page
Private Const CP_SYMBOL As Long = 42                   'SYMBOL translations
Private Const CP_UTF7 As Long = 65000                  'UTF-7 translation
Private Const CP_UTF8 As Long = 65001                  'UTF-8 translation

Public Declare Function MultiByteToWideChar& Lib "kernel32" (ByVal CodePage As Long, _
            ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
            ByRef buff As Byte, ByVal cchWideChar As Long)

Public Declare Function WideCharToMultiByte& Lib "kernel32" (ByVal CodePage As Long, _
            ByVal dwFlags As Long, ByRef buff As Byte, ByVal cchWideChar As Long, _
            ByRef buffCoded As Byte, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, _
            ByVal lpUsedDefaultChar As Long)



Public Function cpCODE(sCodePage As String, sANSI As String) As String
Dim s As String, _
    bb(1023) As Byte, _
    bbCod(1023) As Byte, _
    lngBadSymbols As Long, _
    res As Long, _
    lngBuffSize As Long, _
    lngCP As Long

    On Error GoTo L_Err
    
    If sANSI = "" Then cpCODE = "": Exit Function
    Select Case sCodePage
        Case "CP_ACP": lngCP = 0
        Case "CP_OEMCP": lngCP = 1              'default to OEM  code page"
        Case "CP_MACCP": lngCP = 2              'default to MAC  code page"
        Case "CP_THREAD_ACP": lngCP = 3         'current thread's ANSI code page"
        Case "CP_SYMBOL": lngCP = 42            'SYMBOL translations"
        Case "CP_UTF7": lngCP = 65000           'UTF-7 translation"
        Case "CP_UTF8": lngCP = 65001           'UTF-8 translation"
        Case Else
            cpCODE = "Set Code Page not define"
            Exit Function
    End Select
    
    'преобразуем ascii строчку в unicode
        res = MultiByteToWideChar(CP_ACP, 0, sANSI, -1, bb(0), 512)
        If res = 0 Then
            cpCODE = "Function 'MultiByteToWideChar' return ERROR"
            Exit Function
        End If
        
    'определяем размер выходного буфера
        lngBuffSize = WideCharToMultiByte(lngCP, 0, bb(0), -1, bbCod(0), 0, vbNullString, lngBadSymbols)
    
    'конвертируем данные входного буфера в заданную кодовую страницу и помещаем в выходной буфер
        res = WideCharToMultiByte(lngCP, 0, bb(0), -1, bbCod(0), lngBuffSize, vbNullString, lngBadSymbols)
        
    'преобразуем выходной буфер в строку в заданной кодовой странице
        Call BinToStr(bbCod(), 0, lngBuffSize - 1, cpCODE)
    
L_Exit:
    Exit Function
   
L_Err:
    cpCODE = Err.Description & " (" & Err.Number & ")"
    GoTo L_Exit
End Function


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.