Faire copier/coller avec le conteneur
Bonjour,
Je souhaite remplir une chaîne de caractères avec les données qui sont dans le presse papier (après un CTRL C dans Word)
Mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| C_BLOB()
C_TEXTE($Mychaine)
_o_C_ENTIER($Lataille)
Si (Événement formulaire=Sur clic)
$Lataille:=(Tester conteneur("com.4d.private.text.utf16") // Est-ce qu'il y a les données du type "artx" dans le Pressepapiers?
Si ($Lataille>0)
FIXER TAILLE BLOB($Leconteneur;$Lataille)
LIRE DONNÉES CONTENEUR("com.4d.private.text.utf16";$Leconteneur) // Extraire les données du Presse-papiers
Si (OK=1)
$Mychaine:=BLOB vers texte($Leconteneur;UTF8 texte sans longueur) // Remplir le tableau avec les données venant du contener
[Randonnées]Commentaires:=$Mychaine
Fin de si
Fin de si
Fin de si |
Ça ne marche pas, si quelqu'un a une idée
Merci,
Bruno
Version simplifiée de mon code qui ne marche toujours pas
Code:
1 2 3 4 5
| C_BLOB($Leconteneur)
C_TEXTE($Mychaine)
LIRE DONNÉES CONTENEUR("com.4d.private.text.utf16";$Leconteneur) // Extraire les données du Presse-papiers
$Mychaine:=BLOB vers texte($Leconteneur;UTF8 texte sans longueur) // Remplir la chaine avec les données venant du contener |