CLIPBOARD TO FILE

CLIPBOARD TO FILE Fichier$,[Err]

Cette instruction copie le presse papier dans le fichier retourné par Fichier$. Si l'on désire utiliser le presse papier avec des entités de dessin, il est nécessaire de tester le type du fichier avec une instruction STAT TELL.

Exemple

! SAMPLE_CLIPBOARD.mac
! --------------------
DIM Ligne$[2048]
CLIPBOARD TO FILE File$,Err
IF Err=0 THEN
CALL Read_clipboard(File$)
END IF
END

SUB Read_clipboard(File$)
OPEN BINARY @File TO File$;Err
ON END @File GOTO Fin
I=1
Line$=""
LOOP
ENTER BYTE @File;C
IF C=13 THEN
PRINT Line$
Line$=""
ELSE
IF C<>10 THEN
Line$=Line$&CHR$(C)
END IF
END IF
END LOOP
Fin: IF Line$<>"" THEN PRINT Line$
CLOSE @File
END IF
SUBEND

END MACRO