Keskustelu: Ohjelmointikysymykset: VB6: Tiedostoon tallennetun muuttujan näyttö textboxissa

Sub Form_Activate ()
Open "Resource.usr" For Random As #1
Get #1, , kayttaja
Close #1
Text3.Text = kayttaja
End Sub

pitäisi näyttää käyttäjän nimi textboxissa vaan ei näytä onko tuossa koodissa jotain vikaa.

Minkä tyyppinen kayttaja-muuttuja on? Missä muodossa nimi on tallennettu tiedostoon?

Se on sanana tallennettu. Yritin jopa $ merkeillä muttei auttanut. :(

Tarkoittanet Stringinä?

vai olisiko ollut tallennuksessa vikaa

Sub Command2_Click ()
Text1.Text = kayttaja
Text2.Text = Salasana
Open "Resource.usr" For Random As #1
Put #1, , kayttaja
Put #1, , Salasana
Close #1

Jos käytät Put #-komentoa (siis binäärinen tallennus/luku) niin tuohon merkkijonoon luetaan sen pituuden verran merkkejä. Eli jos kayttaja ja salasana ovat luvun alussa tyhjiä, ei lueta tavuakaan. Määritä molemmat fiksattuina merkkijonoina, esim.
Dim kayttaja as string * 30

Nyt minulla on näin:

Sub Command1_Click ()
Dim kayttaja As String * 30
Dim salasana As String * 30
Text1.Text = kayttaja
Text2.Text = salasana
Open "Resource.usr" For Random As #1
Put #1, , kayttaja
Put #1, , salasana
End Sub

Sub Form_Activate ()
Open "Resource.usr" For Random As #1
Get #1, , kayttaja
Close #1
Text3.Text = kayttaja
End Sub

Text3 näyttää pelkkää tyhjää.

laita general declarationssiin Private MuuttujaNimiJokaHalutaanJakaa
edit: heei, minne se viesti hävisi mihin mä vastasin? höh :D vastasin iha turhaan :P

Kun hajatiedosto avataan ilman len-määritystä, tilaa varataan vissiinkin 255 tavua. Kun luet käyttäjän, tulee sieltä välilyöntejä mukaan niin monta, että koko jono on 255 merkkiä. Mahtaako nuo ylimääräiset välilyönnit vaikuttaa asiaan. Korjaa näyttökäsky näin:

Text3.Text = Trim(kayttaja) 'välyönnit pois

ei auttanut vieläkään. Olen jopa Dim sharettanut string * 30 mutta ei näy kayttajaa ei. Mutta kun laitan kayttaja = "nimi" niin sitten näkyy. Ihan kuin se ei lataisi tietoja ollenkaan. Entinen teksti siitä kyllä häipyy mutta uutta ei tule tilalle.

no käväse kattomassa tiedostoa ja katso onko siellä edes mitään :P

??? siellä ei tosiaan ole mitään. Tallensin sen tällä kertaa writellä. Tiedosto näyttää 1kt mutta siellä ei ole mitään tekstiä. Kummallista.

noh avaa se nyt sitte binary muotoon sillä se nyt ainaski toimii ;)

Tallensin sen äsken teksti muotoon. Ei ihme että tietokone pysty lukemaan sieltä tietoa kun en minäkään pysty. Joku tuossa tallennuksessa nyt mättää mutta mikä.

avaa molemmissa se binääriksi! Open "Resource.usr" For Binary As #1

Missä molemmissa. Ja minkäs teet kun siellä ei ole yhtään merkkiä.

lainaus:

Missä molemmissa.

savetuksessa ja latauksessa...

Ei sinne tullut mitään outputillakaan.

outputilla? siis tee suunnilleen näin:

dim usokki as string*10
dim usokki2 as string*10
usokki="1234567890"
open "resource.usr" for binary as #1
put #1,,usokki
close
open "resource.usr" for binary as #1
get #1,,usokki2
close
msgbox usokki2 'pitäs msgboxaa 1234567890

jos toi ei toimi niin huh huh...

Sain toimimaan :) tuossa
Text1.Text = kayttaja olisi pitänyt olla
kayttaja = Text1.Text