Filtern einer Array

ruby

Hallo Forum,

habe folgendes Problem und komme nicht weiter.

Ich erstelle eine Listview und fülle diese aus einer Array.
Nun soll aber die Array vorher gefiltert werden, sodas nur die Werte angezeigt werden mit den vorher angegeben Anfangsbuchstabe aus dem Inputfeld.
Z.b. suche mir alle Einträge mit A
oder
suche mir alle Einträge mit B
usw.

Was muss ich in der untenstehenden Funktion noch reinschreiben.

Danke, schon einmal für Eure Hilfe.

Gruß Ruby

C

#notrayicon
Opt('TrayIconHide', 1)
#include <GuiListView.au3>
#include <GUIConstants.au3>
#include <file.au3>
#include <array.au3>
#Region ###
$Form = GUICreate("", 860, 600, -1, -1)
Global $Listview = GUICtrlCreateListView("Film-Nr.|Filmname|Träger|Hinweis", 10, 10, 670, 342)
GUICtrlSendMsg(-1, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
_GUICtrlListView_SetColumnWidth(-1, 0, 70)
_GUICtrlListView_SetColumnWidth(-1, 1, 420)
_GUICtrlListView_SetColumnWidth(-1, 2, 80)
_GUICtrlListView_SetColumnWidth(-1, 3, 70)
Global $Input1 = GUICtrlCreateInput("", 10, 380, 300, 20)
GUICtrlSetState (-1, $GUI_FOCUS)
Global $Button1 = GUICtrlCreateButton("Filter Buchstabe", 170, 460, 145, 33)
GUISetState(@SW_SHOW)
#EndRegion ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_filter()
Case $Input1
Case $Listview
EndSwitch
WEnd
Func _filter()
Global $array1
_FileReadToArray(@ScriptDir & "\liste-test.txt", $array1, -1)
; fülle Listview
_GUICtrlListView_DeleteAllItems($Listview)
For $i = 0 to Ubound($array1) - 1
GUICtrlCreateListViewItem($array1[$i], $Listview)
Next
EndFunc

Alles anzeigen

**alpines**

Bitte pack deinen Source-Code immer in die entsprechenden Code-Tags. Du kannst einen Accelerator hinzufügen der triggered wenn du Enter in dem Inputfeld drückst.
Damit kannst du dann den Buchstaben auslesen und durch dein FileArray iterieren und alle Zeilen mit dem Anfang aus dem Inputfeld hinzufügen.

ruby

Zitat von alpines

Bitte pack deinen Source-Code immer in die entsprechenden Code-Tags. Du kannst einen Accelerator hinzufügen der triggered wenn du Enter in dem Inputfeld drückst.
Damit kannst du dann den Buchstaben auslesen und durch dein FileArray iterieren und alle Zeilen mit dem Anfang aus dem Inputfeld hinzufügen.

Hi,

verstehe ich nicht so ganz. Bitte um Hilfe.
Gruss Ruby

**water**

Im Editor gibt es den Button "</>". Der ist für die Eingabe von Quellcode gedacht. Der Code wird dann sauber formatiert und eingefärbt. Gibt besseren Überblick und ist leichter zu lesen.

**alpines**

Zitat von ruby

Hi,
verstehe ich nicht so ganz. Bitte um Hilfe.
Gruss Ruby

Es wäre schön wenn du noch dazu schreiben würdest was du davon nicht verstehst. Ich habe schließlich mehrere Punkte angesprochen.

ruby

Danke für deine Hinweise.

Beim nächsten Mal werde ich darauf achten, das ich den Code so einfüge, oder muss ich das noch machen?
Ich bin ja nicht so oft hier und habe es einfach übersehen.

Was ich ja eigentlich nur veruche ist, das die externe Textdatei (Aufbau siehe unten)
so gefilter wird($array?), das nur die Datensätze die mit A oder S oder ... beginnen erst dann in die Listview
eingeladen werden

Ich weiss ja nicht ob ich mit meiner Idee richtig liege um es zu lösen.
Ein paar Programmzeilen würden evtl. helfen.
Danke

vor der Filterung:
1|007 Die Welt ist nicht genug|dvd|ja
2|12 Uhr Mittags|dvd|ja
3|A.I.|dvd|ja
4|Akte X- Der Film|dvd|ja
5|Aladdin 2 Disk Spezial Edition|dvd|ja
6|Bad Boys|dvd|ja
8|Biodata|dvd|ja
395|Sex and the City|dvd|
463|Shutter Island|dvd|
546|Cloud Atlas|dvd|

nach der Filterung A:
3|A.I.|dvd|ja
4|Akte X- Der Film|dvd|ja
5|Aladdin 2 Disk Spezial Edition|dvd|ja

oder

nach der Filterung S:
395|Sex and the City|dvd|
463|Shutter Island|dvd|

**alpines**

Genau das Verfahren habe ich beschrieben. Hier mal eine richtig schlampige Version davon:

AutoIt

$sFile = "1|007 Die Welt ist nicht genug|dvd|ja" & @CRLF & _
		 "2|12 Uhr Mittags|dvd|ja" & @CRLF & _
		 "3|A.I.|dvd|ja" & @CRLF & _
		 "4|Akte X- Der Film|dvd|ja" & @CRLF & _
		 "5|Aladdin 2 Disk Spezial Edition|dvd|ja" & @CRLF & _
		 "6|Bad Boys|dvd|ja" & @CRLF & _
		 "8|Biodata|dvd|ja" & @CRLF & _
		 "395|Sex and the City|dvd|" & @CRLF & _
		 "463|Shutter Island|dvd|" & @CRLF & _
		 "546|Cloud Atlas|dvd|"


#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>


$Form1 = GUICreate("Form1", 378, 298, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 8, 361, 21)
$ListView1 = GUICtrlCreateListView("hurr|durr|burr|surr", 8, 32, 362, 254)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 30)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 220)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
GUISetState(@SW_SHOW)




