15. december 2004 - 19:51Der er
6 kommentarer og 2 løsninger
Tilføj linie i txt fil og læs den + oprettelse af txtfil
Hej
Jeg har dette stykke kode til at skrive i en txtfil: Private Sub command2_Click() Dim score As String score = text2.Text Open "c:\score.txt" For Output As #1 Print #1, score Close #1 End Sub
Hvordan gør jeg at den bare tilføjer en linie i stedet for at slette det gamle. Det skal fungere som en highscore til et lille spil, så derfor skal det også gerne kunne læses igen...
Og lige et lille ekstra spm. hvordan får man programmet til at oprette selve score.txt filen på c-drevet?
Her er en funktion som opretter en txt fil på c drevet. Text delen kommer om lidt :-) Private Sub Command1_Click() Dim fso, TextFile Set fso = CreateObject("Scripting.FileSystemObject") Set TextFile = fso.CreateTextFile("C:\test\score.txt", True)
Dim hendtIndhold As textstreamer hendtIndhold = TextFile.readline
Her er det jeg er kommet frem til. og jeg har IKKE kigget på det joern skrivet ;-) Private Sub Command1_Click() Dim fso, TextFile Set fso = CreateObject("Scripting.FileSystemObject") Set TextFile = fso.CreateTextFile("C:\test\score.txt", True)
End Sub
Private Sub Command2_Click()
Dim score As String score = "!!Blablabla!!" Open "C:\test\score.txt" For Append As #1 Print #1, score Close #1
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
