osaisko joku selittää miten vois tallentaa kaksi eri sanaa samalle riville tiedostoon ja lukea ne siitä?
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 #1Toimii myös QB:ssä
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ää...
Kiitos, Nea ja Gaxx, tuosta oli apua.. :)
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ä.
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
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.
Aihe on jo aika vanha, joten et voi enää vastata siihen.