Filpeger ved lineinput

Hvad med at gemme data i en variabel for hver læsning.

dim prevFileData ...
dim FileData ...

while not eof(FreeNum)
  Line Input #Freenum, Filedata
  if [condition] then FileData = prevFileData

  prevFileData = FileData
wend

det var en løsning, men ikke i dette konkrette tilfælde, jeg har behov for at flytte parseren.

Jamen... hvis det bare drejer sig om at gentage forrige post, så kan du da sagtens benytte dette:

Hvad med at gemme data i en variabel for hver læsning.

dim prevFileData ...
dim FileData ...
dim blnReadAgain as boolean

blnReadAgain = true

while not eof(FreeNum)

  if blnReadAgain then
    Line Input #Freenum, Filedata
  else
    FileData = prevFileData
    blnReadAgain = true
  end if

  if [condition] then blnReadAgain = False


  prevFileData = FileData
wend

Hvis du ønsker en større grad af frihed mht at læse/skrive textfiler, skulle du måske overveje at lave det som en ini-fil, hvor du kan give hver linie et navn (nøgle), og så skrive/læse med API-kald fuldstændig selektivt.

ocp:> Du har fuldstændig ret, den løsning du peger på er også udemærket til det tænkte eksempel som jeg skrev øverest, men i virkelighedden er mit problem at jeg ikke ved hvor mange linje jeg skal springe tilbage.

tjacob:> Hvis det bare var mig det bestemte hvordan filen skal se ud, ville verdenen være meget nemmere.

Okay...... jeg må give op, må indlæse til et array og bruge en fremgangsmåde, der minde om ocp's idé - derfor here you go.