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 in fisi...
 Scriere in fisier .txt
 
 7/20/2005 9:08:06 AM
User is offlineAdrian Vari
138 posts
5th




Scriere in fisier .txt
 (Romania)
Salutare,

Am si eu o mica problema. Vreau sa scriu din VFP intr-un fisier .txt folosind urmatorul set de instructiuni:

set printer on
set printer to fisier.txt

? " inceput text "

......................

? " final text "

set printer to
set printer off

Totul merge bine in afara faptului ca prima sau a doua instructiune tipareste efectiv o pagina goala la imprimanta.

Aveti idee cum pot scapa de chestia asta? (in FPD26 nu facea asa ceva)

Adrian Vari
Adrian Vari
 7/20/2005 9:18:54 AM
User is offlineanonymous
0 posts


Re: Scriere in fisier .txt
 (Romania)

Salut.  Eu ti-as sugera sa renunti la set printer pentru acest lucru si sa concatenezi textul intr-o variabila dupa care poti sa-l pui in fisierul text cu strtofile:

#DEFINE CRLF CHR(10) + CHR(13)

local cText

cText = 'Rand 1' + CRLF

cText = cText + 'Rand 2' + CRLF

cText = cText + 'Rand 3' + CRLF

.................

cText = cText + 'Rand X'

=STRTOFILE( cText, 'fisier.txt')
 7/20/2005 9:27:59 AM
User is offlineDorin Vasilescu
1366 posts
1st




Re: Scriere in fisier .txt
 (Romania)
Poti folosi SET ALTERNATE sa scrii in fisier text.
 7/20/2005 9:44:46 AM
User is offlineDorin Vasilescu
1366 posts
1st




Re: Scriere in fisier .txt
 (Romania)
Sau SET TEXTMERGE si  \,  \\ in loc de ?,??
Este convenabil şi pentru ca poţi folosi <<{expresie}>>


 7/20/2005 12:00:13 PM
User is offlineAdrian Vari
138 posts
5th




Re: Scriere in fisier .txt
 (Romania)
Multumesc tuturor petru raspunsuri
Adrian Vari
 7/30/2005 12:40:10 PM
User is offlinecriscom
43 posts


Re: Scriere in fisier .txt
 (Romania)
Incearca sa înveti sa utilizezi functiile de editare low level la nivel de fisier:
FCREATE, FOPEN, FSEEK, FREAD, FWRITE si FPUTS
Fii sigur ca nu vei regreta. Astfel îti poti controla orice tip de fisier în editare.

Ex.:

LOCAL nFH
nFH = FCREATE("Fisier.txt")
IF nFH < 0
MESSAGEBOX("Nu se poate crea fisierul Fisier.txt")
RETURN
ENDIF

=FPUTS(nFH, "Astazi suntem în data de " + DTOC(DATE()))
=FPUTS(nFH, REPLICATE("=",40))
=FPUTS(nFH, "Acesta este un exemplu de editare low level")
=FPUTS(nFH, REPLICATE("=",40))
=FCLOSE(nFH)

MODIFY FILE Fisier.txt
Cristian Comanescu InfoData SRL - Bacau Software Development Dept.
 7/30/2005 2:22:33 PM
User is offlinecriscom
43 posts


Re: Scriere in fisier .txt
 (Romania)
Incearca sa înveti sa utilizezi functiile low-level FCREATE, FOPEN, FSEEK, FREAD, FWRITE si FPUTS

Fii sigur ca nu vei regreta. Astfel îti poti controla orice tip de fisier în editare.

Ex.:
LOCAL nFH
nFH = FCREATE("Fisier.txt")
IF nFH < 0
MESSAGEBOX("Nu se poate crea fisierul Fisier.txt")
RETURN
ENDIF

=FPUTS(nFH, "Astazi suntem în data de " + DTOC(DATE()))
=FPUTS(nFH, REPLICATE("=",40))
=FPUTS(nFH, "Acesta este un exemplu")
=FPUTS(nFH, REPLICATE("=",40))

=FCLOSE(nFH)
Cristian Comanescu InfoData SRL - Bacau Software Development Dept.
 7/30/2005 2:29:38 PM
User is offlinecriscom
43 posts


Re: Scriere in fisier .txt
 (Romania)
Scuze pentru repetitie. Cred ca mouse-ul meu "a luat-o pe miriste" sau am fost neatent.
Cristian Comanescu InfoData SRL - Bacau Software Development Dept.
 Page 1 of 1
NextPreviousNo Rating
  Visual FoxPro  Visual FoxPro in general  Scriere in fisi...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement