Kako da napravim

[ the_president @ 07.03.2008. 23:42 ] @

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

[ Aleksandar Ružičić @ 07.03.2008. 23:54 ] @

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

[ Eurora3D Team @ 08.03.2008. 00:35 ] @

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

[ the_president @ 08.03.2008. 10:05 ] @

Pa nisam se nadao da cete mi uspet objasniti
Elitesecurity ide u favorite

[ Eurora3D Team @ 08.03.2008. 18:52 ] @

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]}

[ Aleksandar Vasic @ 09.03.2008. 09:26 ] @

e vidish to nisam znao ;)

[ Shadowed @ 09.03.2008. 09:41 ] @

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

[ Eurora3D Team @ 09.03.2008. 10:03 ] @

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