I have problems with XPrint Add to print strings that contain $ CRLF.
I've used this way, there will be a better one?
Thank you:
#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN () AS LONG
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'xprint ejemplo Eliminar $CRLF
'KILL $CRLF FOR Xprint
'aqui se trata de eliminar $CRLF para poder imprimir en xprint que no permite $crlf
' de control text multilinea y richedit control
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
LOCAL x&,li&,filaExtra$(),Lstring AS STRING
Lstring = "Frase uno"+$CRLF+"Frase dos"+$CRLF+"Frase tres"+$CRLF+"Frase cuatro"+$CRLF+"Etc"
MSGBOX Lstring ,64,"Con $CRLF"
REPLACE ANY $CR WITH "," IN Lstring 'eliminar (out) chr$(10) y añadir coma para parse$
REPLACE ANY $LF WITH " " IN Lstring 'eliminar (out) chr$(13)
x& = PARSECOUNT(Lstring) 'contar las comas que hay para extraer por medio de parse$
DIM filaExtra$(x&)
MSGBOX Lstring ,64,"KILL $CRLF and ready for Parse$"
'Captura de cadenas de informacion
FOR li = 1 TO x
IF PARSE$(Lstring,li)<>"" THEN filaExtra(li)= PARSE$(Lstring,li) 'capture lineas
NEXT
'Impresion Printer
IF ERR = 0 AND LEN(XPRINT$) > 0 THEN
XPRINT ATTACH CHOOSE
FOR li = 1 TO x
IF filaExtra(li)<>"" THEN XPRINT filaExtra(li)
NEXT
XPRINT FORMFEED ' Issue a formfeed
XPRINT CLOSE ' Deselect the printer
END IF
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
END FUNCTION
I've used this way, there will be a better one?
Thank you:
#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN () AS LONG
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'xprint ejemplo Eliminar $CRLF
'KILL $CRLF FOR Xprint
'aqui se trata de eliminar $CRLF para poder imprimir en xprint que no permite $crlf
' de control text multilinea y richedit control
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
LOCAL x&,li&,filaExtra$(),Lstring AS STRING
Lstring = "Frase uno"+$CRLF+"Frase dos"+$CRLF+"Frase tres"+$CRLF+"Frase cuatro"+$CRLF+"Etc"
MSGBOX Lstring ,64,"Con $CRLF"
REPLACE ANY $CR WITH "," IN Lstring 'eliminar (out) chr$(10) y añadir coma para parse$
REPLACE ANY $LF WITH " " IN Lstring 'eliminar (out) chr$(13)
x& = PARSECOUNT(Lstring) 'contar las comas que hay para extraer por medio de parse$
DIM filaExtra$(x&)
MSGBOX Lstring ,64,"KILL $CRLF and ready for Parse$"
'Captura de cadenas de informacion
FOR li = 1 TO x
IF PARSE$(Lstring,li)<>"" THEN filaExtra(li)= PARSE$(Lstring,li) 'capture lineas
NEXT
'Impresion Printer
IF ERR = 0 AND LEN(XPRINT$) > 0 THEN
XPRINT ATTACH CHOOSE
FOR li = 1 TO x
IF filaExtra(li)<>"" THEN XPRINT filaExtra(li)
NEXT
XPRINT FORMFEED ' Issue a formfeed
XPRINT CLOSE ' Deselect the printer
END IF
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
END FUNCTION
Comment