Hi all!

I'm looking for something comparable to the function "CByte" from VB.
But actually I am concerned with writing a CRC calculation for the MODBUS protocol:

Public Function crc(Framestr As String) As Byte
Dim count As Integer
Dim dummy As Byte
Do While (count < Len(Framestr))
count = count + 1
dummy = Asc(Mid(Framestr, count)) * 2 And &HFF
crc = crc Xor CByte(Asc(Mid(Framestr, count)) Xor dummy)
Loop
End Function

Did someone else ever have the same prolem and have you already written a function?

Hello everybody!

I have a question about EOF.

If I create a blank file and then read this with "INPUT", this works without error message:

OPEN "c:\temp\test.txt" FOR OUTPUT AS #1: CLOSE
OPEN "c:\temp\test.txt" FOR INPUT AS #1
DO WHILE NOT EOF(1)
    LINE INPUT #1, zeile$
LOOP
CLOSE #1

If I do the same thing with
  OPEN "c:\temp\test.txt" FOR BINARY AS #1
I get the error message "Input past end of file".

Can someone tell me how to write the DO-LOOP so I do not run into the EOF error?

Christian

Hi FellippeHeitor,

that really helped me a lot - THANKS!

The program now processes the 100,000 lines in 0.49 seconds.
That sounds good at first, but QB71 is still more than twice as fast.

In this small sample program that does not matter. But if I have to read a lot of files very often, you still notice the difference clearly.

Is there still a way to make it faster or is not there any more?

Christian