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

23
Helper/clean_copied_memo.prg Normal file
View File

@@ -0,0 +1,23 @@
LOCAL I, lcStrIn, lcStrOut, laStr(1), lcLeftDelim, lcRightDelim, lcStr, lnLines, lnPosDlr
ON KEY LABEL CTRL+R DO clean_copied_memo.prg
lcStrOut = ''
lcStrIn = _CLIPTEXT
lnLines = ALINES(laStr, lcStrIn)
lnPosDlr = AT('.',laStr(1))
*--
lcLeftDelim = IIF(lnPosDlr > 0 AND lnPosDlr < AT('=', laStr(1)), LEFT(laStr(1), lnPosDlr), '')
lcRightDelim = ' ='
*--
MESSAGEBOX( "LeftDelim = " + lcLeftDelim)
FOR I = 1 TO lnLines
lcStr = STREXTRACT( laStr(I), lcLeftDelim, lcRightDelim )
*IF EMPTY(lcStr)
* lcStr = STREXTRACT( laStr(I), '', lcRightDelim )
*ENDIF
laStr(I) = lcStr
lcStrOut = lcStrOut + CHR(13) + laStr(I)
ENDFOR
_CLIPTEXT = SUBSTR( lcStrOut, 2 )

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.

12
Helper/preparar_SpecialProps_desde_Lista.prg Normal file
View File

@@ -0,0 +1,12 @@
LOCAL I, lcStrIn, lcStrOut, laStr(1), lcLeftDelim, lcRightDelim, lcStr, lnLines, lnPosDlr
ON KEY LABEL CTRL+R DO preparar_specialprops_desde_lista.prg
lcStrOut = ''
lcStrIn = _CLIPTEXT
lnLines = ALINES(laStr, lcStrIn)
lnPosDlr = AT('.',laStr(1))
FOR I = 1 TO lnLines
lcStrOut = lcStrOut + CHR(13) + ".SortSpecialProps_Form_Add( '" + laStr(I) + "', @I )"
ENDFOR
_CLIPTEXT = SUBSTR( lcStrOut, 2 )

5
Helper/readme.md Normal file
View File

@@ -0,0 +1,5 @@
# FoxBin2Prg/Helper
Programs used to assist with the program, inherited from Fernando
Last changed: _2023/08/06_ ![Picture](../docs/pictures/vfpxpoweredby_alternative.gif)