Gem til txt fil

Private Sub Command1_Click()
Open \"c:\\prøve.txt\" For Input As #1 \' Open file. \'Eksempel på en sti, husk efternavn
Do While Not EOF(1) \' Loop indtil alle data er indlæst.
Line Input #1, tekstln \' Tildeler variablen en værdi, i form af en text-string
List1.AddItem (tekstln)
numb = numb + 1
Loop
Close #1 \' Close file.

End Sub

Jeg har lige et spm...Jeg ved godt hvad EOF er men når der står EOF(1)...Det der 1 tal hvad gør det?
helt nøjagtigt hvad er det?  numb = numb + 1

gemme :
Private Sub cmdSave_Click()
Dim FileName As String
CommonDialog1.Action = 2
FileName = CommonDialog1.FileName
F = FreeFile
Open FileName For Output As #F
Print #F, Text1.Text
Close #F
End Sub

at der står (1) efter EOF betyder at det er fil nr 1 man snakker om ligesom du skriver #1 ved alle referencer ellers.

Numb tingen ??? - det er fordi jeg tog koden ud af et projekt jeg selv havde liggende.

Open \"c:\\prøve.txt\" For Input As #1 \' Open file. \'Eksempel på en sti, husk efternavn
Do While Not EOF(1) \' Loop indtil alle data er indlæst.
Line Input #1, tekstln \' Tildeler variablen en værdi, i form af en text-string
List1.AddItem (tekstln)
numb = numb + 1
Loop
Close #1 \' Close file.

Skulle denne her kode indlæse mine gemte data fra *.txt filen når jeg åbner programmet..Jeg lagde koden i form_load, men den vil bare ikke indlæse dataen...

Private Sub Command1_Click()
Open \"c:\\prøve.txt\" For Input As #1 \' Open file. \'Eksempel på en sti, husk efternavn
Do While Not EOF(1) \' Loop indtil alle data er indlæst.
Line Input #1, tekstln \' Tildeler variablen en værdi, i form af en text-string
List1.AddItem (tekstln)
Loop
Close #1 \' Close file.

End Sub

-denne virker ved mig...

Nej sorry, den virker, det var den her som jeg mente..gemme :
Private Sub cmdSave_Click()
Dim FileName As String
CommonDialog1.Action = 2
FileName = CommonDialog1.FileName
F = FreeFile
Open FileName For Output As #F
Print #F, Text1.Text
Close #F
End Sub

..Den gemmer godt nok til filen, men filen bliver helt blank..DVS at hvis jeg prøver at gemme noget, så gemmer den bare hel blank side...Underligt

(du skal huske at have en fil liggende i c:\\ ved navn prøve.txt ellers dur det ikke...)

ah ok. så forstår jeg bedre :) -kigger lige på det.

hvis du vil tilføje til file kan du bruge :
Open \"C:\\data.txt\" For append As #1

Do While Not EOF(1)

Print #1, \"det der skal tilføjes\"

Close #1



hvis den skal overskrives :
Open \"C:\\data.txt\" For output As #1

Do While Not EOF(1)

Print #1, \"overskriv.!\"

Close #1

jeg ved ikke hvor godt dette her virker da jeg ikke har lavet det selv (og heller ikke har testet det endnu.

Dim SiR$, X
On Error GoTo Hell:
CMDialog1.Filter = \"Save as Ebonix Log(*.log)|*.log|All Files (*.*)|*.*|\"
CMDialog1.FilterIndex = 2
CMDialog1.Action = 2
SiR$ = CMDialog1.Filename
If Len(Dir$(SiR$)) <> 0 Then
X = MsgBox(\"This file already exists: \" + SiR$ + \", do you wish replace it?\", 33, \"Error\")
If X > 1 Then Exit Sub
If X = 1 Then GoTo Steve
End If
Steve:
Open SiR$ For Output As #1
For X = 0 To List1.ListCount - 1
Print #1, List1.List(X) + Chr(13)
Next X
Close
Hell: Exit Sub