Open/Save - ucitavanje datoteka

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

@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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jasno.

Ipak covek mora da poznaje specificnosti jezika

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.