Copier/Coller

J'ai demandé à Jack à plusieurs reprises la fonction de pouvoir Copier/Coller un texte quelconque, de façon transparente pour l'utilisateur.
On ne dispose en Panoramic que de la fonction de copier un texte sélectionné par l'utilisateur.
Mon but est essentiellement de se passer des paramètres entre modules exécutables par l'intermédiaire du clipboard (sinon on peut passer par un fichier, mais c'est bien plus lourd). Jusqu'ici je me servais d'un module externe (clip.exe), mais il y a moyen de le faire en Panoramic avec les moyens du bord.
COPIER:
Pour copier, il suffit de mettre le texte dans un objet caché, de le sélectionner par programme, puis Clipboard_Copy:

Code:

DIM txt$, nb
txt$ = "Au clair de la lune": ' à copier dans le clipboard
nb = NUMBER_OBJECTS + 1: MEMO nb: HIDE nb
ITEM_INSERT nb, 1, txt$
SELECT_TEXT nb, LEN(txt$), 1: CLIPBOARD_COPY nb: DELETE nb
END

- Malheureusement il y a une faille dans le Select_Text (merci Klaus) qui ampute le texte du 1er caractère (voir rubrique bugs)
- Heureusement on peut y pallier facilement (en attendant réparation par Jack), il suffit de rajouter un caractère bidon devant txt$:

Code:

DIM txt$, nb
txt$ = "Au clair de la lune": ' à copier dans le clipboard
nb = NUMBER_OBJECTS + 1: MEMO nb: HIDE nb
ITEM_INSERT nb, 1, "x" + txt$
SELECT_TEXT nb, LEN(txt$), 1: CLIPBOARD_COPY nb: DELETE nb
END

COLLER:
C'est encore plus simple:

Code:

DIM txt$, nb
nb = NUMBER_OBJECTS + 1: MEMO nb: HIDE nb
CLIPBOARD_PASTE nb: txt$ = ITEM_READ$(nb, 1)
DELETE nb
PRINT txt$
END

C'est vrai qu'il manque toujours une lettre par rapport à ce qui est demandé :
select_text 1,len(t$),5 --> air de la lune
select_text 1,len(t$),4 --> lair de la lune
select_text 1,len(t$),3 --> clair de la lune
select_text 1,len(t$),2 --> clair de la lune
select_text 1,len(t$),1 --> u clair de la lune
select_text 1,len(t$),0 --> error (69) Zero or Negative Value
On pourrait croire que ça commence à zéro, mais pas du tout.

D'ailleurs avez-vous remarqué qu'on peut voir le texte sélectionné en vidéo inversée, en minimisant d'abord la fenêtre, puis en la faisant réapparaître en entier.

Sinon, chapeau JL35, un beau coup !

Une précision concernant le "Coller" ci-dessus: tel qu'il est, le programme ne récupère dans txt$ qu'une seule ligne d'une trentaine de caractères.
S'il y a plus de données à récupérer du clipboard, il faut:
- dimensionner le MEMO en largeur (WIDTH) en fonction de la taille maximum des lignes,
- effectuer autant d'ITEM_READ(nb, x) qu'il y a de lignes de données à récupérer.

Tout ça est évidemment valable pour le copier, à adapter également en fonction des données à transmettre.

Je suis en train de préparer 2 commandes:
CLIPBOARD_STRING_COPY V$ qui place V$ dans le presse-papier (équivalent à control C)
V$=CLIPBOARD_STRING_PASTE$ qui récupère le contenu du presse-papier dans V$ (équivalent à control V)

Cela va éviter de passer par un MEMO: il sera possible de passer directement une chaine de caractères dans le presse-papier.

Le bug de SELECT_TEXT a été corrigé, et la syntaxe a été rendue compatible avec MID$(A$,P,N) : SELECT_TEXT N,P,C
SELECT_TEXT N,P,C: sélectionne C caractères à partir de la position P dans l'objet système numéro N.

Super ! Raison de plus, avec les fichiers binaires, d'attendre la nouvelle version avec impatience !

Je trouve que Panoramic évolue rapidement. Merci pour ces effots !

Vive la nouvelle version !

Merci pour cette énorme boulot Jack