INPUT I PRINT (VB6)

[ Ivan007 @ 16.09.2003. 20:59 ] @

Nikako nemogu učitati podatke iz txt fajla.

Za spremanje koristim:

Private Sub spremi_Click()
Dim FNum As Integer
FNum = FreeFile
Open "C:\text.txt" For Append As FNum
Print #FNum, Text1
Close
End Sub

To RADI_______________________

Ovo neradi:

Private Sub ucitaj_Click()

Dim FNum As Integer
FNum = FreeFile
Open "C:\text.txt" For Append As FNum
Input #FNum, Text2
Close
End Sub
____________

Može help

[ degojs @ 16.09.2003. 21:03 ] @

Pa otvorio si fajl za Append što znači dodavanje na kraju fajla, nikako čitanje.

Open "C:\Text.txt" For Input As #Fnum
Input #Fnum, ....

[ Ivan007 @ 17.09.2003. 12:23 ] @

Spremim tekst.Izađem iz programa te ponovno pokrenem te stisnem Učitaj.
nakon toga mi iskoči

Compile error:

Variable required-can't assign to this expression

[ mladenovicz @ 17.09.2003. 12:51 ] @

Nemoj da koristis kontrole sa Input nego promenljive

Code:

Private Sub ucitaj_Click()
Dim FNum As Integer
Dim str As String

    FNum = FreeFile
    Open "C:\text.txt" For Input As FNum
    Input #FNum, str
    Text2.Text = str
    Close

End Sub