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 )