精炼搜索ListBox展示

Gui, Add, Edit, w300 x12 y10 HwndMyEdit,
DllCall("user32\SendMessage", "Ptr", MyEdit, "uint", 0x1501, "int", 1, "Str", "输入 ""电视"" 进行测试", "int")
Gui, Add, ListBox, w300 x12 y+4 Sort HwndListBox R10,
Gui, Show
OnMessage(0x0101, "WM_KEYUP")

ListArr := ["家庭业务", "产品质量", "互联网电视", "功能使用", "业务因素", "栏目点播", "电视直播", "电视看点", "其他项目"]
Return

GuiClose:
  ExitApp

WM_KEYUP(W, L, M, H) {
  global MyEdit, ListBox, ListArr
  Static LastText
  If (H = MyEdit) {
    GuiControlGet, value, , % MyEdit
    If (value And value!=LastText) {
      Text := ""
      for index, ele in ListArr
        if (InStr(ele,value))
          Text .= (Text ? "|" ele : ele)
      GuiControl, , % ListBox, % "|" Text
      LastText := value
    } Else If (!value)
      GuiControl, , % ListBox, % "|"
  }
}