Search  
Wednesday, May 23, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Visual FoxPro in general  Scriere repetat...
 Scriere repetata intr-un fisier txt
 
 5/12/2011 12:07:15 PM
User is offlineRomeo
526 posts
1st


Scriere repetata intr-un fisier txt
 (N/A) Modified By Romeo on 5/12/2011 12:08:14 PM)

Am creat un fisier txt   fis1=FCREATE('Log-Jurnal.txt',0) am scris in el lcString1=lcData+" eroare"; FWRITE(fis1,lcString1) si l-am inchis: =FCLOSE(fis1) 

L-am redeschis din nou: fis1=FOPEN('Log-Jurnal.txt', 12); si am inceput operatia de scriere repetata: lcString1=lcData+" corect"; FWRITE(fis1,lcString1) dupa care l-am inchis.

Cand l-am deschis cu Notepad, am constatat faptul ca noua scriere a suprascrus inregistrarea precedenta.

Cum fac sa adaug noile mesaje in continuarea primelor ?

Slava Tatalui si Fiului si Sfantului Duh si acum si pururea si-n vecii vecilor. Amin.
 5/12/2011 12:31:58 PM
User is offlineDaniel Buduru
2332 posts
1st




Re: Scriere repetata intr-un fisier txt
 (N/A)
Nu te-ai pozitionat la coada fisierului. Vezi FSEEK().
Daniel Buduru
 5/12/2011 1:59:28 PM
User is offlineGrigore Dolghin
3590 posts
www.class-software.eu
1st






Re: Scriere repetata intr-un fisier txt
 (N/A)
 Romeo wrote

Am creat un fisier txt   fis1=FCREATE('Log-Jurnal.txt',0) am scris in el lcString1=lcData+" eroare"; FWRITE(fis1,lcString1) si l-am inchis: =FCLOSE(fis1) 

L-am redeschis din nou: fis1=FOPEN('Log-Jurnal.txt', 12); si am inceput operatia de scriere repetata: lcString1=lcData+" corect"; FWRITE(fis1,lcString1) dupa care l-am inchis.

Cand l-am deschis cu Notepad, am constatat faptul ca noua scriere a suprascrus inregistrarea precedenta.

Cum fac sa adaug noile mesaje in continuarea primelor ?

Foloseste StrToFile() si lasa arhaismul ala de FCREATE.

Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 5/12/2011 11:06:53 PM
User is offlineSCHRECK
156 posts
5th


Re: Scriere repetata intr-un fisier txt
 (N/A)
Dupa comanda =FWRITE() trebuie sa deplasezi indicatorul la sfarsitul fisierului
O faci cu comanda =FSEEK(fis1,0,2)
 5/13/2011 12:00:30 AM
User is offlineSCHRECK
156 posts
5th


Re: Scriere repetata intr-un fisier txt
 (N/A)
AM UITAT. Inlocuieste comanda FWRITE() care srie in numar de octeti intr-un fisier cu =FPUTS() care scrie o linie de text
si adauga un return de car si un avans la linie noua
ex:

FIS1=FCREATE('FISIER.TXT')
PCSTRING='STRING1'
FOR I=1 TO 10
=FPUTS(FIS1,PCSTRING)
=FSEEK(FIS1,0,2)
ENDFOR
=FCLOSE(FIS1)
Cred ca la asta te-ai referit
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Visual FoxPro in general  Scriere repetat...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement