Passende AutoIt GUI-Farbwerte zu Excel Farbwerten

**autoiter**

Hallo Leute,

Wie komme ich von den Farbwerten, die ich aus Excel auslese auf den entsprechenden Hexwert, den ich für die gleiche Färbung von AutoIt-GUI Elementen benötige?

Also etwa von:
Excel-Wert: 65535 <--> AutoIt-Wert: 0xFFFF00
Excel-Wert: 49407 <--> AutoIt-Wert: 0xFFC000
Excel-Wert: 5296274 <--> AutoIt-Wert: 0x92D050
Excel-Wert: 16777215 <--> AutoIt-Wert: 0xFFFFFF

Spoiler anzeigen

AutoIt

#include <Excel.au3>


Color(@ScriptDir & "\1.xlsx")


Func Color($sFile)
Local $oExcel = _Excel_Open()
Local $oWorkbook = _Excel_BookOpen($oExcel, $sFile)
GUICtrlSetBkColor
Local $iCellColor1 = $oExcel.Range("A1").Interior.Color ; Excel-Wert: 65535     <--> AutoIt-Wert: 0xFFFF00
Local $iCellColor2 = $oExcel.Range("A2").Interior.Color ; Excel-Wert: 49407     <--> AutoIt-Wert: 0xFFC000
Local $iCellColor3 = $oExcel.Range("A3").Interior.Color ; Excel-Wert: 5296274   <--> AutoIt-Wert: 0x92D050
Local $iCellColor4 = $oExcel.Range("A4").Interior.Color ; Excel-Wert: 16777215  <--> AutoIt-Wert: 0xFFFFFF


$sMessage = "Hintergrundfarbe A1=" & $iCellColor1 & @CRLF & "Hintergrundfarbe A2=" & $iCellColor2 & @CRLF & _
			"Hintergrundfarbe A3=" & $iCellColor3 & @CRLF & "Hintergrundfarbe A3=" & $iCellColor4 & @CRLF


ConsoleWrite($sMessage)
MsgBox(0,"", $sMessage)


_Excel_Close($oExcel)
EndFunc

Alles anzeigen

Im Anhang habe ich das Skript mit der Beispieldatei, anhand derer ich die Werte ausgelesen habe (obwohl sicher unnötig..).

**autoiter**

Okay, ich habe es hoch wissenschaftlich gelöst.

AutoIt

Color()


Func Color()


Local $iCellColor1 = 65535 ; Excel-Wert: 65535     <--> AutoIt-Wert: 0xFFFF00
Local $iCellColor2 = 49407 ; Excel-Wert: 49407     <--> AutoIt-Wert: 0xFFC000
Local $iCellColor3 = 5296274 ; Excel-Wert: 5296274   <--> AutoIt-Wert: 0x92D050
Local $iCellColor4 = 16777215 ; Excel-Wert: 16777215  <--> AutoIt-Wert: 0xFFFFFF


$iCellColor1 = Hex(int($iCellColor1))
$iCellColor2 = Hex(int($iCellColor2))
$iCellColor3 = Hex(int($iCellColor3))
$iCellColor4 = Hex(int($iCellColor4))
$iCellColor1 = "0x" & StringMid($iCellColor1, 7, 2) & StringMid($iCellColor1, 5, 2) & StringMid($iCellColor1, 3, 2)
$iCellColor2 = "0x" & StringMid($iCellColor2, 7, 2) & StringMid($iCellColor2, 5, 2) & StringMid($iCellColor2, 3, 2)
$iCellColor3 = "0x" & StringMid($iCellColor3, 7, 2) & StringMid($iCellColor3, 5, 2) & StringMid($iCellColor3, 3, 2)
$iCellColor4 = "0x" & StringMid($iCellColor4, 7, 2) & StringMid($iCellColor4, 5, 2) & StringMid($iCellColor4, 3, 2)


$sMessage = "Hintergrundfarbe A1=" & $iCellColor1 & @CRLF & "Hintergrundfarbe A2=" & $iCellColor2 & @CRLF & _
			"Hintergrundfarbe A3=" & $iCellColor3 & @CRLF & "Hintergrundfarbe A3=" & $iCellColor4 & @CRLF


ConsoleWrite($sMessage)
MsgBox(0,"", $sMessage)


EndFunc

Alles anzeigen

**alpines**

Es wundert mich schon ein wenig warum hier niemand mit einer brennenden Warnfackel in den Thread gerannt ist und hier alles über den Haufen geworfen hat.

Leider hat AutoIt die Möglichkeit in einer Variable mehrere Sachen zu speichern, was das ganze hier ein wenig durcheinander wirbelt.
Alleine die Tatsache das man Int() auf den Wert von Excel anwenden muss, weil Hex() sonst komplett falsche Werte liefert, zeigt wie ärgerlich das ist.

So wie du das gelöst hast ist absolut nicht zu empfehlen und sollte vermieden werden. Man sollte generell Stringoperationen auf Zahlen lassen.
Dein Problem ist, das der Endian in Excel vertauscht ist. Die Bits 0-7 und 16-31 müssen ausgetauscht werden.

Ich hab mal die SwapEndian irgendwo im englischen Forum ein wenig angepasst damit sie bei deiner Anwendung hinhaut.
Wenn du sie folgendermaßen nutzt klappt sie mit GUICtrlSetBkColor: SwapEndian(Int($iCellColor1)).

AutoIt

Func SwapEndian($Data)
    Return "0x" & StringLeft(Hex(Binary($Data)), 6)
EndFunc

**autoiter**

Super cool, danke dir @alpines!

Ich hatte keine Ahnung von den Ursachen. Durch Probieren bin ich auf meine Mit dem Finger durch die Brust ins Auge-Lösung gestoßen. Damit war ich dann gezwungenermaßen zufrieden. Mir fehlen leider immer wieder einfach die grundlegenden Kenntnisse.
.. endlich ist einer mit der Warnfackel gekommen!