Open/Save - ucitavanje datoteka

4

Open/Save - ucitavanje datoteka

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

Aha...Ja sam mislio da je to nesto drugo...Nisam pogledao ceo kod...
 Open "sss" For Input As #1
To je to...Upravu si Bobby...



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

Re Srki94
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

Pa moze i tako za nekoliko redova ali se to retko koristi i ide ovako:

Private Sub Command2_Click() Open "sss" For Input As #1   brojac=1   do while not eof(1)      Input #1, s      if brojac=1 then        Text1.Text = s      end if      if brojac=2 then        Text2.Text = s      end if      brojac=brojac+1   loop Close #1 End Sub

I ubuduce uvek koristi komandu Line Input jer ona cita ceo red pa i ako ima zarez u njemu, dok input cita u redu do prvog zareza.

I ubuduce decko potrudi se malo da proucis neke knjige za vb6. Prouci malo tudje kodove. Pogledaj i na drugim forumima na kojima sam dao na desetine knjiga o vb6 i na stotine primera u vb6.
Onda ce i tebi i svima nama biti mnogo lakse.
O VB6 imas i na http://tutoriali.org/



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

@ Rqdrajko

Kao sto rekoh po stoti put : " Ne planiram da ucim basic"
Znam da ima line input ovo je samo primer.
Ali meni jel lakse onako i onda samo redom ucitavam jednu po jednu.

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Srki94 ::@ Rqdrajko

Kao sto rekoh po stoti put : " Ne planiram da ucim basic"
Znam da ima line input ovo je samo primer.
Ali meni jel lakse onako i onda samo redom ucitavam jednu po jednu.


Decko, ovo je slobodna zemlja u kojoj vlada demokratija. Posto ti ne zelis da ucis basic, to je tvoje demokratsko pravo, onda nemoj ni da postavljas pitanja, jer koja je svrha postavljati pitanja nekome ako ne zelis to i da naucis sto ti neko objasnjava. Znaci nemoj vise da nas maltretiras i da postavljas pitanja, a mi cemo postujuci demokratsko pravo, da ti vise ne odgovaramo ni na jedno tvoje pitanje. U suprotnom neko od nas ispada budala, ili ti ili mi.

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

Ako procitas celu temu ponovo videces ko jeste.
Nisam mislio bukvalno ali ne planiram da ucim dalje jer ucim C++.
Mrzim politiku tako da me ne zanima...
I nemoj mene da "Zlostavljas" Politikom Smile

Dopuna: 04 Jun 2008 21:31

Povlacim moje pravo.
Ti si govorio za tebe koliko ja znam nemozes da govoris u tudje ime.

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

Srki, da nije malo nezahvalno da trosis necije vreme i posle kazes da te to uopste ne zanima?

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

Strasno...Koje si ti nezahvalno deriste...Pet ljudi se ubi ovde na forumu da ti pomogne, i ti tako...Ma brate, uopste vise nista necu da pokusavam da ti pomognem...

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Momci u pravu ste. Nema vise price o tome. On je rekao i mi smo rekli i gotovo sa time.

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

Ma boli me uvo. Hvala svima na pomoci.
@ Litle Hacker
Pa jesam deriste ali nisam vece od tebe.
@ Bobby
Ma nema problema
Ne dizem ruke od nicega jos radim igru.
Nisam rekao da me ne zanima!!! Ovo mi je puno pomoglo.
Ovo jeste slobodna zemlja. I ovaj forum je namenjen da pomaze onima kojima je potrebna pomoc!. To mu je svrha.
@ rqdrajko
A ti ako neces niko te ne moli. Ja nisam nista rekao za ovo i procitaj ponovo onaj deo kad sam rekao da ne planiram da ucim basic. To sam rekao zato sto nisam znao ovo i nikome se nisam rugao !!!!
Niti ista rekao za ovo i hvala na pomoci. Ti si me "napao" sa politikom.

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

Hteo sam da napisem svasta, ali necu da se spustam na ovaj nivo...

Citat:Ne dizem ruke od nicega jos radim igru.

Radi kako mislis da treba, a moju podrsku vise nemas...

Ko je trenutno na forumu
 

Ukupno su 851 korisnika na forumu :: 42 registrovanih, 5 sakrivenih i 804 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: 8u47, A.R.Chafee.Jr., babaroga, Bane san, Bobrock1, bufanje, Dannyboy, Denaya, FileFinder, FOX, Georgius, hologram, ILGromovnik, ivan979, Karla, kovinacc, Kubovac, kybonacci, Leonov, ljuba, ljubacv, Lošmi, maiden6657, Mihajlo, Milometer, Mlav, mocnijogurt, Mravce, nemkea71, nick79, pein, rodoljub, Sirius, slonic_tonic, Srky Boy, Srle993, Steeeefan, theNedjeljko, Trpe Grozni, Vlad000, VP6919, zillbg