Uwe,
Please:
1) run this little sample program
2) select all text in filetocopy.txt files open by notepad
3) copy
4) paste into oGet MEMO GET
5) I find truncated ad 30000 character
Many thanks Again
Marco
#include "fivewin.ch"
#define crlf CHR(13) + CHR(10)
FUNCTION MAIN()
LOCAL oWnd
LOCAL oGet , cGet := ""
LOCAL oCreate
DEFINE WINDOW oWnd
@ 1 , 1 BUTTON oCreate SIZE 60 , 20 ACTION create_txt()
@ 3 , 1 GET oGet VAR cGet SIZE 400 , 400 MEMO OF oWnd
ACTIVATE DIALOG oWnd
RETURN NIL
FUNCTION CREATE_TXT()
LOCAL cString := ""
LOCAL i
FOR i := 1 TO 500
  cString := cString +  "This is the line #" + STR( i ) + " This is the line #" + STR( i ) + "This is the line #" + STR( i ) + crlf
NEXT i
memowrit( "filetocopy.txt" , cString )
? "LEN " , LEN( cString )
shellexecute( 0 , 0 , "filetocopy.txt" , 0 , 0 , 1 )
RETURN NIL
At the end of memo I find this
This is the line # 342 This is the line # 342This is the line # 342
This is the line # 343 This is the line # 343This is the line # 343
This is the line # 344 This is the line # 344This is the line # 344
This is the line # 345 This is the line # 345This is the lin