Написать в одну строку

[Nefakt]

Всем привет.
Можно ли написать этот код

If $coord[7] = "1" Then GUICtrlSetData($InputZ, "A")
			If $coord[7] = "2" Then GUICtrlSetData($InputZ, "B")
			If $coord[7] = "4" Then GUICtrlSetData($InputZ, "X")
			If $coord[7] = "8" Then GUICtrlSetData($InputZ, "Y")

В одну строку

 

[madmasles]

Nefakt,
Можно примерно так:

Local $aRet[4] = ['A', 'B', 'X', 'Y'], $aCoord[4] = ['1', '2', '4', '8']

For $i = 0 To 3
	ConsoleWrite($aCoord[$i] & ' --> ' & $aRet[Log($aCoord[$i]) / Log(2)] & @LF)
Next

 

[Nefakt]

madmasles
Спасибо

 

[edyapd]

Моё мнение, что более правильным было бы использование Switch...Case...EndSwitch. Хоть и не в одну строку, но работать в какие-то моменты будет быстрей.