#include #include #include #include Local $sFilePath = @ScriptDir & "\FILStations.txt" Local $aFilePath, $aStations[0][2] _FileReadToArray($sFilePath, $aFilePath, 6, " - ") For $i = 0 To UBound($aFilePath) - 1 $aFileItem = $aFilePath[$i] If UBound($aFileItem) = 1 Then ContinueLoop _ArrayAdd($aStations, _ArrayToString($aFileItem)) Next GUICreate("QUAL ESTAÇÃO ?", 350, 50) Local $idCombo = GUICtrlCreateCombo("", 10, 10, 200, 20) GUICtrlSetData($idCombo, _ArrayToString($aStations, "|", -1, -1, "|", 0, 0)) GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $idCombo $iCombo = _GUICtrlComboBox_GetCurSel($idCombo) MsgBox(4096, "Selection", "Station : " & $aStations[$iCombo][0] & @CRLF & "IP Address : " & $aStations[$iCombo][1]) EndSwitch WEnd