Flere variabler i fil.

Jeg ved selvfølgelig godt hvordan man åbner et tekstprogram og skriver det!!! Men jeg vil gerne have en kode der skriver og åbner det og opdeler det sådan at jeg ikke skal lave en fil til hver variabel!

Der må godt være en variabel for hver linie!
Gerne udfra \"input as #1\"-princippet!

*/ Addy

Kom nuuuuu...
Hvis ikke i forstår spm. så spørg løs!!!


*/ Addy

Du kan måske bruge noget der ligner denne kode:
Henter data

Open App.Path & \"\\Vare og prisliste.txt\" For Input As #1
Do While Not EOF(1)

    Line Input #1, textline \' Read line into variable.
      data(x)= textline
    End If
    X = X + 1

Loop


\'Gemmer data
Open App.Path & \"\\Vare og prisliste.txt\" For Output As #1   
x=0
Do While tmp < antal \'antal= poster der skal gemmes
Print #1, data(x)
x =x + 1
Loop
Close #1

Ups jeg prøver lige igen
x=0
Open App.Path & \"\\Vare og prisliste.txt\" For Input As #1
Do While Not EOF(1)

    Line Input #1, textline \' Read line into variable.
      data(x)= textline
   
    X = X + 1

Loop


\'Gemmer data
Antal =  (antal poster som skal gemmes)
Open App.Path & \"\\Vare og prisliste.txt\" For Output As #1   
x=0
Do While x < antal \'antal= poster der skal gemmes
Print #1, data(x)
x =x + 1
Loop
Close #1

Hvor skriver man hvad der skal stå på linie 1, 2,3 o.s.v.?

Kan du ikke lave et eksempel med flere linier?

*/ Addy

Et lille eksempel:

\'definerer array, hvor data kan gemmes
dim data(1000) as string

\'Tildeler værdie til array

data(1)=\"linie 1\"
data(2)=\"linie 2\"
data(3)=\"linie 3\"

\'Gemmer data
Antal = 3\' antal poster som skal gemmes
Open App.Path & \"\\Vare og prisliste.txt\" For Output As #1   
x=1
Do While x <= antal \'antal= poster der skal gemmes
Print #1, data(x)
x =x + 1
Loop
Close #1

Jeg håber dette eksempel letter forståelsen

Hej Addy
Kunne du ikke tænke dig at svare snart?????
Mit eksempel giver dig muligehed for at gemme og hente masser af linier. Hvad er problemet ?????

Her er pointene! Tak for svaret!

Jeg har lige været på¨noget ferie derfor har jeg ikke svaret!

Selv tak :-)