Ich komme mit mein vorhaben irgendwie nicht weiter, möchte gerne in ListView eine Suchfunktion einbauen.
Die Suche an sich funktioniert, aber sobald ich den Suchfeld lösche vervielfachen sich die Einträge. Dabei will ich das der ursprügliche zustand wiederhergestellt wird.
Danke im Voraus.
LG
Code: Select all
#SingleInstance force
Daten=
(
join`n
Nr.|LagerNr|EAN|ProduktNr|Interne-Nr|Titel|Bestand|VK-preis
A1842|5424450148495|3819429075||Televes|1|69,95
A1409|4250157710956|632706369||Kreiling|5|78,3
A2068|8034427016774|3788599890||Fuba|0|219,95
A1784|8034427006195|788737489||Fuba 780G|0|119,95
A1974|8034427006263|2632715276||Fuba 850R|0|329,95
A2065|8034427013018|632740614||Fuba DAA110 G|5|219,95
A2135|8716184056535|632761407| 1112705|One for All S9|9|67,9
)
Gui, New
Gui, Add, Edit, w820 vSuchText gSuche
Gui, add, listview, Checked Grid w820 r30 gGlager vVlager, Nr.|LagerNr|EAN|ProduktNr|Interne-Nr|Titel|Bestand|VK-preis
Gui, Show, , Bestand Auswerten!
;FileRead, Daten, aufLager.txt
Maxi := StrSplit(Daten, "`n").MaxIndex()
i := 1
y := []
Loop, Parse, Daten, `n
{
if (A_index = 1)
continue
if (A_LoopField = "")
continue
x :=[]
y.push(A_LoopField)
Loop, Parse, A_LoopField, "|"
{
x.push(A_LoopField)
}
LV_Add("", i, x*)
i++
ToolTip, % "Es wird geladen " i " von " Maxi
}
ToolTip
Return
Glager:
Return
Suche:
GuiControlGet, SuchText
LV_Delete()
For k, v In y
{
If (SuchText != "")
{
If InStr(v, SuchText)
{
erg := StrSplit(v, "|")
LV_Add("", k, erg*)
}
}
Else
{
For ke, va In y
{
berg := StrSplit(va, "|")
LV_Add("", ke, berg*)
}
}
}
Return