Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Inserting Line Feed at the End
Message
De
07/02/2019 13:47:02
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 7
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01666039
Message ID:
01666054
Vues:
35
>>>>At the end of Text Line, in the original one there is LF and in the replaced one there is CRLF. I exactly used what was suggested.
>>>>If I copy and Paste from Elsewhere, I get LF at the end, but using the replace command I get CRLF
>>>
>>>
>>>No way. Check attachments.
>>
>>Sir, Please Check The My original File attached. It can be opened in Notepad. (Not Regular Notepad that comes with windows)
>>At Line No 23 the Text is to be replaced. This is not working here.
>
>What is your FULL code?

Here is the code
CPSFILEPATH=Alltrim(cFullpath) && Original file will be picked from Here
NEWPATH=Alltrim(NEWPATH)  && New rewritten file will be Placed Here

Create Cursor BILLCOMPRESS (POS C(254))  && Create Temporary Cursor Billcompress to Check Page Numbers
Select BILLCOMPRESS
Append From (m.CPSFILEPATH) Sdf && Appends in Standard Data Format
*Count Number of Pages in PS File
Locate For Alltrim(POS)='%%Page: 1 1'
IF Found()
Skip
IF ALLTRIM(LEFT(POS,9))="<</Duplex"
Replace POS With '<</Duplex false/PageSize  [595 842] /Tumble false /ManualFeed false /MediaPosition 0>>  setpagedevice'+ CHR(10)
ENDIF
ENDIF

Set Textmerge On
Set Textmerge To (m.NEWPATH) Noshow
Scan
\\<< TRIM(POS) >>
\
Endscan
Set Textmerge To
Set Textmerge Off
Harsh
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform