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

Changeset: 239 fdbozzo - 14/05/2014 00:44:58:

Browse Source 
Ajuste comillas
This commit is contained in:
fdbozzo
2014-05-14 00:51:05 +02:00
parent a655b38977
commit 17e12d7818
4 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Creative Commons 4: Reconocimiento - CompartirIgual (by-sa):
_ProductName = " FOXBIN2PRG v1.19.22"
_MajorVer = "1"
_MinorVer = "19"
_Revision = " 325"
_Revision = " 326"
_LanguageID = "1034"
_AutoIncrement = "1"
*</DevInfo>

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

4
foxbin2prg.prg
View File

@@ -7888,7 +7888,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
lnLine_Len = LEN( laLine(I) )
DO CASE
CASE UPPER( LEFT(laLine(I), 4) ) == "TEXT"
CASE UPPER( LEFT(laLine(I), 4) ) == 'TEXT'
lcLine = UPPER( CHRTRAN( laLine(I) , '&'+CHR(9)+CHR(0), ' ') ) + ' '
IF lnLine_Len >= 4 AND LEFT(lcLine,5) == 'TEXT '
*-- Es el comando TEXT
@@ -7901,7 +7901,7 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
lnTextNodes = lnTextNodes + 1
taCode(tnMethodCount) = taCode(tnMethodCount) + laLine(I) + CR_LF
CASE UPPER( LEFT(laLine(I), 4) ) == "ENDT"
CASE UPPER( LEFT(laLine(I), 4) ) == 'ENDT'
lcLine = UPPER( CHRTRAN( laLine(I) , '&'+CHR(9)+CHR(0), ' ') ) + ' '
IF lnLine_Len >= 7 AND LEFT(lcLine,8) == 'ENDTEXT ' ;
OR lnLine_Len >= 6 AND LEFT(lcLine,7) == 'ENDTEX ' ;