кодировка DOS

[NicSoft]

Имеются строковые переменные, в которых символы в кодировке DOS. Как программно конвертировать их в WIN? Видел в этом форуме WIN в DOS, мне бы соответственно наоборот. И можно ли определить кодировку символов в переменной, если заведомо она не известна?

[alibek]

Методика такова. Берешь первые N символов строки (N=100...2000) и проводишь анализ, определяя (в процентах) частоту каждого символа. Для каждой кодовой страницы характерен свой "частотный рисунок".

[hCORe]

Используй вот эту функцию, передавая ей текст для проверки в качестве параметра. Она возвращает True, если текст Win1251 и False, если Dos866.

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

Private Function ANSIDETECT(Txt As String) As Boolean
'пpовеpяем тип кодиpовки ANSI или ASCII
'беpем пеpвые 1000 байт еcли это возможно. Hевозможно - меньше.
    l& = Len(Txt)
    If l& > 1000 Then l& = 1000
'копиpyем yчаcток текcта в пеpеменнyю, иначе тоpмоз обеcпечен
    s$ = Left$(Txt, l&)
'обнyляем флажки
    fdo% = 0
    fwo% = 0
'пpоcматpиваем кycок текcта
    For n% = 1 To l&
'вытаcкиваем очеpедной cимвол
    c$ = Mid$(s$, n%, 1)
'еcли это pyccкая "о" в DOS кодиpовке то инкpементиpyем cчетчик
    If c$ = Chr$(174) Then fdo% = fdo% + 1
'еcли это pyccкая "о" в Win кодиpовке то инкpементиpyем cчетчик
    If c$ = Chr$(238) Then fwo% = fwo% + 1
    Next
'ycтанавливаем в конфиге тип пpоcмотpа по дефолтy
    If fdo% > fwo% Then 'это явно ДОC-текcт
        ANSIDETECT = False
    Else 'это явно Win-текcт
        ANSIDETECT = True
    End If
End Function

[NicSoft]

Спасибо всем за помощь.
Сейчас попробую, только у меня строки короткие (до 10 символов).
А как изменить кодировку на Win?

[Akkelo]

А как изменить кодировку на Win?[/quote]

Есть win-API функции CharToOem и OemToChar для перевода текстовых переменных (или строк) из Dos в Win и обратно. Описание этих функций я сейчас уже не помню, но как ими пользоваться можно где-нибудь найти - это точно.

[Amed]

Вот сейчас пишу прогу по перекодировке библиотеки
У меня есть библиотека с www.lib.ru (4.2 Гб)
Так она стояла на Unix сервере, и файлы оглавлений в ней в кодировке koi8r, и открывать их Блокнотом уж очень неудобно. Так я их перекодирую в Win-1251 и всё будет хоккей

P.S. 50% работы уже сделано...

[alibek]

Amed, сходи на http://www.rudenko.com и скачай Book Reader. Поверь, жизнь станет проще

[Akkelo]

Исходник проги для перекодировки на VB меньше страницы кода. Только вот исходника у меня сейчас нет.
А используются в ней все те же функции API. (см. выше)

[Amed]

Хм. Я даже качать не стал

BookReader - "Read e-books with comfort"

1. У меня не "e-books" и мне не надо их читать, у меня стоит какая-то прога с воспроизведением текстов голосом (чтением, проще говоря )
2. В библиотеке куча папок (сколько точно, не помню...), в которых файлы скинуты по авторам. А у каждого автора произведений (т.е. текстовых файлов) около пятидесяти, наверное или около того. Поэтому в каждой папке присутствует файлик ".dir", содержащий своего рода оглавление - полные названия произведений в этой папке. Файлы били на Unix сервере, поэтому Блокнотом их смотреть не получается (кодировка не та - koi8r), надо Word'ом, но Word'ом долго и нудно (надо отвечать на всякие запросы типа "Выберите кодировку" и т.д. и т.п.), так что меня папа заставил писать прогу по перекодированию всех этих файлов в нормальную Win 1251 кодировку. Отказаться нельзя - мне голова ещё нужна

P.S. Все файлы той "говорящей" программой читаются нормально, видно там есть встроенный определитель кодировки (хотя это и не факт).

P.P.S. Программа готова. Перекодирует 2600 файлов за 50 секунд