Filtern einer Array - Teil-String - instring

AutoMit

Hallo,

(1) offen

nach langer Suche habe ich hier

eine Array Suche gefunden, die fast genau das macht, was ich suche.

Was muss ich in Zeile 59 ändern, damit instring ein Suchbegriff (Teilzeichenkette) gefunden wird, z.B. das Wort "Spezial"?

so geht es nicht

If StringInStr (StringSplit($aFile[$i], "|", 3)[1], StringLen($sOldInput)) = $sOldInput Then ; instring Suche

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

(2) edit: erledigt -Dank Kanashius verstanden (Script aus der Hilfe funktioniert, daher das Beispiel gelöscht)

Danke

**Kanashius**

1.
Das ist eine ganz blöde Idee:

AutoIt

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

Bei jedem ReDim wird das gesamte Array in ein neues kopiert, dass dann ein Feld größer ist.
So schreibt man soetwas:

AutoIt

$aFile = StringSplit($sFile, @CRLF, 3)
Local $aLVItems[UBound($aFile)]
For $i = 0 To UBound($aFile) - 1
	$aLVItems[$i] = GUICtrlCreateListViewItem($aFile[$i], $ListView1)
Next

Dann wird nur einmal ein Array erstellt und befüllt.
Bzw. Bei dem mit der Bedingung:

AutoIt

$aFile = StringSplit($sFile, @CRLF, 3)
Local $aLVItems[UBound($aFile)];Maximal größe
local $count=0
For $i = 0 To UBound($aFile) - 1
	if blub then
		$aLVItems[$i] = GUICtrlCreateListViewItem($aFile[$i], $ListView1)
		$count+=1
	endif
Next
ReDim $aLVItems[$count];Überflüssiges wegschneiden

Dann wird nur einmal das Array erstellt, mit so viel Platz wie maximal nötig ist und am Ende alles überflüssige wieder abgeschnitten.
->Nur 2x Array neu erstellt, bzw. kopiert.

Das andere erhöht die Ladezeit mindestens exponentiell für jede Zeile in der eingelesenen Datei.

Desweiteren gibt es extra funktionen für Listviews:
_guictrllistview_deleteAllItems -> löscht alle Items der Listview
Dann musst du die Controls garnicht in ein Array speichern.

Was das suchen angeht:
Dein Testscript funktioniert doch!
Es wird 0 zurückgegeben. der 0te Eintrag ist der erste Arrayeintrag, der das gesuchte enthält.
Wenn du bei Arraysearch den Startparameter erhöhst ($iStart), dann geht das gefundene auch mit hoch.
Wenn -1 zurückgegeben wird, wird kein Eintrag gefunden.

AutoMit

Danke Kanashius für Deine Tipps !

zu (1)

ich hoffe, das ist nicht untergegangen ... das erste Script ist von alpines, und er hat dazu im oben verlinkten Beitrag geschrieben

"Hier mal eine richtig schlampige Version davon:"

Dennoch ist es das beste Script, was ich finden konnte, um aus einer Textliste nur noch jene Zeilen anzuzeigen, die den Suchstring enthalten.

In Ermangelung eines besseren Scripts reicht mir vorerst die Anpassung der Zeile 59, um den instring Befehl zu nutzen - wißt Ihr wie?

Lottich

Zitat von AutoMit

If StringInStr (StringSplit($aFile[$i], "|", 3)[1], StringLen($sOldInput)) = $sOldInput Then ; instring Suche

Das kann so eigentlich gar nicht funktionieren. Stringsplit liefert keinen String zurück, sondern ein Array.
Und ein bestimmtes Array ruft man mit diesen [] Klammern auf.
Also erst $aVariable = Stringsplit(blabla)
und dann die If StringinStr() Abfrage.

Edit: Ausserdem ist deine Zeile 59 gar nicht die, nach der du gefragt hast! Du hast geschrieben If StringInStr(....) aber deine Zeile 59 beginnt mit StringLeft...
Was denn nun?

**autoBert**

Zitat von Lottich

