Visual Basic 6

EN NL TR

Het vorige fragment

De fragmentenindex

Het volgende fragment

Wat doet deze code juist?

Deze procedure opent twee bestanden, een bronbestand en een doelbestand.  Beide bestanden zijn van het type tekst en alle tekst uit het bronbestand uitgezonderd de lege lijnen zullen in het doelbestand weggeschreven worden.  Er is geen foutenopvang voorzien dus als er iets misloopt zal VB het programma onderbreken.  De bestandsnaam van het doelbestand moet verschillend zijn dan die van het bronbestand.

Public Sub VerwijderLegeLijnen(ByVal sSource As String, ByVal sTarget as String) ' Open ons bronbestand (source file) f1 = FreeFile Open sSource For Input As #f1 ' Open ons doelbestand (target file) f2 = FreeFile Open sTarget For Output As #f2 ' Doorloop het ganse bestand Do While Not EOF(f1) ' Lees een lijn uit het bronbestand Line Input #f1, x ' En als deze niet leeg is, dan schrijven we de lijn in het doelbestand weg If x <> "" Then Print #f2, x End If Loop ' Sluit de twee geopende bestanden Close #f2 Close #f1 End Sub
 

Het vorige fragment

De fragmentenindex

Het volgende fragment