MyCity » Visual Studio -> Visual Basic » Open/Save - ucitavanje datoteka

Open/Save - ucitavanje datoteka

Napisano na dan: 2.6.2008
2

Open/Save - ucitavanje datoteka
Pagination Prethodna strana
Sledeća strana Pagination

Idi na vrh

Poslao: 03 Jun 2008 02:11
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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
[Link mogu videti samo ulogovani korisnici]



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 03 Jun 2008 12:10
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

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 Sad 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...



Poslao: 03 Jun 2008 12:41
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

@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.

Poslao: 03 Jun 2008 12:56
Idi na vrh
offline
  • Pridružio: 18 Jul 2003
  • Poruke: 4206
  • Gde živiš: U zlatnom kavezu

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

Poslao: 03 Jun 2008 12:59
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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?

Poslao: 03 Jun 2008 13:04
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

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

Poslao: 03 Jun 2008 13:07
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

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.

Poslao: 03 Jun 2008 13:12
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

@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.

Poslao: 03 Jun 2008 13:16
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Text1.text jeste objektna varijabla.

Poslao: 03 Jun 2008 13:19
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

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...

MyCity » Visual Studio -> Visual Basic » Open/Save - ucitavanje datoteka

Ko je trenutno na forumu
 

Ukupno su 3156 korisnika na forumu :: 64 registrovanih, 3 sakrivenih i 3089 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: aleksamaki, aleph_one, ast13, Barista, Belac91, BlackTower, Bob.Rock, Bobrock1, bojan84, Bombona, Burovnyak, carinko, Cicumile, cinoeye, Coficab, Colt D, cvrle312, dok80, DonRumataEstorski, Dovla 1980, dragisa dragisa, Duce, Džekson, ElGenius, Georgius, Ivoo, Keplero, Kototamopeva, lukac, Macalone, Magistar78, MajorPaton, Man1ac021, MGBRBG, Mickey12345, Mihajlo, Milan Miscevic, Milun24, Mixajlo, nazgul75, Neutral-M, novator, pera bager, Prometeus, Promising0, RajkoB, Roksi, rovac, sekretar, shone34, StalniPromatrač, Stevan Visoki, Titan, Toper, Tragač, ulogovan, Veless, volimpivuvolimrakiju, vrgudinac, vukan0799, Zavulon, ZlatniRez, zlaya011, zombicar153