Möchte gerne diese Autovervollständigung zu laufen bekommen mit 718 Wörtern als Vorgabe, die ich einer Exceltabelle stehen. Nur mir normal einlesen klappt das nicht. Wo sind unsere Excel-Spezialisten.
.
Danke schon jetzt.
Problemerklärung im Script: siehe Zeile 19/20
Spoiler anzeigen
#include-once
#include 'PredictText.au3'
#include <GUIConstants.au3>
#include <EditConstants.au3>
Local $hGUI = GUICreate('Autovervollständigung', 500, 70)
Local $_Min = 5
Local $_MaxArraySize = 10
GUICtrlCreateLabel("Bitte Suchbegriff eingeben", 10, 10, 480, 15)
Local $Input1 = GUICtrlCreateInput('', 10, 30, 480, 30)
Local $nEnter = GUICtrlCreateDummy()
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
Local $aAccelKeys[1][2] = [["{ENTER}", $nEnter]]
GUISetAccelerators($aAccelKeys)
; hier 718 Wörter aus A2 - A720 auswählen aus Exceldatei @ScriptDir & "\test.xlsx"
; Global $_Words1[718] = [Inhalt aus A2 bis A720 aus der Excel-Datei test.xlsx]
Global $_Words1[3] = ['John', 'Petra', 'Peter']
_RegisterListingNewWords(Default, $_Min)
GUISetState()
[/autoit] [autoit][/autoit] [autoit]Local $iGUIGetMsg
While 1
$iGUIGetMsg = GUIGetMsg()
Switch $iGUIGetMsg
Case $GUI_EVENT_CLOSE
_UnregisterPrediction()
ExitLoop
Case $nEnter
$hFocus = _WinAPI_GetFocus()
Switch $hFocus
Case GUICtrlGetHandle($Input1)
_GUICtrlEdit_SetSel($hFocus, -1, -1)
EndSwitch
EndSwitch
WEnd
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
If _WinAPI_HiWord($wParam) = $EN_SETFOCUS Then
Switch $lParam
Case GUICtrlGetHandle($Input1)
_RegisterPrediction($lParam, $_Words1)
EndSwitch
EndIf
[/autoit] [autoit][/autoit] [autoit]Return $GUI_RUNDEFMSG
EndFunc