Keskustelu: Ohjelmointikysymykset: VB6: Kahden eri sanan tallennus samalle riville

CyantLeap [29.07.2005 11:40:07]

osaisko joku selittää miten vois tallentaa kaksi eri sanaa samalle riville tiedostoon ja lukea ne siitä?

Gaxx [29.07.2005 11:56:22]

option explicit 'virheet löytyy helpommin!

dim kaksisanaa as string, sana1 as string, sana2 as string
kaksisanaa = sana1 + "," + sana2

open "tiedosto.txt" for output as #1
    print #1, kaksisanaa
close #1

kaksisanaa = ""
sana1 = ""
sana2 = ""

open "tiedosto.txt" for input as #1
    'input lukee aina seuraavaan pilkkuun tai rivin vaihtoon asti
    input #1, sana1
    input #1, sana2
close #1

Toimii myös QB:ssä

neau33 [29.07.2005 13:48:44]

Hei CyantLeap!

Kokeile seuraavaa juttua...

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_Click()
ekasana$ = "HEI": tokasana$ = "CyantLeap!": RecLen& = 20
Open "testi.txt" For Random Access Write As 1 Len = RecLen&
Put 1, , ekasana$
Put 1, , tokasana$
'jne...
Close 1
Open "testi.txt" For Random Access Read As 1 Len = RecLen&
Get 1, , eka$
Get 1, , toka$
'jne...
Close 1
Print eka$ & " " & toka$
End Sub

Ja avaa "testi.txt" vielä vaikka muistiolla ja katso miltä näyttää...

CyantLeap [29.07.2005 14:08:08]

Kiitos, Nea ja Gaxx, tuosta oli apua.. :)

setä [02.08.2005 18:56:18]

Käyttämällä Print-käskyn sijasta Write-käskyä, voi sanat kirjoittaa suoraan ilman kikkailuja:

Write #1, sana1, sana2

Muuten kuten Gaxxin esimerkissä.

neau33 [02.08.2005 19:19:04]

Heippa setä!

Kyllä se onnistuu Print-käskylläkin...

Open "Testi.Txt" For Output As 1
ekasana$ = "moi": tokasana$ = "terve"
Print #1, ekasana$; tokasana$: Close

Open "Testi.Txt" For Input  As 1
Print Input$(LOF(1), 1): Close

setä [02.08.2005 21:29:16]

Kyllä toki, mutta Print-käsky tulostaa tiedostoon kuten paperille tai ruudulle. Input-käskyllä luetaan tällöin molemmat (tai useammat) sanat samaan muuttujaan. Write-käsky lisää pilkut sanojen väliin ja ympäröi sanat lainausmerkeillä. Input-käskyllä voidaan tällöin lukea sanat erikseen.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät

Kilpailu