Keskustelu: Ohjelmointikysymykset: VB6: Labelin Captionin tallennus

eli miten saan silleen että tallentaa 6 labelin.captionin eri tiedostoihin ja sit ku sen ens kerralla käynnistää siis sen ohjelman niin lataa niistä tiedostoista label.captionit

Tallennus:

Open "tiedot.txt" For Output As #1
Print #1, Label1.Caption
Print #1, Label2.Caption
Print #1, Label3.Caption
Print #1, Label4.Caption
Print #1, Label5.Caption
Print #1, Label6.Caption
Close #1

Lataus:

Dim teksti As String
Open "tiedot.txt" For Input As #1
Input #1, teksti
Label1.Caption = teksti
Input #1, teksti
Label2.Caption = teksti
Input #1, teksti
Label3.Caption = teksti
Input #1, teksti
Label4.Caption = teksti
Input #1, teksti
Label5.Caption = teksti
Input #1, teksti
Label6.Caption = teksti
Close #1

kiitos sain toimimaan.olisiko vielä mahdollista että tallentaa päivän ja jos päivä on sama kun päivä jolloin tallennettiin tiedot niin silloin ladataan tiedot muuten ei

Päivämäärän saa funktiolla Date ja Exit Sub poistuu aliohjelmasta. Kirjoita Open-komentojen jälkeen:

' tallennuksessa:
Print #1, Date

' latauksessa:
Input #1, teksti
If teksti = Date Then Exit Sub

nyt tulee error file already open

Muutapa ehto tähän muotoon:

If teksti <> Date Then
    Close #1
    Exit Sub
End If

Tiedoston sulkeminen unohtui alkuperäisessä esimerkissäni.