Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

snimanje textbox u txt

[es] :: Visual Basic 6 :: snimanje textbox u txt

[ Pregleda: 2321 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon snimanje textbox u txt03.11.2007. u 14:34 - pre 170 meseci
Ovako, imam 75 Textbox-ova i sve njih treba da zapamtim u jedan txt fajl,da bi kasnije taj fajl ucitao i da se u svakom textbox-u pojavi ono sto je pre toga zapamceno....Znaci ako ima 2 textbox-a u prvom tekst "a" a u drugom "b",da mi kad ucitam opet bude tako,da se ne pomeshaju....Ja sam to radio na jedan nacin,da svakom tekstobox-u dodelim po jednu promenljivu,ali ima ih mnogo.......Da li moze nekako krace da se zapamti svih 75 textbox-ova.........
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12799



+4740 Profil

icon Re: snimanje textbox u txt03.11.2007. u 14:56 - pre 170 meseci
Imas razne nacine..
Mozes svaki textbox u zaseban fajl.
Mozes, ukoliko imas neki string koji si siguran da ti se nece pojaviti ni u jednom od nih, da razdvojis tekstove tim stringom u jednom fajlu.
A mozes da upises prvo duzinu prvog, pa onda tekst iz prvog, pa duzinu drugog pa njegov tekst. Onda kada citas prvo procitas duzinu i znas koliko da citas za prvi pa tako dalje za ostale.

Mozes i... ok, ovo ne smem da kazem, proterace me sa foruma ;p
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: snimanje textbox u txt03.11.2007. u 15:08 - pre 170 meseci
Snimanje
Code:
Private Sub Command1_Click() 
On Error Resume Next 
Open "c:\test.txt" For Output As #1 
Print #1, Text1.Text 
Print #1, Text2.Text 
Close #1 
End Sub


Ucitavanje
Code:
Private Sub Form_Load() 
Dim a, s As String 
On Error Resume Next 
Open "c:\test.txt" For Input As #1 
Input #1, a 
Input #1, s 
Close #1 

Text1.Text = a 
Text2.Text = s 
End Sub


Ja sam to radio ovako,ali mi je mnogo da kada ucitavam,da toliko stringova dodelim,jer mi za svaki textbox treba po jedan string....
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12799



+4740 Profil

icon Re: snimanje textbox u txt03.11.2007. u 20:01 - pre 170 meseci
Sto ne bi umesto:
Input #1, a
Text1.Text = a

stavio
Input #1, Text1.Text

?


PS. ako lupim nesto, ne zamerite, radio sam samo sa fso...
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: snimanje textbox u txt03.11.2007. u 20:13 - pre 170 meseci
eeeeeeeeee vidis to mi nije palo na pamet......zahvaljujem ;)
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: snimanje textbox u txt03.11.2007. u 21:59 - pre 170 meseci
e ne moze tako......mora promenljiva :D
nije bitno,reshio sam to...........javlja mi se dugi problem......npr ako zapamtim datum,nece da mi ucita.......ako je datum 00.00.00 onda kada se ucita ispishe ga kao 0,00 el moze nekako to da se sredi..... :D
 
Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net


+44 Profil

icon Re: snimanje textbox u txt03.11.2007. u 22:08 - pre 170 meseci
pokusaj da umesto Print koristis Write



Citat:
Shadowed: ... Mozes i... ok, ovo ne smem da kazem, proterace me sa foruma ;p

U pravu si, bolje cuti :) da nam ne odes kao rajko :D
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: snimanje textbox u txt03.11.2007. u 22:20 - pre 170 meseci
hvala krcko,radi ;)
 
Odgovor na temu

BinLaden
Ni na nebu ni na zemlji

Član broj: 147476
Poruke: 102
*.teol.net.

Sajt: www.sove-soft.rs.ba


Profil

icon Re: snimanje textbox u txt04.11.2007. u 15:14 - pre 170 meseci
Vec sto puta je na ovom forumu govoreno da kada koristis mnogo istih
objekata napravis NIZ OBJEKATA a evo kako bi to u tom tvom slucaju izgledalo.
Umjesto sto si postavio 75 tekstboxova koji se zovu Text1, Text2,.... Text75
napravi niz kontrola textboxsova na sledeci nacin.
Postavi na formu jedan text box. Sad klikni desnom tipkom misa na taj
textboks i odaberi "Copy". Klikni negdje na formu desnom tipkom i odaberi "Paste".
VB ce izbaciti poruku "dali zelis da napravis niz kontrola" i ti klikni na "Yes".
Sad jos 73 puta klikni na "Paste" ili na tastaturi "Ctrl + V" i naprvices 75 textboksova
koji se svi zovu "Text1" ali im se "Index" razlikuje od 0 do 74.

A evo zbog cega je to korisno u ovom tvom slucaju.
Snimanje
Code:
Private Sub Command1_Click() 
Dim I As Long
On Error Resume Next
Open "c:\test.txt" For Output As #1

For I = 0 To 74
    Write #1, Text1(I).Text
Next I

Close #1
End Sub

Ucitavanje
Code:
Private Sub Form_Load()
Dim s As String, I As Long
On Error Resume Next
Open "c:\test.txt" For Input As #1
For I = 0 To 74
    Input #1, s
    Text1(I).Text = s
Next I

Close #1

End Sub

Sad pogledaj koliko redova koda ima u ovom gore rjesenju a pogledaj koliko si ti napisao
koristeci svoj nacin.
Jos nesto sto sam zapazio: Kada deklarises promjenjive u jednom redu kao sto si ti
Dim a, s As String, samo ti je "s" promjenjiva tipa string a promjenjiva "a" je Variant.
Znaci za svaku promjenjivu moras da definises tip a ne samo na kraju reda:
Dim a As String, s As String.

[Ovu poruku je menjao BinLaden dana 04.11.2007. u 16:24 GMT+1]
Ero S Onoga Sveta
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.dynamic.sbb.co.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: snimanje textbox u txt04.11.2007. u 15:36 - pre 170 meseci
hvala
 
Odgovor na temu

[es] :: Visual Basic 6 :: snimanje textbox u txt

[ Pregleda: 2321 | Odgovora: 9 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.