Программа распознавания кодировки - DOS или WIN - VB
Формулировка задачи:
Программа проверяет все файлы с заданным расширением
в заданном каталоге (со всеми подкаталогами)
и определяет в какой кодировке DOS или WIN записан файл,
если в DOS, то конвертирует DOS в WIN.DosWin.zip
Решение задачи: «Программа распознавания кодировки - DOS или WIN»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim MLang As CMultiLanguage Dim IMLang2 As IMultiLanguage2 Dim Encoding() As tagDetectEncodingInfo Dim encCount As Long Dim inp() As Byte Dim index As Long Open "c:\Test.txt" For Binary As #1 ReDim inp(LOF(1) - 1) Get #1, , inp() Close #1 Set MLang = New CMultiLanguage Set IMLang2 = MLang encCount = 16 ReDim Encoding(encCount - 1) IMLang2.DetectInputCodepage 0, 0, inp(0), UBound(inp) + 1, Encoding(0), encCount For index = 0 To encCount - 1 If Encoding(index).nCodePage = 65001 Then 'UTF-8 Debug.Print "Задетектирован UTF-8, вероятность " & Encoding(index).nConfidence End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д