Læse variabler i txt fil

Du læser filens indhold ind i en variabel sådan:

  Dim MinString As String
  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, MinString 'Putter 1. linie i filen ind i MinString
  Close #Filnummer


Derefter kan du bruge funktionen Split på MinStreng for at dele den op - søg på Split function eller kik på http://www.eksperten.dk/spm/44458

For at skrive noget til en fil gør du følgende:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  Print #Filnummer, "1435;Peter;3456;908;600"
  Close #Filnummer


              ----O----


Hvis du vil undgå at bruge Split-funktionen kan du bare skrive hver variabel (1435, Peter, ...) på hver sin linie - for VB læser en fil linie for linie.

Fx. hvis der i filen står:

1435
Peter

Kan du læse på følgende måde:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, MinString1 'Putter 1. linie ind i MinString1
  Line Input #Filnummer, MinString2 'Putter 2. linie ind i MinString2
  Close #Filnummer

Og skrive på følgende måde
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  Print #Filnummer, Minstring1 'Skriver indholdet af MinString1 til linie 1
  Print #Filnummer, MinString2 'Skriver indholdet af MinString1 til linie 2
  Close #Filnummer

/Martin Moth