Hi, ich habe ein Programm geschireben, dass alle meine Videos Auflistet usw. und das heit eine Suchfunktion. Geht es, dass es wie in Google während dem suchen max. 5 Videonamen vorschlägt?
InputBox Vorschläge
-
- [ gelöst ]
-
KingLoL -
15. April 2011 um 13:58 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Wo ist dein Script? Ohne das wir wissen,was du wann und wo machst, kann man dir keine Antwort geben
-
sry... hier das iss die Suchfunktion
Spoiler anzeigen
[autoit]Case $Input
[/autoit]
Local $SearchResult = ""
Local $SearchResultArray = ""
Local $aviSearch = ""
Local $mkvSearch = ""
Local $m2tsSearch = ""
Local $mp4Search = ""
Local $IFOSearch = ""
Local $SearchString1 = GUICtrlRead($Input)
Local $SearchString2 = GUICtrlRead($Input)
Local $SearchString3 = GUICtrlRead($Input)
Local $SearchString4 = GUICtrlRead($Input)
Local $SearchStringCheck = StringSplit($SearchString1," ")
Local $NumberCheck = $SearchStringCheck[$SearchStringCheck[0]]
If StringInStr($SearchString1," ") = 0 Then
$SpaceCheckYesNo = "No"
Else
$SpaceCheckYesNo = "Yes"
EndIf
If StringIsInt("" &$NumberCheck &"") = 1 Then
$SearchString1 = StringReplace($SearchString1," " &$NumberCheck,"")
$SearchString2 = StringReplace($SearchString2," " &$NumberCheck,"")
$SearchString3 = StringReplace($SearchString3," " &$NumberCheck,"")
$SearchString4 = StringReplace($SearchString4," " &$NumberCheck,"")
$NumberCheckYesNo = "Yes"
ElseIf StringIsInt("" &$NumberCheck &"") = 0 Then
$NumberCheckYesNo = "No"
EndIf
If $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "No" Then
$SearchString2 = StringSplit($SearchString2," ")
For $a = 1 To $SearchString2[0]
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString2[$a]) And StringInStr($aviSearch,$avi[$i]) = 0 Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString2[$a]) And StringInStr($mp4Search,$mp4[$i]) = 0 Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString2[$a]) And StringInStr($mkvSearch,$mkv[$i]) = 0 Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString2[$a]) And StringInStr($m2tsSearch,$m2ts[$i]) = 0 Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
Next
For $a = 1 To $SearchString2[0]
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString2[$a]) And $i <> $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString2[$a]) And $i = $IFO[0] And StringInStr($IFOSearch,$IFO[$i]) = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
Next
ElseIf $SpaceCheckYesNo = "No" Then
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString3) Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString3) Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString3) Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString3) Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString3) And $i <> $IFO[0] Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString3) And $i = $IFO[0] Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
ElseIf $SpaceCheckYesNo = "Yes" And $NumberCheckYesNo = "Yes" Then
For $i = 1 To $avi[0]
If StringInStr($avi[$i],$SearchString4) <> 0 And StringInStr($avi[$i],$NumberCheck) <> 0 And StringInStr($avi[$i],"(" &$NumberCheck) &")" = 0 Then
$aviSearch = $aviSearch &$avi[$i] &"|"
EndIf
Next
For $i = 1 To $mp4[0]
If StringInStr($mp4[$i],$SearchString4) <> 0 And StringInStr($mp4[$i],$NumberCheck) <> 0 And StringInStr($mp4[$i],"(" &$NumberCheck) &")" = 0 Then
$mp4Search = $mp4Search &$mp4[$i] &"|"
EndIf
Next
For $i = 1 To $mkv[0]
If StringInStr($mkv[$i],$SearchString4) <> 0 And StringInStr($mkv[$i],$NumberCheck) <> 0 And StringInStr($mkv[$i],"(" &$NumberCheck) &")" = 0 Then
$mkvSearch = $mkvSearch &$mkv[$i] &"|"
EndIf
Next
For $i = 1 To $m2ts[0]
If StringInStr($m2ts[$i],$SearchString4) <> 0 And StringInStr($m2ts[$i],$NumberCheck) <> 0 And StringInStr($m2ts[$i],"(" &$NumberCheck) &")" = 0 Then
$m2tsSearch = $m2tsSearch &$m2ts[$i] &"|"
EndIf
Next
For $i = 1 To $IFO[0]
If StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i <> $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i] &"|"
ElseIf StringInStr($IFO[$i],$SearchString4) <> 0 And StringInStr($IFO[$i],$NumberCheck) <> 0 And $i = $IFO[0] And StringInStr($IFO[$i],"(" &$NumberCheck) &")" = 0 Then
$IFOSearch = $IFOSearch &$IFO[$i]
EndIf
Next
EndIf
$SearchResult = $aviSearch &$mkvSearch &$m2tsSearch &$mp4Search &$IFOSearch
$SearchResultArray = StringSplit($SearchResult, "|")
_ArrayDelete($SearchResultArray, $SearchResultArray[0])
$SearchResultArray[0] = $SearchResultArray[0] - 1
$SearchStringCompiled = _ArrayToString($SearchResultArray,"|",1)
If $SearchStringCompiled = "" Then $SearchStringCompiled = "Keine passenden Videos gefunden!"
GUICtrlSetData($List,"")
GUICtrlSetData($List,$SearchStringCompiled) -
Wenn ich dich richtig verstanden habe, suchst du in etwa so etwas:
IntelliSenseBox von Bugfix. -
cooooooooooooooool DANKE! ;D