Gemme array i fil

http://hjem.get2net.dk/sjh/eksperten/299869/TypeData.zip

Helt simpelt:

Skriv skemaet ind i en fil, en linie for hver post i arrayet (med ID, text, navn... osv. sepereret af et tegn du ved ikek forekommer - fx. @ eller lignende.

Når du skal den anden vej bruger du split på seperatortegnet.

Eksempel (skriver kun ID, text og navn - tilføj selv resten)



Skriv:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Output As #Filnummer
  for i = lbound(skema) to ubound(skema) 
    linie = skema(i).ID & "@" skema(i).text & "@" skema(i).navn
    Print #Filnummer, linie
  next i
  Close #Filnummer




Læs:

  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  i=0
  while not eof(FreeFile)
    redim preserve skema(i)
    Line Input #Filnummer, linie
    splitarr = split(linie,"@")
    skema(i).ID = splitarr(0)
    skema(i).navn = splitarr(1)
    skema(i).text = splitarr(2)
    i=i+1
  WEnd 
  Close #Filnummer


Sådan fra hukommelsen, muligvis stavefejl hist og her...