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

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 ' ;