Visual Basic 6

EN NL TR

Het vorige fragment

De fragmentenindex

Het volgende fragment

Wat doet deze code juist?

De procedure zal een tekstbestand openen en nakijken of de tekstlijnen in dit bestand correct gegroepeerd zijn.  Een groep lijnen bestaat uit een aantal niet-lege lijnen gescheiden door een lege lijn.  Het aantal lijnen in een groep zal bepaald worden door de grootte van de eerste groep.  De procedure bevat geen foutcontrole en VB zal dus het programma onderbreken als er iets misloopt.

Public Sub TestGegroepeerdeLijnen(ByVal sSource As String) ' Open ons bronbestand (source file) f = FreeFile Open sSource For Input As #f ' Geef aan dat we aan het detecteren zijn en veronderstel dat er nog geen lijnen zijn geteld bDetecting = True nGroupLineCount = 0 nLine = 0 ' Doorloop het bestand tot aan het einde Do While Not EOF(f) ' Lees regel aka lijn uit het bestand Line Input #f, x nLine = nLine + 1 If bDetecting Then If x = "" Then If nGroupedLines > 0 Then ' We zijn aan het detecteren en we hebben een lege lijn gevonden nadat we een groep hebben gevonden, stop het detecteren en start het tellen bDetecting = False nCountedLines = 0 End If Else ' We zijn aan het detecteren en we hebben een niet-lege lijn gevonden, verhoog de teller die het aantal lijn per groep bijhoudt nGroupLineCount = nGroupLineCount + 1 End If Else If x = "" Then ' We zijn niet (meer) aan het detecteren en we hebben een lege lijn gevonden, verifieer of het aantal getelde lijnen overeenkomt met het aantal lijnen per groep If nCountedLines <> 0 And nCountedLines <> nGroupLineCount Then MsgBox "Groepgrootte komt niet overeen op lijn " & nLine Exit Sub End If ' Herstart het tellen nCountedLines = 0 Else ' We zijn niet (meer) aan het detecteren en we hebben een niet-lege lijn gevonden, dus de lijn maakt deel uit van een groep en zodus verhogen we de teller nCountedLines = nCountedLines + 1 End If End If Loop ' Geef het resultaat weer... If bDetecting Then MsgBox "Dit bestand bevat geen meerdere groepen!" Else MsgBox "Alle groepen zijn gelijk in grootte!" End If ' Sluit het gebruikte bronbestand Close #f End Sub
 

Een voorbeeld van een correct gegroepeerd tekstbestand

De eerste groep bestaat uit 4 lijnen en de volgende groepen bestaan ook uit 4 lijnen, dus dit bestand is correct gegroepeerd.

Group 1, Line 1 Groep 1, Lijn 1 Groep 1, Lijn 2 Groep 1, Lijn 3 Groep 2, Lijn 1 Groep 2, Lijn 1 Groep 2, Lijn 2 Groep 2, Lijn 3 Groep 3, Lijn 1 Groep 3, Lijn 1 Groep 3, Lijn 2 Groep 3, Lijn 3
 

Een voorbeeld van een niet-correct gegroepeerd tekstbestand

De eerste groep bestaat uit 4 lijnen, maar de 2de groep bestaat uit slechts 3 lijnen, dus dit bestand bevat niet-correct gegroepeerde groepen.

Group 1, Line 1 Groep 1, Lijn 1 Groep 1, Lijn 2 Groep 1, Lijn 3 Groep 2, Lijn 1 Groep 2, Lijn 1 Groep 2, Line 2 Groep 3, Lijn 1 Groep 3, Lijn 1 Groep 3, Lijn 2 Groep 3, Lijn 3

Het vorige fragment

De fragmentenindex

Het volgende fragment