Process file flexible

[Balero]

Onderstaande Sub werkt nu alleen met recordlengte 200 (toepassing ascii-bestand in stukken van 200 wegschrijven). Heeft iemand een idee hoe ik deze Sub voor iedere pRecLength kan laten werken..

Sub ProcessFile(Infile As String, Outfile As String, pRecLength)
'-------------------------------------------------
Dim LineStr As String * 200
,-------------------------------------------------
Dim Ifnr As Integer
Dim Ofnr As Integer

Ofnr = FreeFile
Open Outfile For Output As #Ofnr

Ifnr = FreeFile
Open Infile For Random As #Ifnr Len = pRecLength

Teller = 0
Do While Not EOF(Ifnr)
Get #Ifnr, , LineStr
Teller = Teller + 1
Print #Ofnr, LineStr
Loop

Close #Ifnr
Close #Ofnr

End Sub

Bedankt, Leo

 

[Wigi]

Dim LineStr As String