Dumt spørgsmål, men hvor gemmer man dataen der bliver skrevet ind i felterne ?

Hej Peter.
Hvis ikke du opretter en access-base eller lignende, kan du gemme i en ASCII-fil.

Open app.path & "\nyfil.txt" for output as #1
print #1, felt1.text
print #1, felt2.text
close #1

For at kunne tilføje og ændre sådanne filer må du oprette en "skygge", som du læser alle bestående data over i, derpå de nye og så kan du kopiere skyggen over i din egentlige datafil bagefter.

For at læse data:
Dim var1,var2,var3 as string (gør det under generel eller i et modul som Global var....

Open App.Path & "\nyfil.txt" for Input as #1
Line Input #1, var1
line Input #1, var2
close #1

Se desuden Do while - EOF m.v.

Det er en god ide at bruge indexerede variable, så man kan benytte For...Next ved læsning og skrivning.

Vil du benytte disse metoder, så skriv direkte til mig joern.thorsen@get2net.dk

Lodret ¦ er alt+179, men skulle du ikke benytte en MCI-kontrol, hvis det er noget med lyd?  Du kan også lave et lille bitmap og lægge det på en knap, og så er der jo frit slag.

M.v.h.  Jørn

Jeg er altså kun et barn så, kunne jeg få det i pap ?

For ikke at fylde skærmen med en masse kildetekst foreslog jeg en direkte kontakt.  Her er et lille - meget enkelt  - eksempel fra en af mine programmer.

  If Len(txtnyfast.Text) > 5 Then
      lstfaste.AddItem txtnyfast
      txtnyfast.Text = ""
    Else
      z = MsgBox("Teksten skal være på mindst 5 tegn", 48, "Medd. fra 'Gem faste'.")
      Exit Sub
  End If

  Open app.Path & "\faste.dat" For Output As #6
    For z = 0 To lstfaste.ListCount - 1
      lstfaste.ListIndex = z
      Print #6, lstfaste.Text
    Next
  Close #6

Indholdet i et tekstfelt tilføjes først en liste, forinden tjekkes dog om der er skrevet noget over 5 tegn.
Derpå overføres hele listens indhold til en fil.

M.v.h.  Jørn

dette med Direkte konatakt er god nok, min e-mail er pb@dui.dk

fico>> endnu en programmerings unge - me to!!

Svar:
Hvis man bare vil tilføje noget til en Acsii fil skal det appendes og ikke outputtes!!
Altså:

open app.path "\jinx.txt" for append as #1
  print #1, text1.text
Close #1

Hvor skal det stå henne ?

Hej Fico.
Det er godt nok zelebris' svar, men det skal stå under f.eks. en knap, som du klikker på.  Du kan også lave det således at et dobbeltklik på selve tekstfeltet udløser skrivningen til en fil.
Det er rigtigt at "open for output" sletter alt der evt. står i filen i forvejen. Det er derfor data i mit eksempel højere oppe gemmes i en listeboks så længe.

M.v.h.  Jørn 

Jeg siger bare at det jeg vil er at når man har skrevet datae'en og klikker på X eller trykke alt+f4 eller noget tredje for at slukke programmet så spørg den om det skal gemmes og hvis ja, så gemmer den data'en, hvis nej så gør den det ikke.

Programmet skal se sådan ud at når man sætter en |< < > >| ind så kan man skifte fra det ene sted i data'en til det andet sted.
Vent jeg har et slags ekepel på hvad jeg mener, det er godt nok lavet i Delphi, men prøv at kigge på http://users.cybercity.dk/~bbi1050/mr/pictures/adrkartotek.gif .
Såden nået lignene kommer den til at se ud.

Kan jeg ikke få svar på hvor en af disse koder skal være ?

Jørn din resourse virkede, NÆSTEN, jeg har haft store problemer med den da den ikke virkede.