Re: [fr-users] Problème sur la fonction Print et FileExists

Bonjour à toutes et à tous,

Je ne suis pas un PRO des macros et d'autres auront certainement de 
meilleures explications que moi.
Concernant la ligne 3 : si, le résultat est correct, mais une partie du 
texte est masquée. Si l'on sélectionne ce qui apparaît dans la "petite 
boite" et que l'on "tire" vers le bas ont voit bien 
"/element.img.photoreal.192x192/" & "6533639.jpg". Cela est dû, je 
pense, au fait que l'affichage ne se redimensionne pas.
Si on remplace la ligne 3 par celle-ci :
Print ("https://www.lego.com/cdn/product-assets"; & chr(13) & 
"/element.img.photoreal.192x192/6533639.jpg")         ' nota : Chr(13) 
produit un Retour Chariot (CR en Anglais)
on obtient alors deux fenêtres successives "avertissement" . Cela est 
bien documenté dans l'aide.
Personnellement je n'utilise jamais Print et je lui préfère MsgBox. On 
peut aussi l'utiliser très simplement, comme Print, avec juste le texte 
à afficher.
Quelques petites lignes à tester pour se rendre compte :
    MsgBox("https://www.lego.com/cdn/product-assets"; & 
"/element.img.photoreal.192x192/" & "6533639.jpg")
    Comme pour le Print précédent, on ne voit qu'une partie de la 
chaine de caractères, mais tout y est bien. En sélectionnant et en 
tirant vers le bas, on voit la seconde partie de la chaine.
    MsgBox("https://www.lego.com/cdn/product-assets"; & chr(13) & 
"/element.img.photoreal.192x192/" & "6533639.jpg")
Là par contre c'est bien mieux on voit toute la chaine de caractère sur 
deux lignes.
    Nota : La longueur maximum d'une ligne de caractère est de 73 pour 
ne pas être coupée et la fin renvoyée à la ligne suivante.
                Pour le nombre maximum de lignes je ne sais pas, je 
n'ai jamais dépassé 10.
ATTENTION : Ces remarques ne sont valables que sous Windows10.
Tests réalisés sur :
Version: 24.8.6.2 (X86_64) / LibreOffice Community
Build ID: 6d98ba145e9a8a39fc57bcc76981d1fb1316c60c
CPU threads: 4; OS: Windows 10 X86_64 (10.0 build 19045); UI render: 
Skia/Raster; VCL: win
Locale: fr-FR (fr_FR); UI: fr-FR
Calc: CL threaded

J'ai aussi testé sur Debian 12 avec :
Version: 25.2.0.3 (X86_64) / LibreOffice Community
Build ID: e1cf4a87eb02d755bce1a01209907ea5ddc8f069
CPU threads: 4; OS: Linux 6.1; UI render: default; VCL: gtk3
Locale: fr-FR (fr_FR.UTF-8); UI: fr-FR
Calc: threaded
Les résultats ne sont pas les mêmes concernant l'affichage, mais je n'ai 
pas développé. A tester en fonction des diverses distributions et des 
environnements graphiques utilisés.

Concernant la ligne 4 : Cela donne FALSE avec la version 24.8.6.2 (X86_64).
Là je sèche lamentablement.
Cordialement

Patrick

--------------------------------------------------------
Lorsque tu arrives en haut de la montagne, continue de grimper. ;)

Le 16/05/2025 à 21:43, linux a écrit :
> Bonsoir à toutes et tous,
>
> Une question pour les pro des macros.
>
> Ci-dessous une macro qui à un comportement bizarre
>
>
> REM  *****  BASIC  *****
>
> Sub Main
>      Print( 
> FileExists("https://www.libreoffice.org/assets/Uploads/download-block-logo-large.png";)) 
> '1
>      Print ("https://www.leg.com/cdn/product-assets"; & 
> "/element.img.photoreal.192x192/" & 
> "6533639.jpg")                       '2
>      Print ("https://www.lego.com/cdn/product-assets"; & 
> "/element.img.photoreal.192x192/" & 
> "6533639.jpg")                      '3
>      Print( FileExists("https://www.lego.com/cdn/product-assets"; & 
> "/element.img.photoreal.192x192/" & "6533639.jpg"))          '4
> End Sub
>
> la ligne 3 ne se comporte pas comme prévu car elle affiche 
> https://www.lego.com/cdn/product-assets/ quelle que soit la version de 
> LibreOffice 7-1-8-1 , 7-6-6-3 , 24-8-6-2 et 24-8-7-2.
>
> La ligne 4 donne True pour les versions 7-1-8-1 et 7-6-6-3 mais False 
> pour 24-8-6-2 et 24-8-7-2.
>
> Merci par avance de vos retours
>
> Jean-Luc

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy