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
Documentation en ligne AutoIt v3 en Français --> ici
Documentation en ligne AutoIt v3 en Anglais ---> ici
Répondre
Avatar du membre
TomAijerrie
Niveau 5
Niveau 5
Messages : 192
Enregistré le : lun. 02 juin 2014 09:55
Localisation : Lyon
Status : Hors ligne

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

#1

Message par TomAijerrie »

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.
mdanielm
Membre émérite
Membre émérite
Messages : 254
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 »

Merci de le signaler, je corrige tout de suite.
Répondre