🚀 go-pugleaf

Toen ik Bastiaan kietelde, kwam er dit uit:

> Je hebt een file met louter ASCII tekens boven de 31, van 16.000.010
> bytes groot. Open hem met LIST en druk op End. Nu laat-ie 22 hele
> regels zien, en 1 regel van 10.

Ik neem dus aan dat je dan (maximaal) 23 dataregels van 80 tekens op je
scherm hebt. (Je kunt LIST ook anders instellen.)
En waarschijnlijk zijn regel 1 en 25 bezet met meta- en hulp-informatie.


> Stel nu dat het 1e teken in die file een tab
> is, en je doet hetzelfde. Dan laat list weer 22 hele regels zien, maar
> nu 1 regel van 17. Hiervoor moet hij dan wel weten dat er een tab is,
> en ook op welke positie die staat in de modulus van 8. Dus moet hij
> wel de hele file lezen

Ben ik (eindelijk) met je eens. Dit hoeft overigens ook puur in VB niet
lang te duren, gebruik bijvoorbeeld zoiets:

Function do_File(fName As String)

  Const C_LINESIZE = 80
  Const C_TABSIZE = 8
  Const C_BUFFERSIZE = 131072    ' if < 32768, append an & (like 16384&)

  Dim fInput As Integer
  Dim fLen As Long

  Dim fBuffer(1 To C_BUFFERSIZE) As Byte

  Dim fRec As Long
  Dim fRecs As Long
  Dim fOffset As Long

  Dim timer0 As Double

  Dim i As Long
  Dim iMax As Long
  Dim iPos As Integer

  Debug.Print "----------------------"

  timer0 = Timer
  Debug.Print "Start:", Time()

  fInput = FreeFile(0)
  Open fName For Binary Access Read As fInput
  fLen = LOF(fInput)
  Debug.Print "Size of file:", fLen

  fRecs = (fLen + C_BUFFERSIZE - 1) \ C_BUFFERSIZE
  Debug.Print "Nr. of records:", fRecs
  Debug.Print "Nr. of full records:", (fLen \ C_BUFFERSIZE), _
              "( * "; C_BUFFERSIZE; " = "; _
              (fLen \ C_BUFFERSIZE) * C_BUFFERSIZE; ")"

  fOffset = 1
  iPos = 1

  For fRec = 1 To fRecs
    Get #1, fOffset, fBuffer

    iMax = fLen - fOffset + 1
    If iMax > C_BUFFERSIZE Then
      iMax = C_BUFFERSIZE
    End If

    For i = 1 To iMax

      Select Case fBuffer(i)
        Case 9   ' HT
          iPos = iPos + 8 - (iPos Mod C_TABSIZE)
        Case 10  ' LF
          'no horizontal move
        Case 11  ' VT
          'no horizontal move
        Case 12  ' FF
           iPos = 1
        Case 13  ' CR
           iPos = 1
        Case Else
          iPos = iPos + 1
      End Select

      If iPos > C_LINESIZE Then
        iPos = 1
      End If

    Next i

#If 0 Then
    Debug.Print iPos,
    If 0 = (fRec Mod 8) Then Debug.Print
#End If

    fOffset = fOffset + iMax
  Next fRec

  Debug.Print
  Debug.Print "Last position:", iPos
  Debug.Print "End:", Time(), "= "; Round(Timer - timer0, 2); " seconds"
  Debug.Print

  Close fInput

End Function


Die doet er in mijn VBA minder dan een seconde per MB over, dus dat zal
in (gecompileerde) VB wel wat sneller gaan.

-- 
Affijn, Ruud   `  -  ?
               + ` ? *
                 ? `     Jvr qvg yrrfg,
               ?  =  `   fgresg wbatre.