Не получается прога

[AniGiLator]

Не могу сделать прогу для курсовой (в эту пятницу уже сдавать)
Надо сделать программу которая будет открывать текстовый файл, определять какая кодовая таблица 866(dos) или 1251(win), а затем если надо перекодировала dos->Win b Win->dos
Помогите хоть как нибудь

[RayShade]

Ну, перекодировка делается

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

Public Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long


OEM это DOS, a Char - Windows. А вот насчет того, как определить это я не в курсе

[alibek]

Определять статистикой.
Берешь фрагмент текста (например, первые 600 символов) и считаешь, сколько раз какой символ попадается.
Для среднестатистического текста имеется определенное распределение (скажем, буква "р" - 30%, буква "о" - 33% и т.п.)
Считаешь процентное отношение в анализируемом тексте, учитывая, что в кодировке CP866 буква "р" это &hE0 (224), а в CP1251 - &hF0 (240), и анализируешь результаты, после чего получаешь вероятности того, что данный текст в кодировке CP866 или CP1251.

[Aqualung]

Еще один похожий вариант: поиск в тексте частоупотребимых слов ("это", "есть", "быть", "самый"...), соответственно, в одной и в другой кодировке.

[Eduard]

Ну а может быть сразу составить весь алфавит в одной какой-нибуть кодеровке, и искать такие буквы в тексте, если есть, то значит кодеровка совпала и это Win или DOS в зависимости какой алфовит был!

[Alexanbar]

Я бы предложил ещё один способ:
1) Ищем коды, которые есть в тексте на Win и нет в DOSю Если нашли- значит кодировка Win.
2) меняем всё с точностью до наоборот