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

Work for VFPXDeployment

Browse Source
This commit is contained in:
Lutz
2023-08-06 22:02:37 +02:00
parent bfe3207b58
commit 57ad20f9e8
34 changed files with 1313 additions and 669 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Helper/getrevisions.prg Normal file
View File

@@ -0,0 +1,21 @@
*-- Para Fidel
#DEFINE HISTORIAL_I '* <HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>'
#DEFINE HISTORIAL_F '* </HISTORIAL DE CAMBIOS Y NOTAS IMPORTANTES>'
LOCAL lcHistorial, laLinea(1), laHistorial(1,4)
lcHistorial = STREXTRACT( FILETOSTR('FOXBIN2PRG.PRG'), HISTORIAL_I, HISTORIAL_F )
SET MEMOWIDTH TO 220 && Solo para prueba. Quitar en la funci<63>n
CLEAR && Solo para prueba. Quitar en la funci<63>n
*-- Formato a leer:
*-- [* 04/11/2013 FDBOZZO v1.0 Creaci<63>n inicial de las clases y soporte de los archivos VCX/SCX/PJX]
FOR I = 1 TO ALINES(laLinea, lcHistorial, 1+4+8)
DIMENSION laHistorial(I,4)
laHistorial(I,1) = GETWORDNUM( laLinea(I), 2 )
laHistorial(I,2) = GETWORDNUM( laLinea(I), 3 )
laHistorial(I,3) = GETWORDNUM( laLinea(I), 4 )
laHistorial(I,4) = SUBSTR( laLinea(I), AT(laHistorial(I,3), laLinea(I)) + LEN(laHistorial(I,3)) + 1 )
*-- Este '?' es solo de prueba
? '['+laHistorial(I,1)+']', '['+laHistorial(I,2)+']', '['+laHistorial(I,3)+']', '['+laHistorial(I,4)+']'
ENDFOR
*-- En este punto ten<65>s el array laHistorial con 1 columna para cada dato.