Codegurus.be - Test grouped lines

Visual Basic 6

EN NL TR

The next snipset

Test if lines in a text file are correctly grouped

What does this code do?

The procedure will open a text file and test if the lines of text are grouped correctly. A group of lines consist of a number of non-empty lines seperated by an empty line. The number of lines in a group is determined by the first group encountered. The procedure doesn't do any error checking, so if an error occurs it will break.

Public Sub TestGroupedLines(ByVal sSource As String)
  ' Open our source file
  f = FreeFile
  Open sSource For Input As #f
  
  ' We're detecting and assume that no lines are counted yet
  bDetecting = True
  nGroupLineCount = 0
  nLine = 0

' Start processing till we reach the end
  Do While Not EOF(f)
    ' Read a line from the source file
    Line Input #f, x
    nLine = nLine + 1

If bDetecting Then
      If x = "" Then
        If nGroupedLines > 0 Then
          ' We're detecting and we found an emtpy line after finding a group, stop the detection and initialize the counter
          bDetecting = False
          nCountedLines = 0
        End If
      Else
        ' We're detecting and we found a non-empty line, increase the group line count for the group
        nGroupLineCount = nGroupLineCount + 1
      End If
    Else
      If x = "" Then
        ' We're not detecting and we found an emtpy line, test the number of lines counted against the group line count
        If nCountedLines <> 0 And nCountedLines <> nGroupLineCount Then
          MsgBox "Group size mismatch at line " & nLine
          Exit Sub
        End If
        
        ' Restart the counting
        nCountedLines = 0
      Else
        ' We're not detecting and we found a non-empty line, thus it's part of a group so let's increase the counter
        nCountedLines = nCountedLines + 1
      End If
    End If
  Loop
  
  ' Display...
  If bDetecting Then
    MsgBox "This file doesn't contain multiple groups!"
  Else
    MsgBox "All groups are equally seperated!"
  End If

' Close the opened file
  Close #f
End Sub

An example of a correctly grouped text file

The first group has 4 lines and all following groups also have 4 lines. Thus this file is correctly grouped.

An example of a incorrectly grouped text file

The first group has 4 lines, but 2nd group consists of only 3 lines. Thus fhis file is incorrectly grouped.

Group 1, Line 1 Group 1, Line 1 Group 1, Line 2 Group 1, Line 3 Group 2, Line 1 Group 2, Line 1 Group 2, Line 2 Group 3, Line 1 Group 3, Line 1 Group 3, Line 2 Group 3, Line 3

The previous snipset

Home

The next snipset