[R] Conversion de codes couleurs

[Quentin44]

Bonjour, je cherche à convertir un code couleur de type: $001000C0 vers un code couleur accepter par autoit, j'entend par là un code qui commence par "0x".
Personnellement je ne vois pas comment faire malgré les recherches sur le forum et internet.

J'ai trouver un lien vers "GCS Search 1.07" mais je ne peut pas télécharger !Et je ne trouve pas de sujet traitant de la chose.
Si quelqu'un à déjà connus ce problème qu'il me fasse signe


Merci d'avance !

Cordialement.

[mikell]

Les chaines qui commencent par $ sont des variables, d'où il sort ce code ?

[Quentin44]

Alors là je ne sais pas du tout, c'est un travail récupérer, même mon maitre de stage ne sais pas d'où cette notation sort...
Il y as un mélange de code couleurs commencent par # et par $. ( Les couleurs commencent par $ doivent être une notation spécifique pour la solution de l'entreprise car impossible d'en trouvé autre part).

[mikell]

OK
Les codes couleurs qui commencent par $ c'est delphi, ça correspond en principe à 0xC00010 en autoit

[Quentin44]

Ok merci pour l'information ! Et auriez vous un script ( ou connaissance d'un script ) qui montre comment, ou aiguille, faire la "conversion" si je puis dire?
Edit: si j'ai bien compris le $00 correspond au 0x?

[mikell]

Les 2 premiers 00 correspondent à l'alpha (transparence)
Là conversion à faire est $00BBGGRR => 0xRRGGBB

Code : Tout sélectionner

$tcolor  = "$001000C0"

$hexa = StringReplace($tcolor, "$", "0x")
MsgBox(4096, "", $tcolor & @crlf & _GetRgb($hexa))

Func _GetRgb($nColor)
    If BitAND($nColor, 0xFF000000) Then Return SetError(1, 0, 0) ; invalid color value
    Local $aColor[3]
    $aColor[2] = BitAND(BitShift($nColor, 16), 0xFF)
    $aColor[1] = BitAND(BitShift($nColor, 8), 0xFF)
    $aColor[0] = BitAND($nColor, 0xFF)
    Return "0x" & Hex($aColor[0], 2) & Hex($aColor[1], 2) & Hex($aColor[2], 2)
EndFunc  

[Quentin44]

Je n'avais pas pensé au StringReplace... J'était bien partit avec BitAND mais sa coincé au niveau de $Hexa et de quelques valeurs dans le BitAND.

Merci beaucoup , une fois de plus sa coince pour peut.