Форум программистов, компьютерный форум, киберфорум
Наши страницы
zink0000
Войти
Регистрация
Восстановить пароль
Сарай №XII
(Юрий Зинковский)

Мой блог.
Оценить эту запись

Поиск повреждённых текстовых файлов

Запись от zink0000 размещена 30.11.2019 в 14:44

Программа проверяет все файлы из списка и ищет повреждённые файлы, которые заносит в другой список.

Проверка происходит с помощью функции:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function bnNonTextSymbols(sD As String) As Boolean
  ' bnNoTextSymbols - No (Non) Text Symbols (letters and symbols)
  ' Обнаружение в строке не текстовых символов
  Dim sC As String
  Dim iI As Integer
  '
  For iI = 0 To 8
    sC = Chr$(iI)
    If 0 < InStr(sD, sC) Then
      bnNonTextSymbols = True
      Exit Function
    End If
  Next iI
  ' 9 - пропускаем - табуляция (может быть в тексте)
  For iI = 10 To 31
    sC = Chr$(iI)
    If 0 < InStr(sD, sC) Then
      bnNonTextSymbols = True
      Exit Function
    End If
  Next iI
  bnNonTextSymbols = False
End Function
Исходник:
WinTextChek01.zip

Пример повреждённого файла в папке HTML: b (пример битого файла).htm
Размещено в Без категории
Просмотров 54 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.