Local $aLVItems[0]
$aFile = StringSplit($sFile, @CRLF, 3)


For $i = 0 To UBound($aFile) - 1
	ReDim $aLVItems[UBound($aLVItems) + 1]
	$aLVItems[UBound($aLVItems) - 1] = GUICtrlCreateListViewItem($aFile[$i], $ListView1)
Next


$sOldInput = ""


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit


	EndSwitch




	$sNewInput = GUICtrlRead($Input1)
	If $sOldInput <> $sNewInput Then
		$sOldInput = $sNewInput


		$aFile = StringSplit($sFile, @CRLF, 3)


		For $i = 0 To UBound($aLVItems) - 1
			GUICtrlDelete($aLVItems[$i])
		Next


		Local $aLVItems[0]
		For $i = 0 To UBound($aFile) - 1
			If StringLeft(StringSplit($aFile[$i], "|", 3)[1], StringLen($sOldInput)) = $sOldInput Then
				ReDim $aLVItems[UBound($aLVItems) + 1]
				$aLVItems[UBound($aLVItems) - 1] = GUICtrlCreateListViewItem($aFile[$i], $ListView1)
			EndIf
		Next
	EndIf
WEnd

Alles anzeigen

ruby

Hi,

vielen Dank funktioniert.

Habe noch aus dem:

Code

For $i = 0 To UBound($aLVItems) - 1
GUICtrlDelete($aLVItems[$i])
Next

das gemacht:

Code

_GUICtrlListView_ClickItem($Listview1, 0, "", True, 0)
_GUICtrlListView_DeleteAllItems($Listview1)

dann rollt die Listview nicht so.

Nochmals Dank.

Und den obrigen Code habe ich noch im Quellcodefenster gelegt, ist übersichtlicher, wie angeregt.
Tschüss

**alpines**

Das ist nur ein schlampiges Beispiel. Ich würde dir raten dir das nur als Beispiel anzusehen und nicht so zu übernehmen. Errorhandling ist in dem Script praktisch nicht vorhanden.

ruby

Ja, stehe ja noch am Anfang. Beise mich noch durch. Vielen Dank noch einmal. Schliesse den Beitrag.