Das kann so eigentlich gar nicht funktionieren. Stringsplit liefert keinen String zurück, sondern ein Array.

Es kann funktionieren, siehe dieses Testskript:

Code

$sTestString='Dies ist ein Test'
MsgBox(0,'StringSplit-Test',StringSplit($sTestString,' ')[1])
MsgBox(0,'StringSplit-Test',StringSplit($sTestString,' ')[2])
MsgBox(0,'StringSplit-Test',StringSplit($sTestString,' ')[3])
MsgBox(0,'StringSplit-Test',StringSplit($sTestString,' ')[4])

und es funktioniert wenn wie oben und auch im Snipet von @AutoMit direkt auf ein Element des zurügegebenen Arrays zugegriffen wird. Da kein Errorhandling eingebaut (und in der Kurzschreibweise auch nicht einbaubar), setzt es aber voraus das die Daten 100% dem erwartenten Muster enstsprechen.

Lottich

Wow, wieder was dazu gelernt. Danke

**Oscar**

autoBert: Mal abgesehen von den möglichen Fehlern, die dann gleich zum Absturz des Scriptes führen, wird dann aber auch jedes Mal StringSplit ausgeführt. Das ist also auch vom Laufzeitverhalten her eine schlechte Variante.

**autoBert**

Oscar : Full ack, würde ich auch so nie verwenden, war nur zur Demo um Lottichs Einwand zu widerlegen.

AutoMit

Vielen Dank für Eure interessanten Ausführungen!

Bitte schreibt doch, wie Ihr einen Text effizient filtert (instring Suche), so dass Ihr nach Zeichenketten filtern könnt?

Zitat von Lottich

deine Zeile 59

Die Zeile 59 ist im ersten Post

"If StringLeft(StringSplit($aFile[$i], "|", 3)[1], StringLen($sOldInput)) = $sOldInput Then"

möchte ich ersetzen durch einen "StringInStr" Befehl - nur bekomme ich das leider nicht hin.

**Xorianator**

Zitat von AutoMit

Bitte schreibt doch, wie Ihr einen Text effizient filtert (instring Suche), so dass Ihr nach Zeichenketten filtern könnt?

Ich weiß, wie sehr du meine Antworten liebst, drum schreibe ich eine: Reguläre Ausdrücke.

**autoBert**

Wenn schon ein Array vorhanden ist, warum benutzt du dann nicht _ArraySearch oder _ArrayFindAll? Beide können nach Teilstrings innerhalb von SubItems (Spalten) suchen.

**autoiter**

Er/Sie möchte wie immer, die fertige Lösung präsentiert bekommen. Daher sind die naheliegenden Vorschläge zur Selbsthilfe von autoBert (_ArraySearch oder _ArrayFindAll) leider nicht ausreichend. Vielleicht würde AutoMit die Hilfe helfen. Aber das ist natürlich Quatsch. Die mag er/sie ja nicht..

**Xorianator**

Zitat von autoiter

Er/Sie möchte wie immer, die fertige Lösung präsentiert bekommen. Daher sind die naheliegenden Vorschläge zur Selbsthilfe von autoBert (_ArraySearch oder _ArrayFindAll) leider nicht ausreichend. Vielleicht würde AutoMit die Hilfe helfen. Aber das ist natürlich Quatsch. Die mag er/sie ja nicht..

Falsch. Wir alle haben nur nicht verstanden, wie man hilft. AutoMit weiß, wie man richtig helfen muss, und jeder von uns tut es falsch.

**autoBert**

@autoiter & @Xorianator: könnt ihr bitte einmal aufhören gegen AutoMit zu bashen? Nicht jeder hat wie ihr einen IQ von 160++!
Wenn ihr nicht helfen wollt einfach nicht antworten. Und das immer Lösungen im Entwicklerforum gesucht und prompt gepostet werden zähle ich auch dazu, zumindest wenn es hier auch gute Lösungen gibt.

Danke falls ihr beide (und alle anderen) dies in Zukunft beachtet, aber dies mußte imho wirklich einmal gesagt werden,

also nicht für Ungut Gruß (auto)Bert