Sub ControlSum()
Dim Summa As Long, t As String
Summa = 0
t = String(1, " ")
Open "C:\MyDocuments\test.dbf" For Binary As #1
While Not EOF(1)
Get #1, , t
If Asc(t) Mod 2 = 0 Then Summa = Summa + Asc(t) Else Summa = Summa - Asc(t)
Wend
Close #1
MsgBox "Control Sum = " & Summa
End Sub
Открытие двоичного файла для побайтного чтения
Здравствуйте! Я не программист, просто выход в инет есть, поэтому и попросили задать такой вопрос:
Нужно вычислить контрольную сумму для файла следующим образом:считать файл побайтно, если аски-код (?) байта четный то прибавить его к сумме, если нечетный-отнять.
Затруднение вызывает открытие файла для чтения байтов. Как это правильно сделать? Файл скорее всего *.dbf или *.dbt. Это двоичный?
Заранее спасибо!
Нужно вычислить контрольную сумму для файла следующим образом:считать файл побайтно, если аски-код (?) байта четный то прибавить его к сумме, если нечетный-отнять.
Затруднение вызывает открытие файла для чтения байтов. Как это правильно сделать? Файл скорее всего *.dbf или *.dbt. Это двоичный?
Заранее спасибо!
Цитата:
Originally posted by Домовой
Здравствуйте! Я не программист, просто выход в инет есть, поэтому и попросили задать такой вопрос:
Нужно вычислить контрольную сумму для файла следующим образом:считать файл побайтно, если аски-код (?) байта четный то прибавить его к сумме, если нечетный-отнять.
Затруднение вызывает открытие файла для чтения байтов. Как это правильно сделать? Файл скорее всего *.dbf или *.dbt. Это двоичный?
Заранее спасибо!
Здравствуйте! Я не программист, просто выход в инет есть, поэтому и попросили задать такой вопрос:
Нужно вычислить контрольную сумму для файла следующим образом:считать файл побайтно, если аски-код (?) байта четный то прибавить его к сумме, если нечетный-отнять.
Затруднение вызывает открытие файла для чтения байтов. Как это правильно сделать? Файл скорее всего *.dbf или *.dbt. Это двоичный?
Заранее спасибо!
Это делается примерно так:
Код:
Расширение файла, чью сумму будем искать, не имеет никакого значения.