Hvordan gemmer man data fra \"text1.text\" til en fil?!? - HASTER HASTER

Lav en knap til at trykke på.

Dobbeltklik på knappen og skriv følgende:

Private Sub Command1_Click()
  open \"Fil.txt\" for output as #1
  print #1, text1.text
  close 31
end sub

Der var en fejl i Close #1
Lav en knap til at trykke på.

Dobbeltklik på knappen og skriv følgende:

Private Sub Command1_Click()
  open \"Fil.txt\" for output as #1
  print #1, text1.text
  close #1
end sub 

hvis du selv vil bestemme hvor den skal gemmes runtime skal du indsætte en komponent kaldet Microsoft Common Dialogs! (Fra Ctrl+t)
Giv den navnet: dlgCommon

Dim save as String
dlgCommon.showsave
save = dlgCommon.Filename

open save for output as #1
print #1, text1.text
close #1

hvis du så vil hente filen skal du bare gøre det modsatte

Dim open as String
dlgCommon.showopen
open = dlgCommon.Filename

open open for output as #1
input #1, open
text1.text = open
close #1

joha0147:
Det virker ikke helt det med at hente filen igen.
Først siger den fejl på disse liner:
Dim open as String

Open = dlgCommon.Filename

open open for output as #1
input #1, open
text1.text = open

Men dette laver jeg hurtigt med at om navne alle open til (et andet navn)\"ooo\". Undtaget det første open på linie 5, Mellem-rummet tæller(der hvor der stå: open open(det første)).

Men den siger stadig fejl. Den når at åbne dglCommon og jeg vælger en fil, men så siger den fejl på linie 6 (inout #1, open)

Ved du hvorfor??? Har du (Carik) det sammen problem. Kan du hjælpe, joha0147??

*/ Addy

OG lige en ting til:
Jeg omdøbte heller IKKE \"input #1, open\" til \"input #1, ooo\"

og på line 5 var det nr. 2 ikke nr. 1... Nå jeg går i seng, i jo svare ikke få i morgen!