ComboBox ->Listview Filtern

subzero007

Hallo,

habe eine Frage habe folgende Listviewitems

Host|IP|MAC|Datum

pc1|192.168.01.13|00-13-E8-B8-57-E5|12.04.2010
pc2|192.168.02.14|00-13-E8-B8-57-E6|13.04.2010
pc3|192.168.03.15|00-13-E8-B8-57-E7|14.04.2010
pc4|192.168.04.16|00-13-E8-B8-57-E8|15.04.2010
pc5|192.168.05.17|00-13-E8-B8-57-E9|16.04.2010
pc6|192.168.06.18|00-13-E8-B8-57-E10|17.04.2010
pc7|192.168.07.19|00-13-E8-B8-57-E11|18.04.2010
pc8|192.168.08.20|00-13-E8-B8-57-E12|19.04.2010
pc9|192.168.10.21|00-13-E8-B8-57-E13|20.04.2010

Ich möchte mit der combobox filtern und jeweils die segmente anzeigen lassen die in der Listview enthalten sind.

01
02
03
04
05
06
07
08
09
10

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <Array.au3>
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Get", 999, 628, 226, 231)
;$Input1 = GUICtrlCreateInput("P0XXXX", 24, 72, 73, 21)
$Combo1 = GUICtrlCreateCombo("Segmente", 104, 72, 161, 25)
;$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 104, 8, 162, 21)
;_GUICtrlIpAddress_Set($IPAddress1, "10.11.0.0")
;$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 104, 40, 162, 21)
;_GUICtrlIpAddress_Set($IPAddress2, "10.11.255.255")
$hListView1 = GUICtrlCreateListView("Host|IP|MAC|Last Seen", 24, 104, 930, 478)
;$Date1 = GUICtrlCreateDate("2010/04/27 20:50:50", 768, 8, 186, 21)
;$ListView2 = GUICtrlCreateListView("", 768, 32, 186, 54)
$Button1 = GUICtrlCreateButton("Import", 24, 590, 155, 25, 0)
;$Button2 = GUICtrlCreateButton("Stop", 424, 48, 155, 25, 0)
;$Button3 = GUICtrlCreateButton("Makierte wecken", 414, 72, 93, 25, 0)
;$Button4 = GUICtrlCreateButton("Alle wecken", 504, 72, 75, 25, 0)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_ditoimport()

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func _ditoimport()
$sText= FileRead(FileOpenDialog("Datei wählen","","All (*.*)"))
If @error Then $sText = ClipGet()

[/autoit] [autoit][/autoit] [autoit]

$aData = StringRegExp($sText,"(\S+)\s+(\S+)\s+(\S+)\s+(\S+\s+\S+)(?>.+)?",3)
If @error Then Exit MsgBox(0,"","No Match!")
_ArraySplit($aData,4)
_ArrayDisplay($aData)
;For $i = 0 to Ubound($aData) - 1
;GUICtrlCreateListViewItem($aData[$i], $hListView1)
;Next
_GUICtrlListView_AddArray($hListView1, $aData)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _ArraySplit(ByRef $aArray, $iCol)
Local $iUB = Ceiling(UBound($aArray) / $iCol)
If $iUB < 1 Then Return
Local $aRet[$iUB][$iCol], $iC, $iUB2 = UBound($aArray)
For $i = 0 To UBound($aArray) - 1 Step $iCol
For $j = 0 To $iCol - 1
If $i + $j >= $iUB2 Then ExitLoop
$aRet[$iC][$j] = $aArray[$i + $j]
Next
$iC += 1

Next
;GUICtrlCreateListViewItem($aArray[0], $hListView1)
$aArray = $aRet
EndFunc ;==>_ArraySplit

[/autoit]

m-obi

Also ich versteh jetzt nicht ganz genau was du willst?

subzero007

Ich habe in der listview einträge:

