Open/Save - ucitavanje datoteka

3

Open/Save - ucitavanje datoteka

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

@rgrajko

Zasto onda ne bi funkcionisalo ovako (bez posredne varijable):
Private Sub Command2_Click() Open "srki94" For Input As #1 Input #1, Text1.Text Close #1 End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Ovako objektnoj varijabli moras explicitno da dodelis vrednost samo sa znakom jednako:

Text1.text=neka vrednost

ili ako zelis da ocitas vrednost te objektne varijable ne moras da pises:

neka variajbla=text1.text

moze i direktno navodjenje tog svojsta tog objekta:

print #1, text1.text

Znaci ocitavanje tog svojstva je standardno, upisivanje nije i zahteva eksplicitno.



offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

U gornjem postu nije pisalo to sto sada pise...!
Sad si objasnio...Nek neko obrise ovaj post... Very Happy

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Jasno.

Ipak covek mora da poznaje specificnosti jezika Smile

Dopuna: 03 Jun 2008 13:29

LittleHacker ::Haha....To smo ukapirali...
Ali problem je sto
Input #1, Text1.Text VB ovo ne shvata kao varijablu neko kao ko zna sta...

To nije eksplicitno dodeljivanje vrednosti.
U tu varijablu Text1.Text mozes da upises samo u formi Text1.Text=nesto

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12392

E ljudi nisam sinoc napisao jer mi je pukla veza...
Evo kod koji radi ali se pojavila nova greska:
Option Explicit Dim s as string dim ab as string Command1_Click() Open "srki94opt" For Output as #1 Print #1, Text1.Text Print #1, Text2.Text Close #1 End Sub Command2_Click () Open "srki94opt" Fot Input as #1 Input #1, s Input #1, ab Close#1 Text1.text = s Text2.text = ab End sub
Ovaj kod mi radi ali kad ucitam input onda mi Uradi sledece:
Umesto da u text2.text ucita ono sto je zapamtio on Ucita u oba textboxa rec iz prvog text boxa. Probao sam puno stvari ali ne ide. [/quote]

offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Zato sto su ti oba Input #1...Drugi treba da bude Input #2 i tako redom...

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12392

El si siguran u ovo ? Cini mi se da sam probao i da nije htelo. Probacu ponovo

Dopuna: 03 Jun 2008 14:37

Nemoze! Prikaze samo bad file name or number Sad

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

LittleHacker gresi.
Input #1 <-- jedinica oznacava Handle za otvoreni fajl. Ukoliko istovremeno otvoris vise fajlova, onda moras da im dodelis razlicit handle.

@Srki
A jel sve u redu u fajlu koji si kreirao na disku?
Jel svaki podatak upisan u poseban red?

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12392

Namestio sam u pitanju je bila neka greska ali sam resio i sada radi. Hvala svima ovo mi je trebalo jer radim neku igru baziranu na RPG Teksu pa onda treba da sacuva sve to. Hvala svima.

Dopuna: 03 Jun 2008 14:42

Evo i koda
Option Explicit Dim s As String Dim ss As String Private Sub Command1_Click() Open "sss" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Close #1 Close #2 End Sub Private Sub Command2_Click() Open "sss" For Input As #1 Input #1, s Input #1, ss Close #1 Text1.Text = s Text2.Text = ss End Sub
Neznam zasto nije telo ovako da radi na trugom racunaru. Vazno je da radi kod mene. Znaci kad ucitavam onda ucitavam redom kako sam zapisao. A el mogu da kontrolisem extenziju fajla koji se sacuvao?

offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Probaj umesto onog sss da stavis sss.trt, vidi da li ce da prihvati.
Ukoliko nece, onda ces morati da naucis da baratas sa drugim funkcijama za pristup fajlovima.

Ko je trenutno na forumu
 

Ukupno su 1261 korisnika na forumu :: 52 registrovanih, 6 sakrivenih i 1203 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Atomski čoban, bigfoot, bojcistv, darkangel, DeerHunter, Dežurni pod palubom, Dragan1998, DragoslavS, elenemste, Frunze, Georgius, ikan, ivan979, kinez88, kunktator, kybonacci, Litostroton, LUDI, Luka Blažević, mercedesamg, milenko crazy north, milos.cbr, nebkv, Nemanja.M, nemkea71, nenad81, Neretva, oganj123, oldtimer, panzerwaffe, Romibrat, ruger357, sap, sasa87, shone34, Sirius, slonic_tonic, srbijaiznadsvega, stalja, Steeeefan, stegonosa, Tvrtko I, vathra, vladaa012, voja64, wolf1, wolf431, zillbg, zlaya011, 125, 79693