Keskustelu: Ohjelmointikysymykset: VB6: Tallennus txt.hen

Mitä vikaa?:

Private Sub autosave_Timer()
a = Text1.Text
Open "C:/Passu.txt" For Output As #1
Print #1, a
End Sub

(Hups, tuli 2 topiccii)

/ => \ tiedostonimessä. Auttaisiko? Ja lopussa pitäisi kai olla vielä Close #1
Muista kooditagit.

Mitä valittaa ja mistä valittaa?

Tee mieluummin näin:

Private Sub autosave_Timer()
Dim a as String, x As Integer
a = Text1.Text
x = FreeFile  'vapaa tiedostonumero
Open "C:/Passu.txt" For Output As #x
Print #x, a
Close #x
End Sub

Kulmis: minkä virheilmotuksen tuo edes palauttaa? Close on hyvä käyttää myös ennen jokaista tallennuskertaa, eli Close: Open "filu.txt"... jotta ei tule File already openia.

Puhveli kirjoitti:

Close on hyvä käyttää myös ennen jokaista tallennuskertaa

Paitsi, jos on useampia tiedostoja auki eikä halua sulkea niitä kaikkia. Mutta tuo olisi nyt siis hyvää tietää, että minkä virheilmoituksen se antaa ja miltä riviltä, vai eikö se muuten vain tee mitään, vai mikä on ongelma?

Puhveli kirjoitti:

Kulmis: minkä virheilmotuksen tuo edes palauttaa? Close on hyvä käyttää myös ennen jokaista tallennuskertaa, eli Close: Open "filu.txt"... jotta ei tule File already openia.

Puhveli, huomioitko freefilen?
Se siis palauttaa vapaan tiedoston numeron.

Yksi vikahan tuossa voi olla se, että jos sulla on joku esto, että ei voi suoraan C-aseman juuressa olla mitään filuja vaan kansioita ja niihin sitten tallennat talletuksesi.

Ainakin koulun koneilla on semmoinen esto että ei voi olla esim: C:/tiedosto.txt, vaan piti olla vaikka C:/kansio/tiedosto.txt

Miten musta vaan tuntuu että rivi
Open "C:/Passu.txt" For Output As #1
vois olla vaikka
Open "C:\Passu.txt" For Output As #1
.. ; ) .. Tältä katsomalta en nyt muuta erikoista huomaa, vaikka tuo Close #1 kuitenkin kannattaa yleensä laittaa.

Sehän on tietenkin C:\ ! :P