pc1|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc2|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc3|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc4|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc5|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc6|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc7|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc18|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc19|192.168.0.1|00-01-22-00-44-00|01.03.3010
pc1|192.168.1.1|00-01-22-00-44-00|01.03.3010
pc2|192.168.2.1|00-01-22-00-44-00|01.03.3010
pc3|192.168.3.1|00-01-22-00-44-00|01.03.3010
pc4|192.168.4.1|00-01-22-00-44-00|01.03.3010
pc5|192.168.5.1|00-01-22-00-44-00|01.03.3010
pc6|192.168.6.1|00-01-22-00-44-00|01.03.3010
pc7|192.168.7.1|00-01-22-00-44-00|01.03.3010
pc18|192.168.8.1|00-01-22-00-44-00|01.03.3010
pc19|192.168.9.1|00-01-22-00-44-00|01.03.3010

Ich möchte jetzt in der Combo Box nach dem feld IP filtern können:
also alle Pc anzeigen lassen die in dem segment 192.168.0.* oder 192.168.1.* oder alle anzeigen lassen.
also den filter deaktivieren wie mache ich das am besten?
Alle PC können in der Range 192.168.0 - 192.168.255 sein

m-obi

Hier mal so wie ich es verstehe. Ich denk mal das meinst du.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#Include <GuiListView.au3>
#Include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $aData[18] = ["pc1|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc2|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc3|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc4|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc5|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc6|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc7|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc18|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc19|192.168.0.1|00-01-22-00-44-00|01.03.3010", _
"pc1|192.168.1.1|00-01-22-00-44-00|01.03.3010", _
"pc2|192.168.2.1|00-01-22-00-44-00|01.03.3010", _
"pc3|192.168.3.1|00-01-22-00-44-00|01.03.3010", _
"pc4|192.168.4.1|00-01-22-00-44-00|01.03.3010", _
"pc5|192.168.5.1|00-01-22-00-44-00|01.03.3010", _
"pc6|192.168.6.1|00-01-22-00-44-00|01.03.3010", _
"pc7|192.168.7.1|00-01-22-00-44-00|01.03.3010", _
"pc18|192.168.8.1|00-01-22-00-44-00|01.03.3010", _
"pc19|192.168.9.1|00-01-22-00-44-00|01.03.3010"]

[/autoit] [autoit][/autoit] [autoit]

Global $aDataSelect = $aData

[/autoit] [autoit][/autoit] [autoit]

$hGui = GUICreate("Gui", 350, 260)
GUICtrlCreateLabel("Filter IP:", 10, 20, 40, 17)
$hCombo = GUICtrlCreateCombo("", 55, 17, 50, 20)
GUICtrlSetData(-1, "All")
For $i = 0 To 255
GUICtrlSetData(-1, $i)
Next
$hListview = GUICtrlCreateListView("Host|IP|MAC|Last Seen", 10, 50, 340, 200)
For $i = 0 To UBound($aData) - 1
GUICtrlCreateListViewItem($aData[$i], $hListview)
Next
GUISetState()

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hCombo
_GUICtrlListView_DeleteAllItems($hListview)
Switch GUICtrlRead($hCombo)
Case "All"
$aDataSelect = $aData
Case 0 To 255
ReDim $aDataSelect[1]
$aDataSelect[0] = "None"
For $i = 0 To UBound($aData) - 1
$aSplit = StringSplit($aData[$i], "|")
$aSplit = StringSplit($aSplit[2], ".")
If GUICtrlRead($hCombo) = $aSplit[3] Then
ConsoleWrite(@CRLF & $aData[$i])
ReDim $aDataSelect[UBound($aDataSelect) + 1]
$aDataSelect[UBound($aDataSelect) - 1] = $aData[$i]
EndIf
Next
If UBound($aDataSelect) <> 1 Then _ArrayDelete($aDataSelect, 0)
EndSwitch
For $i = 0 To UBound($aDataSelect) - 1
GUICtrlCreateListViewItem($aDataSelect[$i], $hListview)
Next
EndSwitch
WEnd

[/autoit]