Discussion :

[BrunoCog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BrunoCog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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