Erreur dans le script du deuxième exemple de ObjName()

Tout ce qui concerne la traduction des différentes documentations en rapport avec AutoIt3.
Règles du forum
Traduction Française du fichier d'aide AutoIt ---> ici (en cours de traduction)
Documentation en ligne AutoIt v3 en Français --> ici (en cours de traduction)
Documentation en ligne AutoIt v3 en Anglais ---> ici
Répondre
Avatar du membre
TomAijerrie
Niveau 5
Niveau 5
Messages : 191
Enregistré le : lun. 02 juin 2014 08:55
Localisation : Lyon
Status : Hors ligne

Erreur dans le script du deuxième exemple de ObjName()

#1

Message par TomAijerrie » jeu. 28 sept. 2017 13:29

https://www.autoitscript.fr/autoit3/doc ... bjName.htm

Il y a des soucis avec les guillemets et les apostrophes.

Code : Tout sélectionner

Func ObjName_FlagsValue(ByRef $oObj)
    Local $sInfo = ''

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,1) {Le nom de l'Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_NAME) & @CRLF

    ; Les objets ne supportent pas tous les flags 2 to 7. Testez toujours  @error dans ces cas.
    $sInfo &= '+>' & @TAB & 'ObjName($oObj,2) {Chaîne descriptive de l'Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_STRING)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,3) {Le ProgID de l'Object} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_PROGID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,4) {Le fichier qui est associé à l'object dans le Registre} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_FILE)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,5) {Nom du Module dans leque l'object s'exécute (WIN XP And above). Marshaller for non-inproc objects.} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_MODULE)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,6) {CLSID de la coclass de l'onjet} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_CLSID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    $sInfo &= '+>' & @TAB & 'ObjName($oObj,7) {IID de l'interface de l'objet} =' & @CRLF & @TAB & ObjName($oObj, $OBJ_IID)
    If @error Then $sInfo &= '@error = ' & @error
    $sInfo &= @CRLF & @CRLF

    MsgBox($MB_SYSTEMMODAL, "ObjName:", $sInfo)
EndFunc   ;==>ObjName_FlagsValue
Là ça ne se voit pas, car pour le module sur le site les accolades {} sont prioritaires, ce qui n'est pas le cas pour AutoIt.

Avatar du membre
mdanielm
Membre émérite
Membre émérite
Messages : 165
Enregistré le : mer. 11 déc. 2013 19:48
Status : Hors ligne

Re: Erreur dans le script du deuxième exemple de ObjName()

#2

Message par mdanielm » jeu. 28 sept. 2017 18:02

Merci de le signaler, je corrige tout de suite.

Répondre

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité