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

Kako da napravim

[es] :: Visual Basic 6 :: Kako da napravim

[ Pregleda: 1499 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

the_president

Član broj: 174697
Poruke: 20
77.237.109.*



Profil

icon Kako da napravim07.03.2008. u 23:42 - pre 197 meseci
Da vas po drugi put sve lepo pozdravim
Trebalo bi mi nesto ovako

Imam neki text
Vaše ime je "ime koje je upisano"
Vaš broj telefona je "broj koji korisnik unese"
Vaš operator je "operator koji je upisan"

I sad naprimer ovako
Kada korisnik sve to lepo ispuni da klikne na dugme "generate" i da mu se to sve spremi u jedan txt file naravno sa podacima koje je uneo

hvala
 
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: Kako da napravim07.03.2008. u 23:54 - pre 197 meseci
Code:

Private Sub Command1_Click
  
   Open "C:\data.txt" For Output As #1
   
      Write #1, Text1.Text, Text2.Text, Text3.Text

   Close #1

End SUb

 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.113.*



+7 Profil

icon Re: Kako da napravim08.03.2008. u 00:35 - pre 197 meseci
Mozes i ovako. Stavi 3 TextBox kontrole (Text1,Text2,Text3) i dugme Command1 na formu i u kod editor prekopiraj ovo.
Code:

Private Sub Command1_Click()
Dim fso, fs
Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.CreateTextFile("C:\text.txt")
fs.Write Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text ' vbCrLf ovo je znak za novi red a & spaja stringove
fs.Close
End Sub

 
Odgovor na temu

the_president

Član broj: 174697
Poruke: 20
77.237.99.*



Profil

icon Re: Kako da napravim08.03.2008. u 10:05 - pre 197 meseci
Pa nisam se nadao da cete mi uspet objasniti
Elitesecurity ide u favorite
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*



+7 Profil

icon Re: Kako da napravim08.03.2008. u 18:52 - pre 197 meseci
Nije tacno ovo za microsoft scripting runtime. Oba koda rade kad se otvori novi VB6 projekat i sa default referencama ...
Pozdrav

[Ovu poruku je menjao Eurora3D Team dana 09.03.2008. u 10:52 GMT+1]
 
Odgovor na temu

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

Član broj: 91692
Poruke: 1226
*.eunet.yu.

Sajt: www.vasictech.net


+1 Profil

icon Re: Kako da napravim09.03.2008. u 09:26 - pre 197 meseci
e vidish to nisam znao ;)
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851



+4784 Profil

icon Re: Kako da napravim09.03.2008. u 09:41 - pre 197 meseci
Late binding. Kljucni deo je Set fso = CreateObject("Scripting.FileSystemObject"). Tako se poveze tek kada dodje na tu liniju a ne odmah (otuda late, jelde).
 
Odgovor na temu

Eurora3D Team
Nebojsa - Programer & Vodja tima
Beograd

Član broj: 120376
Poruke: 900
91.148.114.*



+7 Profil

icon Re: Kako da napravim09.03.2008. u 10:03 - pre 197 meseci
Da ....
Ja radim sa fso od kad sam jednom imao neki problem sa upisom fajlova sa Write ... Ne secam se vise sta je bilo ... uglavnom ovakav upis sa fso je sigurniji po meni. Malo je tesko da stalno kucas CreateObject("Scripting.FileSystemObject") tako da je najbolje da se napravi VB mobul (file) sa funkcijama koje se cesto koriste (npr za fajlove i sl) i da se svaki put kad treba taj modul prekopira u project folder i ukljuci u VB projekat.
Pozdrav
Inace upis sa fso radi i iz VB scripta ...
 
Odgovor na temu

[es] :: Visual Basic 6 :: Kako da napravim

[ Pregleda: 1499 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

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