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

FoxBin2Prg v1.19.47 Preview-3

Browse Source 
- Agregado soporte de memos multi-linea, para evitar comprimirlos en una sola y poder comparar mejor
This commit is contained in:
fdbozzo
2016-06-06 01:53:04 +02:00
parent 0259e0bbb7
commit b9309770cd
2 changed files with 36 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

63
foxbin2prg.prg
View File

@@ -23928,7 +23928,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
.set_Line( @tcLine, @taCodeLines, I )
DO CASE
CASE EMPTY( tcLine )
CASE EMPTY( tcLine ) OR LEFT(tcLine, 1) == '*'
LOOP
CASE C_RECORD_F $ tcLine && Fin
@@ -23938,26 +23938,26 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
*-- Estructura a reconocer:
* <fieldName>VALOR</fieldName>
lcFieldName = STREXTRACT( tcLine, '<', '>', 1, 0 )
lcValue = STREXTRACT( tcLine, '<' + lcFieldName + '>', '</' + lcFieldName + '>', 1, 0 )
lcValue = STREXTRACT( tcLine, '<' + lcFieldName + '>', '</' + lcFieldName + '>', 1, 0+2 )
loField = toFields.Item(lcFieldName)
lcFieldType = loField._Type
llNoCPTran = CAST( loField._NoCPTran as Logical)
DO CASE
CASE lcFieldType == 'L'
CASE lcFieldType == 'L' && Logical (Boolean)
luValue = CAST(lcValue as Logical)
CASE lcFieldType == 'G'
CASE lcFieldType == 'G' && General (NOT SUPPORTED)
luValue = ''
CASE lcFieldType == 'W'
CASE lcFieldType == 'W' && Blob (Memo binario)
luValue = STRCONV(lcValue,14)
CASE lcFieldType == 'Q'
CASE lcFieldType == 'Q' && Varbinary
luValue = STRCONV(lcValue,14)
CASE lcFieldType == 'V'
CASE lcFieldType == 'V' && Varchar
IF llNoCPTran
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(lcValue,14)
@@ -23965,36 +23965,46 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
luValue = .Decode(lcValue)
ENDIF
CASE lcFieldType == 'M'
CASE lcFieldType == 'M' && Memo
IF llNoCPTran
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(lcValue,14)
ELSE
luValue = .Decode(RTRIM(lcValue), .F.)
* Si el memo es multi-l<>nea, leer hasta encontrar el final ']]>' del CDATA.
DO WHILE .T.
IF ']]>' $ tcLine THEN
luValue = .Decode(lcValue, .T.)
EXIT
ELSE
I = I + 1
.set_Line( @tcLine, @taCodeLines, I )
lcValue = lcValue + CR_LF + tcLine
ENDIF
ENDDO
ENDIF
CASE lcFieldType == 'D'
CASE lcFieldType == 'D' && Date
luValue = CAST(lcValue as Date)
CASE lcFieldType == 'T'
CASE lcFieldType == 'T' && Datetime
luValue = CAST(lcValue as DateTime)
CASE lcFieldType == 'Y'
CASE lcFieldType == 'Y' && Currency
luValue = CAST(lcValue as Currency)
CASE lcFieldType == 'I'
CASE lcFieldType == 'I' && Integer
luValue = CAST(lcValue as Integer)
CASE lcFieldType == 'B'
CASE lcFieldType == 'B' && Double
luValue = CAST(lcValue as Double)
CASE lcFieldType == 'F'
CASE lcFieldType == 'F' && Float
luValue = CAST(lcValue as Float)
CASE lcFieldType == 'N'
CASE lcFieldType == 'N' && Numeric
luValue = CAST(lcValue as Numeric)
OTHERWISE && Asume 'C'
OTHERWISE && Asume 'C' && Character
IF llNoCPTran
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(lcValue,14)
@@ -24071,13 +24081,13 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
OR lcFieldType $ 'DT' AND luValue == {} ;
OR lcFieldType $ 'YIBFN' AND luValue == 0
CASE lcFieldType == 'W'
CASE lcFieldType == 'W' && Blob (Memo binario)
luValue = STRCONV(luValue,13)
CASE lcFieldType == 'Q'
CASE lcFieldType == 'Q' && Varbinary
luValue = STRCONV(luValue,13)
CASE lcFieldType == 'V'
CASE lcFieldType == 'V' && Varchar
IF llNoCPTran THEN
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(luValue,13)
@@ -24085,7 +24095,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
luValue = .Encode(luValue)
ENDIF
CASE lcFieldType $ 'C'
CASE lcFieldType $ 'C' && Character
IF llNoCPTran THEN
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(luValue,13)
@@ -24093,12 +24103,12 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
luValue = .Encode(RTRIM(luValue))
ENDIF
CASE lcFieldType $ 'M'
CASE lcFieldType $ 'M' && Memo
IF llNoCPTran THEN
*-- If NoCPTran, then must encode in b64binary
luValue = STRCONV(luValue,13)
ELSE
luValue = .Encode(RTRIM(luValue), .F.)
luValue = .Encode(RTRIM(luValue), .T.)
ENDIF
ENDCASE
@@ -24130,7 +24140,8 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
LPARAMETERS tcString, tl_isCDATA
LOCAL lcString
IF tl_isCDATA THEN
lcString = '<![CDATA[' + STRTRAN(tcString, ']]>', ']]]]><![CDATA[>') + ']]>'
*lcString = '<![CDATA[' + STRTRAN(tcString, ']]>', ']]]]><![CDATA[>') + ']]>'
lcString = '<![CDATA[' + STRTRAN( STRTRAN( tcString, '<![CDATA[', '&lt;![CDATA['), ']]>', ']]&gt;') + ']]>'
ELSE
lcString = STRTRAN(tcString, '&', '&amp;')
lcString = STRTRAN(lcString, '>', '&gt;')
@@ -24149,9 +24160,7 @@ DEFINE CLASS CL_DBF_RECORD AS CL_CUS_BASE
LPARAMETERS tcString, tl_isCDATA
LOCAL lcString
IF tl_isCDATA THEN
lcString = STREXTRACT( ;
STRTRAN(tcString, ']]]]><![CDATA[>', ']]>') ;
, '<![CDATA[', ']]>')
lcString = STRTRAN( STRTRAN( STREXTRACT( tcString, '<![CDATA[', ']]>'), '&lt;![CDATA[', '<![CDATA['), ']]&gt;', ']]>')
ELSE
lcString = STRTRAN(tcString, '&#9;', CHR(9))
lcString = STRTRAN(lcString, '&#10;', CHR(10))