Open/Save - ucitavanje datoteka

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

Uloguj se preko Facebooka da bi skinuo fajl:

Moras da napravis niz od text boxova. Moze i drugacije ali ovo ti je lakse za razumevanje.

Option Explicit Private Sub Command1_Click()     Dim ukbrojtekstboxova As Integer     Dim n As Integer     Open App.Path & "\srki94.itm" For Output As #1         ukbrojtekstboxova = 6         For n = 0 To ukbrojtekstboxova - 1             Print #1, Text1(n).Text         Next n     Close #1 End Sub Private Sub form_load()     Dim ocitanoizfajla As String     Dim brojac As Integer     On Error GoTo greska     Open App.Path & "\srki94.itm" For Input As #1         brojac = 0         Do While Not EOF(1)             Line Input #1, ocitanoizfajla             Text1(brojac).Text = ocitanoizfajla             brojac = brojac + 1         Loop     Close #1 greska: End Sub
https://www.mycity.rs/must-login.png

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

Srki94 ::E ljudi evo Srki_82 mi je pomogao puno evo koda:
Private Sub Command1_Click() Open "srki94" For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Command2_Click() Open "srki94" For Input As #1 Input #1, Text1 Close #1 End Sub
Problem je gde pise:
  Input #1, Text1
I onda mi pojavi gresku : "Variable required cant asing to this expression.
Probao sam i sa text1.text ali nce Pomoc?

Text1.text i radice...Text1 je klasa a Text1.text je string, odnosno variabla...Lepo ti je napisao gresku, samo ne znam dal si razumeo...

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

@LittleHacker
Procitaj zadnju recenicu iz citata, pise da je probao i to.

Ne znam za VB, ali u Delphi-ju se posebno deklarise fajl kojem se pristupa, kao tekstualan. Podrazumevana vrednost je binarni fajl. Mora posebno da se naznaci da otvaras tekstualni fajl.

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

Ovaj srkijev (82) kod treba 100% da radi ja sam koristio bas taj i uvek je cuvao txt box u txt fajl

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

Re: Srki 94
Private Sub Command1_Click() Open "srki94" For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Command2_Click() Open "srki94" For Input As #1 Input #1, Text1 Close #1 End Sub

Treba ovako:

Private Sub Command1_Click() Open "srki94" For Output As #1 Print #1, Text1.Text Close #1 End Sub Private Sub Command2_Click() Open "srki94" For Input As #1 Input #1, nekavatijabla Text1.Text=nekavatijabla Close #1 End Sub

Inace gore sam ti dao kod da mozes tekst iz koliko zelis textboxova da snimis u fajl i ucitas. Ti to ocigledno ne citas?

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

Aha, ok...Izvinjavam se...
Evo rgdrajko je dao ojasnjenje...
Meni ovaj VB nije bas logican...

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

Pa kako nije. VB je veoma prost i logican. Ne moze klasa da posluzi kao varijabla. Preko inputa se ucitava iz fajla u neku varijablu.

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

@rgrajko
Text1.Text jeste varijabla, tako da je logicno da mora da prihvati direktno vrednosti iz fajla.
Kontam da si morao preko posredne varijable da ucitas, ali izgleda da je to vise vezano za implementaciju klase File u VB-u, nego za Edit ili Memo.

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

Text1.text jeste objektna varijabla.

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

Ali je ipak varijabla i VB bi to morao da ukapira...Trosenje memorije za novu varijablu u nekim slucajevima mnogo znaci...
Ovo je sitnica, ali puno znaci...