Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii
 Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...
 Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor
 Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...

Renault Android
 

Visual Basic

- - - - -
  • Please log in to reply
4 replies to this topic

#1
ben_hur

ben_hur

    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.


#2
Marmota

Marmota

    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

#3
ben_hur

ben_hur

    Junior Member

  • Grup: Members
  • Posts: 38
  • Înscris: 12.09.2005

View PostMarmota, 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.


#4
ben_hur

ben_hur

    Junior Member

  • Grup: Members
  • Posts: 38
  • Înscris: 12.09.2005

View Postben_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

#5
Marmota

Marmota

    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

Anunturi

Second Opinion 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

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate