win1252->win1251

[Inferno]

Подскажите пожалуйста, каким образом можно конвертировать строку из windows-1252 в windows-1251

[GSerg]

Название топика несколько контрастирует с содержимым

[vvs_adm]

Название топика несколько контрастирует с содержимым

Зато прочитав содержимое, вздыхаешь с облегчением

[Inferno]

Сорри исправился

[vvs_adm]

Если очень сильно надо, а остальные молчат, то могу предложить посимвольно :
[code]Type Win1252to1251
win1252 as byte
win1251 as byte
end type

Private Sub Form_load()
Dim CheckWin(255) as Win1252to1251
InitCheckWin
...
...
...
sChar=Check(sChar).win1252
or
sChar=Check(sChar).win1251

[tyomitch]

Во-первых, я бы для таких целей юзал пару MultiByteToWideChar+WideCharToMultiByte (может, есть и единая функция - я не знаю).

Во-вторых, в расширенной части 1251 и 1252 афаик нету общих символов. Т.е. единственный способ - заменить все символы старше &HC0 вопросиками.

[vvs_adm]

Я то чета подумал, что win1252 тоже русская, (стыд мне и позор), что не есть правильно совсем Опомнився, что же сие такое, беру свои слова обратно... Как же ты ее переведешь, если там только инглиш и цифры одинаковые, ну служебные еще...

Т.е. единственный способ - заменить все символы старше &HC0 вопросиками.

А зачем вопросиками? Оно и так прекрасно переведется в кракозяблики. Но кракозяблики можно опять назад перевести, а вот как ты вопросики переводить обратно будешь... Можно конечно, но сложно.

[Inferno]

Вот нашел кое что.

Код: Выделить всё

Option Explicit
Public Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long
Public Const MB_PRECOMPOSED = &H1


Enum Charset
    Default = 0
    OEM_Russian = 866
    OEM_Korean = 949
    Windows_1251 = 1251
    Windows_1252 = 1252
    Korean_Johab = 1361
    Mac_Korean = 10003
    Mac_Cyrillic = 10007
    Korean_Extend = 20833
    KOI_8R = 20866
    KOI_8U = 21866
    ISO_2022_Korean = 50225
    Korean_Extended = 50933
    EUC_Korean = 51949
    UTF_7 = 65000
    UTF_8 = 65001
End Enum

Public Function ConvertCharset(ByVal strString As String, ByVal FromCharset As Charset, ByVal ToCharset As Charset) As String
Dim lngLength As Long
Dim strWideChar As String
Dim strReturn As String
Dim lngReturnLength As Long

    lngLength = Len(strString)
    strWideChar = String$(lngLength * 2, Chr(0))
    strReturn = String$(lngLength * 2, Chr(0))
    lngReturnLength = MultiByteToWideChar(FromCharset, MB_PRECOMPOSED, strString, lngLength, strWideChar, lngLength)
    WideCharToMultiByte ToCharset, 0, strWideChar, lngReturnLength, strReturn, lngLength * 2, ByVal 0, 0
    ConvertCharset = Left$(strReturn, lngReturnLength)

End Function




Как отсюда видно бьюсь с корейским языком. С путями и подобной ерундой разобрался. А как файл прицепить не знаю. Название файла записано в текстовом файле. Я его оттуда и вытаскиваю.
Кстати заметил интересную вещь FSO говорит что файл существует, а picturebox утверждает, что неправильный путь.

Самое интересное, что если делаю поддержку корейского языка виндой все работает. В общем-то не хотелось бы так винду коверкать.