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

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Programe/Vechi/exportare.prg

@@ -0,0 +1,60 @@
+LPARAMETERS tabel, initial, final
+LOCAL  nrc, i, c
+STORE 0 TO nrc, i
+STORE '' TO c
+curentdir=SYS(5)+SYS(2003)
+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 virgula 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
+	SET DEFAULT TO &curentdir
+	RETURN 
+ENDIF
+	
+SELECT &c FROM &tabel INTO CURSOR cur
+SELECT cur
+EXPORT TO (calea_fis) TYPE XL5
+
+*SET DEFAULT TO &DIRGEN
+SET DEFAULT TO &curentdir