romfast/roagest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

127
Programe/exportare.prg Normal file
View File

@@ -0,0 +1,127 @@
LPARAMETERS tabel, initial, final
LOCAL nrc, i, c
STORE 0 TO nrc, i
STORE '' TO c
A='C:\MY DOCUMENTS'
B='C:\DOCUMENTS AND SETTINGS'
DO CASE
CASE DIRECTORY('&A')
SET DEFAULT TO '&A'
CASE DIRECTORY('&B')
SET DEFAULT TO '&B'
OTHERWISE
MD &A
SET DEFAULT TO '&A'
ENDCASE
exista_excel=.F.
initial = ','+initial+',' &&Pentru a recunoste coloanele'
final = ','+final+',' &&---||---
nrc = OCCURS(',', '&initial')
nrc=nrc-1 && scade vircula din fata
LOCAL ARRAY c_initial(nrc)
LOCAL ARRAY c_final(nrc)
FOR i = 1 TO nrc
n = AT(',', '&initial', i)
n2 =AT(',', '&initial', i+1)
c_Initial[i] = SUBSTR('&initial', n+1, n2-n-1)
*MESSAGEBOX(c_initial[i])
n = AT(',', '&final', i)
n2 =AT(',', '&final', i+1)
c_final[i] = SUBSTR('&final', n+1, n2-n-1)
*MESSAGEBOX(c_final[i])
ENDFOR
FOR i=1 TO nrc
IF i=nrc
c=c+c_initial[i]+' as '+c_final[i]
ELSE
c=c+c_initial[i]+' as '+c_final[i]+','
ENDIF
ENDFOR
calea_fis = PUTFILE('Nume fisier:', 'Foaie_Excel', 'XLS')
IF EMPTY(calea_fis) && Esc pressed
RETURN
ENDIF
SELECT &c FROM &tabel INTO CURSOR cur
SELECT cur
EXPORT TO (calea_fis) TYPE XL5
SET DEFAULT TO &DIRGEN
RETURN
PROCEDURE EXPORTARE2
LPARAMETERS tabel
*, initial, final
LOCAL nrc, i, c
STORE 0 TO nrc, i
STORE '' TO c
A='C:\MY DOCUMENTS'
B='C:\DOCUMENTS AND SETTINGS'
DO CASE
CASE DIRECTORY('&A')
SET DEFAULT TO '&A'
CASE DIRECTORY('&B')
SET DEFAULT TO '&B'
OTHERWISE
MD &A
SET DEFAULT TO '&A'
ENDCASE
*!* exista_excel=.F.
*!* initial = ','+initial+',' &&Pentru a recunoste coloanele'
*!* final = ','+final+',' &&---||---
*!* nrc = OCCURS(',', '&initial')
*!* nrc=nrc-1 && scade vircula din fata
*!* LOCAL ARRAY c_initial(nrc)
*!* LOCAL ARRAY c_final(nrc)
*!*
*!* FOR i = 1 TO nrc
*!* n = AT(',', '&initial', i)
*!* n2 =AT(',', '&initial', i+1)
*!* c_Initial[i] = SUBSTR('&initial', n+1, n2-n-1)
*!* *MESSAGEBOX(c_initial[i])
*!* n = AT(',', '&final', i)
*!* n2 =AT(',', '&final', i+1)
*!* c_final[i] = SUBSTR('&final', n+1, n2-n-1)
*!* *MESSAGEBOX(c_final[i])
*!* ENDFOR
*!*
*!* FOR i=1 TO nrc
*!* IF i=nrc
*!* c=c+c_initial[i]+' as '+c_final[i]
*!* ELSE
*!* c=c+c_initial[i]+' as '+c_final[i]+','
*!* ENDIF
*!* ENDFOR
*!*
calea_fis = PUTFILE('Nume fisier:', 'Foaie_Excel', 'XLS')
IF EMPTY(calea_fis) && Esc pressed
RETURN
ENDIF
*!*
*!* SELECT &c FROM &tabel INTO CURSOR cur
SELECT &tabel
EXPORT TO (calea_fis) TYPE XL5
SET DEFAULT TO &DIRGEN
RETURN