Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Removing blank lines from word .doc
Message
From
21/10/2009 15:06:29
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01430433
Message ID:
01430483
Views:
25
>Is there a way to adapt it ?
>
>I am trying to get it from _CLIPTEXT but it does not remove lines
>
>#define CRLF CHR(13)+CHR(10)
>
>STORE _CLIPTEXT TO lcFile
>
>DO WHILE ATC(CRLF+CRLF,lcFile) > 0
> lcFile = STRTRAN(m.lcFile, CRLF+CRLF, CRLF)
>ENDDO
>
>IF LEFT(m.lcFile,2) == CRLF && Remove first blank line
> lcFile = SUBSTR(m.lcFile,3)
>ENDIF
>
>IF RIGHT(m.lcFile,2) == CRLF && Remove last blank line
> lcFile = LEFT(m.lcFile,LEN(m.lcFile)-2)
>ENDIF
>
>STORE lcFile TO _CLIPTEXT

What you store?
How you store it?
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform