inchidere fisier
Last Updated: Feb 12 2010 01:07, Started by
rzone
, Jan 20 2010 22:01
·
0
#1
Posted 20 January 2010 - 22:01
Open "file.txt" For Append As #1
... si restul e in VB6 E nevoie sa fac manevra open/close la fiecare scriere sau il pot inchide la finalul sesiunii odata cu form-ul? |
#2
Posted 24 January 2010 - 15:53
Il deschizi si il inchizi de fiecare data cand doresti sa scrii in fisier,e singura cale.Ai putea sa salvezi toate operatiunile in variabile si sa le scrii pe toate o singura data sau sa scrii o subrutina care te va ajuta sa scrii doar datele,...variante ar fi destule depinde ce vrei sa faci.
Ca idee eu as folosi in loc de #1 ( ca sa eviti unele erori,eu m-am 'parlit' de cateva ori si nu mai folosesc) exemplu de mai jos. Dim ff as integer ff=FreeFile Open "cale_fisier" for append as ff '=========================================Exemplu==================== Function Gpath() as string Gpath=app.path & "\fisier.txt" End function Function Writedata(byval strdata as string) Dim freefile as integer ff=FreeFile Open Gpath For Append as ff Print #ff, vbCrLF & strdata Close #ff End Sub REM cand il folosesti nu trebuie decat sa apelezi functia reutilizabila de exemplu Writedata cstr(text1.text) Sper sa-ti fie de folos. Respec Edited by Sorin Nedelcu, 24 January 2010 - 15:59. |
#3
Posted 12 February 2010 - 01:07
Daca ai mai multe deschise poti scrie un singur "Close" la sfarsit si le va inchide pe toate eg.
dim FF as integer FF = FreeFile() open "c:\myfile.txt" for append as FF open "c:\myfile.dat" for input as FF open "c:\myfile.exe" for binary as FF Close Edited by horohoro, 12 February 2010 - 01:09. |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users