Kako da napravim

Kako da napravim 08.03.2008. u 00:42 · pre 227 meseci #1

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

Re: Kako da napravim 08.03.2008. u 00:54 · pre 227 meseci #2

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

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Kako da napravim 08.03.2008. u 01:35 · pre 227 meseci #3

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

Potpis

HomePage http://www.eurora3d.com

Re: Kako da napravim 08.03.2008. u 11:05 · pre 227 meseci #4

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

Re: Kako da napravim 08.03.2008. u 19:52 · pre 227 meseci #5

Nije tacno ovo za microsoft scripting runtime. Oba koda rade kad se otvori novi VB6 projekat i sa default referencama ...
Pozdrav

Potpis

HomePage http://www.eurora3d.com

Re: Kako da napravim 09.03.2008. u 10:26 · pre 227 meseci #6

e vidish to nisam znao ;)

Re: Kako da napravim 09.03.2008. u 10:41 · pre 227 meseci #7

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

).

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Kako da napravim 09.03.2008. u 11:03 · pre 227 meseci #8

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

Potpis

HomePage http://www.eurora3d.com

Forum kao aplikacija na telefonu

Srodne teme