Visual Basic

#1
ben_hur

Posted 19 January 2006 - 19:59

Junior Member

Grup: Members
Posts: 38
Înscris: 12.09.2005

Spuneti-mi si mie cum creez un fisier text cu numele introdus de un user?
de ex:userul introduce-> "Log"
am incercat astfel
Open "c:\" &Log& ".txt" for output as #1
dar nu merge...stie cineva pls?

Edited by ben_hur, 19 January 2006 - 20:00.

Back to top

#2
Marmota

Posted 19 January 2006 - 21:41

Member

Grup: Members
Posts: 381
Înscris: 24.09.2005

Adauga un buton de comanda plus un textbox pe un formular si:

Private Sub Command1_Click()
	Open "c:\fisier.txt" For Append as #1
	Print #1, Text1.Text
	Close #1
	MsgBox "Datele au fost salvate"
End Sub

+
in locul instructiunii Print se poate folosi si instructiunea Write

+
in locul instructiunii Print se poate folosi si instructiunea Write

+
in locul instructiunii Print se poate folosi si instructiunea Write

Back to top

#3
ben_hur

Posted 19 January 2006 - 22:55

Junior Member

Grup: Members
Posts: 38
Înscris: 12.09.2005

Marmota, on Jan 19 2006, 13:41, said:

Adauga un buton de comanda plus un textbox pe un formular si:

Private Sub Command1_Click()
	Open "c:\fisier.txt" For Append as #1
	Print #1, Text1.Text
	Close #1
	MsgBox "Datele au fost salvate"
End Sub

Mersi man dar ce mi-ai dat tu scrie in fisier ceea ce se afla in caseta text...
Eu vrea ca sa se creeze un fisier al carui NUME sa fie ce se afla in caseta text..Ms anticipat

Edited by ben_hur, 19 January 2006 - 22:56.

Back to top

#4
ben_hur

Posted 19 January 2006 - 23:19

Junior Member

Grup: Members
Posts: 38
Înscris: 12.09.2005

ben_hur, on Jan 19 2006, 14:55, said:

Mersi man dar ce mi-ai dat tu scrie in fisier ceea ce se afla in caseta text...
Eu vrea ca sa se creeze un fisier al carui NUME sa fie ce se afla in caseta text..Ms anticipat

Am rezolvat.....

Sub CreateAfile()
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\" & Text1.Text & " .txt", True)

    a.WriteLine ("This is a test.")
    a.Close
End Sub

asta era chestia....ms oricum ...pa

Back to top

#5
Marmota

Posted 19 January 2006 - 23:37

Member

Grup: Members
Posts: 381
Înscris: 24.09.2005

 
Private Sub Command1_Click()
	Open "c:\"+Text1.Text For Append as #1
	Print #1, "Vasile este un geniu"
	Close #1
	MsgBox "Datele au fost salvate"
End Sub

In Text1 poti introduce numele complet # extensia:
ex: fisier.txt

Back to top

Anunturi

Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

Visual Basic

#1 ben_hur Posted 19 January 2006 - 19:59

#2 Marmota Posted 19 January 2006 - 21:41

#3 ben_hur Posted 19 January 2006 - 22:55

#4 ben_hur Posted 19 January 2006 - 23:19

#5 Marmota Posted 19 January 2006 - 23:37

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
ben_hur

Posted 19 January 2006 - 19:59

#2
Marmota

Posted 19 January 2006 - 21:41

#3
ben_hur

Posted 19 January 2006 - 22:55

#4
ben_hur

Posted 19 January 2006 - 23:19

#5
Marmota

Posted 19 January 2006 - 23:37